anchor.diff:               \r\n\
                This is going to be BAD.*" |> Fountain.Parse
      doc.Blocks
  -   |> should equal [Action [Literal @"As he rattles off the long list, Brick and Steel *share a look.\r\n\"]; Action [Literal @"\r\n\"]; Action [Literal "This is going to be BAD.*"]]
  +   |> should equal [Action (false, [Literal @"As he rattles off the long list, Brick and Steel *share a look."; HardLineBreak; HardLineBreak; Literal "This is going to be BAD.*"])]
   
   //===== Indenting
   // TODO
  
positive.code: let ``Dialogue - Normal`` () =
     let doc = "LINDSEY\r\nHello, friend." |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]; Dialogue [Literal "Hello, friend."]]
  
  [<Test>]
  let ``Dialogue - After Parenthetical`` () =
     let doc = "LINDSEY\r\n(quietly)\r\nHello, friend." |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "quietly"]; Dialogue [Literal "Hello, friend."]]
  
  
  //===== Page Break
  
negative.code:    let doc = "Some text and then a [[bit a of a note]]. And some more text." |> Fountain.Parse
     doc.Blocks
     // TODO: figure out the right output here. 
     |> should equal [Action (false, [Literal "fails anyway, it drops the note right now."])]
     //|> should equal [Action [Literal "Some text and then a "];[Note [Literal"bit of a note"]]; Literal ". And some more text."]
  
  [<Test>]
  