anchor.diff:  let ``Transition - normal`` () =
      let doc = "CUT TO:" |> Fountain.Parse
      doc.Blocks
  -   |> should equal [Transition [Literal "CUT TO:"]]
  +   |> should equal [Transition (false, [Literal "CUT TO:"])]
   
   [<Test>]
   let ``Transition - forced`` () =
      let doc = "> Burn to White." |> Fountain.Parse
      doc.Blocks
  -   |> should equal [Transition [Literal "Burn to White."]]
  +   |> should equal [Transition (true, [Literal "Burn to White."])]
   
   //===== Centered
   
  
positive.code: let ``Parenthetical `` () =
     let doc = "LINDSEY\r\n(quietly)" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "quietly"]];
  
  [<Test>]
  let ``Parenthetical - After Dialogue`` () =
     let doc = "LINDSEY\r\n(quietly)\r\nHello, friend.\r\n(loudly)\r\nFriendo!" |> Fountain.Parse
     doc.Blocks
     |> should equal [Character [Literal "LINDSEY"]; Parenthetical [Literal "quietly"]; Dialogue [Literal "Hello, friend."]; Parenthetical [Literal "loudly"]; Dialogue [Literal "Friendo!"]];
  
  
  //===== Dialogue
  
negative.code: let ``Line Breaks`` () =
     let doc = "Murtaugh, springing...\n\nAn explosion of sound...\nAs it rises like an avenging angel ...\nHovers, shattering the air \n\nScreaming, chaos, frenzy.\nThree words that apply to this scene." |> Fountain.Parse
     doc.Blocks
     |> should equal [Action (false, [Literal "Murtaugh, springing..."; HardLineBreak; HardLineBreak; Literal "An explosion of sound..."; HardLineBreak; 
        Literal "As it rises like an avenging angel ..."; HardLineBreak;Literal "Hovers, shattering the air"; HardLineBreak; HardLineBreak;
        Literal "Screaming, chaos, frenzy."; HardLineBreak; Literal "Three words that apply to this scene."])]
    
  
  
  