From 04ddf204d1d9b44450a101fe46a4f2bf4cb55746 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 05:30:43 +0000 Subject: new tests for lexer --- bbcode/test/Text/BBCode/LexerSpec.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs index bd2ab7f..9d69091 100644 --- a/bbcode/test/Text/BBCode/LexerSpec.hs +++ b/bbcode/test/Text/BBCode/LexerSpec.hs @@ -81,4 +81,16 @@ examples = [ ("[t]test[/t]" , [BBOpen "\\t" [], BBStr "test", BBClose "t"]) , ("[t]test[/t\\]]" , [BBOpen "t" [], BBStr "test", BBClose "t]"]) + , ("[t attr]test[/t]" + , [BBOpen "t" [("attr", Nothing)], BBStr "test", BBClose "t"]) + , ("[t attr=val]test[/t]" + , [BBOpen "t" [("attr", Just "val")], BBStr "test", BBClose "t"]) + , ("[t attr=\"val\"]test[/t]" + , [BBOpen "t" [("attr", Just "val")], BBStr "test", BBClose "t"]) + , ("[t attr=\"va\\]l\"]test[/t]" + , [BBOpen "t" [("attr", Just "va]l")], BBStr "test", BBClose "t"]) + , ("[t attr=\"va\\\"l\"]test[/t]" + , [BBOpen "t" [("attr", Just "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"]) ] -- cgit v1.2.3