From 478bc6572d3ba508bddf1fdcf697e5a9e56e4055 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 09:39:42 +0100 Subject: DomTree --- bbcode/test/Text/BBCode/LexerSpec.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'bbcode/test/Text/BBCode') diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs index fcc1c4f..5c4b89e 100644 --- a/bbcode/test/Text/BBCode/LexerSpec.hs +++ b/bbcode/test/Text/BBCode/LexerSpec.hs @@ -27,8 +27,8 @@ coToken (BBOpen t []) = "[" <> escape [']'] t <> "]" coToken (BBOpen t xs) = "[" <> escape [']'] t <> " " <> attrs <> " ]" where attrs = mconcat . intersperse " " $ map attr xs - attr (key, Nothing) = escape ['=', ']', ' '] key - attr (key, Just val) = escape ['=', ']', ' '] key <> "=\"" <> escape ['\"'] val <> "\"" + attr (key, "") = escape ['=', ']', ' '] key + attr (key, val) = escape ['=', ']', ' '] key <> "=\"" <> escape ['\"'] val <> "\"" coToken (BBClose t) = "[/" <> escape [']'] t <> "]" coToken (BBStr t) = escape ['['] t @@ -82,17 +82,17 @@ examples = [ ("[t]test[/t]" , ("[t]test[/t\\]]" , [BBOpen "t" [], BBStr "test", BBClose "t]"]) , ("[t attr]test[/t]" - , [BBOpen "t" [("attr", Nothing)], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "")], BBStr "test", BBClose "t"]) , ("[t=attr]test[/t]" - , [BBOpen "t" [("", Just "attr")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("", "attr")], BBStr "test", BBClose "t"]) , ("[t attr=val]test[/t]" - , [BBOpen "t" [("attr", Just "val")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "val")], BBStr "test", BBClose "t"]) , ("[t attr=\"val\"]test[/t]" - , [BBOpen "t" [("attr", Just "val")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "val")], BBStr "test", BBClose "t"]) , ("[t attr=\"va]l\"]test[/t]" - , [BBOpen "t" [("attr", Just "va]l")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "va]l")], BBStr "test", BBClose "t"]) , ("[t attr=\"va\\\"l\"]test[/t]" - , [BBOpen "t" [("attr", Just "va\"l")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "va\"l")], BBStr "test", BBClose "t"]) , ("[t attr=\"val\" attr2=\"val2\" ]test[/t]" - , [BBOpen "t" [("attr", Just "val"), ("attr2", Just "val2")], BBStr "test", BBClose "t"]) + , [BBOpen "t" [("attr", "val"), ("attr2", "val2")], BBStr "test", BBClose "t"]) ] -- cgit v1.2.3