anchor.diff:      | [] -> raise (CanopyOptionNotFoundException(sprintf "element %s does not contain value %s" cssSelector text))
       | head::tail -> head.Click()
   
  -let ( << ) cssSelector (text : string) = 
  +let ( << ) cssSelector text = 
       wait (elementTimeout + 1.0) (fun _ ->
           
           let writeToElement (e : IWebElement) =
  
positive.code:         |> Seq.head
      with | ex -> []
  
  let private findByFunction cssSelector (timeout : float) waitFunc (searchContext : ISearchContext) =
      if wipTest then colorizeAndSleep cssSelector
      let wait = new WebDriverWait(browser, TimeSpan.FromSeconds(elementTimeout))
      try
  
negative.code:     with
          | :? WebDriverTimeoutException -> raise (CanopyEqualityFailedException(sprintf "regex equality check failed.  expected: %s, got: %s" pattern (read cssSelector)))
  
  let ( *~ ) cssSelector pattern =
      try        
          wait compareTimeout (fun _ -> ( cssSelector |> elements |> Seq.exists(fun element -> regexMatch pattern (textOf element))))
      with
  