From 9f58557a76b5ae5478a7b7fc9e83266cd215c448 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 10:20:51 +0100 Subject: Selfclosing tags --- bbcode/test/Text/BBCode/LexerSpec.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'bbcode/test/Text/BBCode') 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]" , [BBOpen "t" [("attr", "va\"l")], BBStr "test", BBClose "t"]) , ("[t attr=\"val\" attr2=\"val2\" ]test[/t]" , [BBOpen "t" [("attr", "val"), ("attr2", "val2")], BBStr "test", BBClose "t"]) + , ("[br/]" + , [BBContained "br" []]) + , ("[br attr/]" + , [BBContained "br" [("attr", "")]]) + , ("[br=val/]" + , [BBContained "br" [("", "val")]]) + , ("[br attr=val/]" + , [BBContained "br" [("attr", "val")]]) + , ("[br attr=val val2/]" + , [BBContained "br" [("attr", "val"), ("val2", "")]]) + , ("[foo\\/bar]" + , [BBOpen "foo/bar" []]) ] -- cgit v1.2.3