anchor.diff:      "#firstName" == "John1")
   
   context "alert tests"
  -before (fun _ -> !^ "http://localhost:4567/alert")
  +before (fun _ -> !^ "http://lefthandedgoat.github.io/canopy/testpages/alert")
   
   "alert box should have 'Alert Test'" &&& (fun _ ->    
       click "#alert_test"
  
positive.code:     deselected "#checkbox")
  
  "element within only searching within the element" &&& (fun _ ->
      url "http://localhost:4567/elementWithin"
      count ".item" 5
      "spanned item 4" === (element "span" |> elementWithin ".item").Text)
  
  "elements within only searching within element" &&& (fun _ ->
      url "http://localhost:4567/elementWithin"
      count ".item" 5
      2 === (element "span" |> elementsWithin ".item" |> List.length))
  
  "someElementWithin only searching within element" &&& (fun _ ->
      url "http://localhost:4567/elementWithin"
      count ".item" 5
      true === (element "span" |> someElementWithin ".specialItem").IsSome)
  
  "parent of firstItem and secondItem is list" &&& (fun _ ->
      url "http://localhost:4567/parent"
      "list" === (element "#firstItem" |> parent).GetAttribute("id"))
  
  "some parent of firstItem and secondItem is list" &&& (fun _ ->
      url "http://localhost:4567/parent"
      true === (element "#firstItem" |> someParent).IsSome
      "list" === (element "#firstItem" |> someParent).Value.GetAttribute("id"))
  
  
negative.code:     press down)
  
  "click polling" &&& (fun _ -> 
      url "http://lefthandedgoat.github.io/canopy/testpages/autocomplete"
      click "#search"
      click "table tr td"
      "#console" == "worked")
  