BBCode now understands paragraphs

2 files changed, 11 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"])
            ]
diff --git a/bbcode/test/Text/BBCodeSpec.hs b/bbcode/test/Text/BBCodeSpec.hs
index 0d8949a..e24c661 100644
--- a/bbcode/test/Text/BBCodeSpec.hs
+++ b/bbcode/test/Text/BBCodeSpec.hs
@@ -55,5 +55,9 @@ examples = [ ("[t]test[/t]"
              , [Element "br" [("attr", "val")] []])
            , ("[br attr=val val2/]"
              , [Element "br" [("attr", "val"), ("val2", "")] []])
+           , ("foo\n\nbar"
+             , [Paragraph [Content "foo"], Paragraph [Content "bar"]])
+           , ("[b]foo\n\nbar[/b]"
+             , [Element "b" [] [Paragraph [Content "foo"], Paragraph [Content "bar"]]])
            ]