From 9bc6cd27e1c4b52f46e1b210b3d560c5340d1fe4 Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Tue, 12 Jan 2016 05:59:38 +0000 Subject: Unnamed attributes --- bbcode/test/Text/BBCode/LexerSpec.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'bbcode/test/Text/BBCode/LexerSpec.hs') diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs index f4dcee6..fcc1c4f 100644 --- a/bbcode/test/Text/BBCode/LexerSpec.hs +++ b/bbcode/test/Text/BBCode/LexerSpec.hs @@ -83,6 +83,8 @@ examples = [ ("[t]test[/t]" , [BBOpen "t" [], BBStr "test", BBClose "t]"]) , ("[t attr]test[/t]" , [BBOpen "t" [("attr", Nothing)], BBStr "test", BBClose "t"]) + , ("[t=attr]test[/t]" + , [BBOpen "t" [("", Just "attr")], BBStr "test", BBClose "t"]) , ("[t attr=val]test[/t]" , [BBOpen "t" [("attr", Just "val")], BBStr "test", BBClose "t"]) , ("[t attr=\"val\"]test[/t]" -- cgit v1.2.3