anchor.diff:      press down)
   
   "click polling" &&& (fun _ -> 
  -    url "http://localhost:4567/autocomplete"
  +    url "http://lefthandedgoat.github.io/canopy/testpages/autocomplete"
       click "#search"
       click "table tr td"
       "#console" == "worked")
  
positive.code:     "#item_list" == "Item 2")
  
  "double clicking" &&& (fun _ ->
      !^ "http://localhost:4567/doubleClick"
      "#clicked" == "Not Clicked"
      doubleClick "#double_click"
      "#clicked" == "Clicked")
  
  "displayed test" &&& (fun _ ->
      !^ "http://localhost:4567/displayed"
      displayed "#displayed")
  
  "displayed test2" &&& (fun _ ->
      !^ "http://localhost:4567/displayed"
      waitFor (fun _ -> (element "#displayed").Displayed))
  
  "displayed test3" &&& (fun _ ->
      !^ "http://localhost:4567/waitFor"
      waitFor (fun _ -> (element "#wait_for_2").Displayed))
  
  "notDisplayed test" &&& (fun _ ->
      !^ "http://localhost:4567/notDisplayed"
      notDisplayed "#notDisplayed")
  
  "count test" &&& (fun _ ->
      !^ "http://localhost:4567/count"
      count ".number" 5)
  
  context "dragging"
  
negative.code: 
  "readonly should throw error on read only field with clear" &&& (fun _ ->
      failsWith "element #read_only is marked as read only, you can not clear read only elements"
      !^ "http://lefthandedgoat.github.io/canopy/testpages/readonly"    
      clear "#read_only")
          
  "readonly should throw error on read only field with write" &&& (fun _ ->
      failsWith "element #read_only is marked as read only, you can not write to read only elements"
      !^ "http://lefthandedgoat.github.io/canopy/testpages/readonly"    
      "#read_only" << "new text")
  
  "when value is wrong and changes to empty string prior to time out, it should show wrong value, not empty string" &&& (fun _ ->
  