From ca9d7f5b760cb3d56d7785b357590f54ede5b469 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Fri, 15 Jan 2016 01:22:56 +0000 Subject: BBCode now understands paragraphs --- bbcode/test/Text/BBCode/LexerSpec.hs | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'bbcode/test/Text/BBCode') 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"]) ] -- cgit v1.2.3