anchor.diff:  module Module =
     type Type() = class end
   """
  -  content |> shouldContainText "class=\"t\">Module</span>"
  -  content |> shouldContainText "class=\"t\">Type</span>"
  +  content |> shouldContainText (sprintf "class=\"%s\">Module</span>" CSS.Module)
  +  content |> shouldContainText (sprintf "class=\"%s\">Type</span>" CSS.ReferenceType)
   
   [<Test>]
   let ``Functions and methods are in spans of 'f' class``() = 
  
positive.code: 
  [<Test>]
  let ``Plain string is in span of 's' class when it's the last token in the line``() = 
    getContent """let _ = "str" """ |> shouldContainText "<span class=\"s\">&quot;str&quot;</span>"
  
  [<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 |> shouldContainText "<span class=\"s\">&quot;str&quot;</span>"
    content |> should not' (contain "<span class=\"s\">,</span>")
    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 |> shouldContainText "> (<"
    content |> shouldContainText "<span class=\"s\">&quot;str&quot;</span>"
    content |> shouldContainText ">)"
  
  [<Test>]
  
negative.code:         member __.Method x = ()
      let func2 x y = x + y
  """
    content |> shouldContainText <| sprintf "class=\"%s\">func1</span>" CSS.Function
    content |> shouldContainText <| sprintf "class=\"%s\">Method</span>" CSS.Function
    content |> shouldContainText <| sprintf "class=\"%s\">func2</span>" CSS.Function
  
  [<Test>]
  let ``Printf formatters are in spans of 'pf' class``() = 
    let content = getContent """let _ = sprintf "a %A b %0.3fD" """
    content |> shouldContainText <| sprintf "class=\"%s\">&quot;a </span>" CSS.String
    content |> shouldContainText <| sprintf "class=\"%s\">%%A</span>" CSS.Printf
    content |> shouldContainText <| sprintf "class=\"%s\"> b </span>" CSS.String
    content |> shouldContainText <| sprintf "class=\"%s\">%%0.3f</span>" CSS.Printf
    content |> shouldContainText <| sprintf "class=\"%s\">D&quot;</span>" CSS.String
  
  [<Test>]
  let ``Escaped characters are in spans of 'esc' class``() = 
    let content = getContent """let _ = sprintf "a \n\tD\uA0A0 \t" """
    content |> shouldContainText <| sprintf "class=\"%s\">&quot;a </span>" CSS.String
    content |> shouldContainText <| sprintf "class=\"%s\">\\n</span>" CSS.Escaped
    content |> shouldContainText <| sprintf "class=\"%s\">\\t</span>" CSS.Escaped
    content |> shouldContainText <| sprintf "class=\"%s\">D</span>" CSS.String
    content |> shouldContainText <| sprintf "class=\"%s\">\\uA0A0</span>" CSS.Escaped
    content |> shouldContainText <| sprintf "class=\"%s\"> </span>" CSS.String
    content |> shouldContainText <| sprintf "class=\"%s\">\\t</span>" CSS.Escaped