anchor.diff:          | :? WebDriverTimeoutException ->   puts "Element not found in the allotted time. If you want to increase the time, put elementTimeout <- 10.0 anywhere before a test to increase the timeout"
                                               suggestOtherSelectors cssSelector
                                               failwith (String.Format("cant find element {0}", cssSelector))
  -        | ex -> failwith ex.Message
   
   let private find (cssSelector : string) (timeout : float) (searchContext : ISearchContext) =
       (findByFunction cssSelector timeout findElements searchContext).Head
  
positive.code:         element.Text    
  
  let read (cssSelector : string) =    
      try
          let elem = element cssSelector
          textOf elem
      with
          | ex -> failwith ex.Message
  
          
  let clear (cssSelector : string) = 
      let elem = element cssSelector
  
negative.code:                                             else
                                                  readvalue = value))
          with
              | :? WebDriverTimeoutException -> failwith (String.Format("equality check failed.  expected: {0}, got: {1}", value, !bestvalue));
  
      | _ -> failwith (String.Format("Can't check equality on {0} because it is not a string or alert", item.ToString()))
  
  let ( != ) cssSelector value =
      try
          wait compareTimeout (fun _ -> (read cssSelector) <> value)
      with
          | :? WebDriverTimeoutException -> failwith (String.Format("not equals check failed.  expected NOT: {0}, got: {1}", value, (read cssSelector)));
          
  let ( *= ) (cssSelector : string) value =
      try        
          wait compareTimeout (fun _ -> ( let elems = elements cssSelector
                                          elems |> Seq.exists(fun element -> (textOf element) = value)))
      with
          | :? WebDriverTimeoutException -> 
                  let sb = new System.Text.StringBuilder()
                  let elems = elements cssSelector
                  elems |> List.map (fun e -> sb.Append(String.Format("{0}\r\n", (textOf e)))) |> ignore
                  failwith (String.Format("cant find {0} in list {1}\r\ngot: {2}", value, cssSelector, sb.ToString()));
  
  let ( *!= ) (cssSelector : string) value =
      try
          wait compareTimeout (fun _ -> ( let elems = elements cssSelector
                                          elems |> Seq.exists(fun element -> (textOf element) = value) = false))
      with
          | :? WebDriverTimeoutException -> failwith (String.Format("found {0} in list {1}, expected not to", value, cssSelector));
      
  let contains (value1 : string) (value2 : string) =
      if (value2.Contains(value1) <> true) then
  