anchor.diff:  
               document |> getHyperlinks |> should be Empty
   
  -        [<Test>]
  +        [<When>]
           let ``<When> URI without protocol but with "www" is entered <Then> clickable hyperlink is created`` () =
               let document = new FlowDocument(new Paragraph(new Run("Some dummy www.host.org")));
   
  
positive.code: 
              doc |> headline |> should not' (equal None)
  
          [<Test>]
          let ``<When> last content of headline was removed <Then> headline is decoded into # characters again`` () =
              let doc = new FlowDocument(new Paragraph(new Headline("headline")))
  
  
negative.code:             headline |> should not' (equal None)
              headline |> Option.map(fun x -> x.Text) |> should equal (Some(""))
  
          [<When>]
          let ``<When> RETURN is pressed after a headline <Then> a new body text block is started`` () =
              let doc = new FlowDocument(new Paragraph(new Headline("headline")))
  
  