1 files changed, 7 insertions, 0 deletions

diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs
index e225fab..117006c 100644
--- a/bbcode/test/Text/BBCode/LexerSpec.hs
+++ b/bbcode/test/Text/BBCode/LexerSpec.hs
@@ -32,6 +32,7 @@ coToken (BBOpen t xs) = "[" <> escape [']'] t <> " " <> attrs <> " ]"
 coToken (BBContained t xs) = (<> "/]") . T.init . coToken $ BBOpen t xs
 coToken (BBClose t) = "[/" <> escape [']'] t <> "]"
 coToken (BBStr t) = escape ['['] t
+coToken  BBNewPar = "\n\n"
 
 escape :: [Char] -> Text -> Text
 -- ^ Inverse of `escapedText`
@@ -108,4 +109,10 @@ examples = [ ("[t]test[/t]"
              , [BBContained "br" [("attr", "val"), ("val2", "")]])
            , ("[foo\\/bar]"
              , [BBOpen "foo/bar" []])
+           , ("foo\nbar"
+             , [BBStr "foo\nbar"])
+           , ("foo\n\nbar"
+             , [BBStr "foo", BBNewPar, BBStr "bar"])
+           , ("foo\n\n\r\n\r\nbar"
+             , [BBStr "foo", BBNewPar, BBStr "bar"])
            ]