aboutsummaryrefslogtreecommitdiff
path: root/bbcode/test/Text/BBCode/LexerSpec.hs
diff options
context:
space:
mode:
Diffstat (limited to 'bbcode/test/Text/BBCode/LexerSpec.hs')
-rw-r--r--bbcode/test/Text/BBCode/LexerSpec.hs12
1 files changed, 12 insertions, 0 deletions
diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs
index 5c4b89e..df96d52 100644
--- a/bbcode/test/Text/BBCode/LexerSpec.hs
+++ b/bbcode/test/Text/BBCode/LexerSpec.hs
@@ -95,4 +95,16 @@ examples = [ ("[t]test[/t]"
95 , [BBOpen "t" [("attr", "va\"l")], BBStr "test", BBClose "t"]) 95 , [BBOpen "t" [("attr", "va\"l")], BBStr "test", BBClose "t"])
96 , ("[t attr=\"val\" attr2=\"val2\" ]test[/t]" 96 , ("[t attr=\"val\" attr2=\"val2\" ]test[/t]"
97 , [BBOpen "t" [("attr", "val"), ("attr2", "val2")], BBStr "test", BBClose "t"]) 97 , [BBOpen "t" [("attr", "val"), ("attr2", "val2")], BBStr "test", BBClose "t"])
98 , ("[br/]"
99 , [BBContained "br" []])
100 , ("[br attr/]"
101 , [BBContained "br" [("attr", "")]])
102 , ("[br=val/]"
103 , [BBContained "br" [("", "val")]])
104 , ("[br attr=val/]"
105 , [BBContained "br" [("attr", "val")]])
106 , ("[br attr=val val2/]"
107 , [BBContained "br" [("attr", "val"), ("val2", "")]])
108 , ("[foo\\/bar]"
109 , [BBOpen "foo/bar" []])
98 ] 110 ]