diff options
Diffstat (limited to 'bbcode/test/Text')
-rw-r--r-- | bbcode/test/Text/BBCode/LexerSpec.hs | 12 |
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 | ] |