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 +++++++ bbcode/test/Text/BBCodeSpec.hs | 4 ++++ 2 files changed, 11 insertions(+) (limited to 'bbcode/test') 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"]]]) ] -- cgit v1.2.3