diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 10:20:51 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 10:20:51 +0100 |
| commit | 9f58557a76b5ae5478a7b7fc9e83266cd215c448 (patch) | |
| tree | da17f533c9c5979265477ed3fc26c48c15a0ff0c /bbcode/test | |
| parent | 478bc6572d3ba508bddf1fdcf697e5a9e56e4055 (diff) | |
| download | thermoprint-9f58557a76b5ae5478a7b7fc9e83266cd215c448.tar thermoprint-9f58557a76b5ae5478a7b7fc9e83266cd215c448.tar.gz thermoprint-9f58557a76b5ae5478a7b7fc9e83266cd215c448.tar.bz2 thermoprint-9f58557a76b5ae5478a7b7fc9e83266cd215c448.tar.xz thermoprint-9f58557a76b5ae5478a7b7fc9e83266cd215c448.zip | |
Selfclosing tags
Diffstat (limited to 'bbcode/test')
| -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 | ] |