anchor.diff:  [<Test>]
   let ``Plain string is in span of 's' class, there are several other tokens next to it``() = 
     let content = getContent """let _ = "str", 1 """
  -  content |> should contain "<span class=\"s\">&quot;str&quot;</span>"
  +  content |> shouldContainText "<span class=\"s\">&quot;str&quot;</span>"
     content |> should not' (contain "<span class=\"s\">,</span>")
  -  content |> should contain (",")
  +  content |> shouldContainText (",")
   
   [<Test>]
   let ``Plain string is in span of 's' class, there is single char next to it``() = 
     let content = getContent """let _ = ("str")"""
  -  content |> should contain "> (<"
  -  content |> should contain "<span class=\"s\">&quot;str&quot;</span>"
  -  content |> should contain ">)"
  +  content |> shouldContainText "> (<"
  +  content |> shouldContainText "<span class=\"s\">&quot;str&quot;</span>"
  +  content |> shouldContainText ">)"
   
   [<Test>]
   let ``Modules and types are in spans of 't' class``() = 
  
positive.code: 
  [<Test>]
  let ``Simple code snippet is formatted as HTML``() = 
    let content, tooltip = getContentAndToolTip """let hello = 10"""
    content |> should contain "<span class=\"k\">let</span>"
    content |> should contain ">hello<"
    content |> should contain "<span class=\"n\">10</span>"
    tooltip |> should contain "val hello : int" 
  
  [<Test>]
  let ``Non-unicode characters do not cause exception`` () =
  
negative.code: module Module =
    type Type() = class end
  """
    content |> shouldContainText "class=\"t\">Module</span>"
    content |> shouldContainText "class=\"t\">Type</span>"
  
  [<Test>]
  let ``Functions and methods are in spans of 'f' class``() = 
  