Lexing tag attributes

1 files changed, 20 insertions, 10 deletions

diff --git a/bbcode/test/Text/BBCode/LexerSpec.hs b/bbcode/test/Text/BBCode/LexerSpec.hs
index d6e1427..bd2ab7f 100644
--- a/bbcode/test/Text/BBCode/LexerSpec.hs
+++ b/bbcode/test/Text/BBCode/LexerSpec.hs
@@ -14,6 +14,7 @@ import Data.Text (Text)
 import qualified Data.Text as T (singleton, replace, last, null)
 
 import Data.Monoid ((<>), mconcat, Endo(..))
+import Data.List (intersperse)
 
 import Data.Attoparsec.Text (parseOnly, endOfInput)
 
@@ -22,7 +23,12 @@ import Control.Monad (zipWithM_)
 
 coToken :: BBToken -> Text
 -- ^ Inverse of `token`
-coToken (BBOpen t) = "[" <> escape [']'] t <> "]"
+coToken (BBOpen t []) = "[" <> escape [']'] t <> "]"
+coToken (BBOpen t xs) = "[" <> escape [']'] t <> " " <> attrs <> " ]"
+  where
+    attrs = mconcat . intersperse " " $ map attr xs
+    attr (key, Nothing) = escape ['=', ']', ' '] key
+    attr (key, Just val) = escape ['=', ']', ' '] key <> "=\"" <> escape ['\"'] val <> "\""
 coToken (BBClose t) = "[/" <> escape [']'] t <> "]"
 coToken (BBStr t) = escape ['['] t
 
@@ -49,26 +55,30 @@ spec = do
                           in specify str (tokenize s == Right ts)
 
 prop_token :: Text -> Property
--- ^ prop> (mconcat . map coToken) <$> tokenize x == Right x
+-- ^ prop> (==) <$> (((mconcat . map coToken) <$> tokenize x) >>= tokenize) <*> tokenize x
 --
 -- Where 'x' is restricted such that `tokenize` succeeds
-prop_token x = discardLeft (((== x) . mconcat . map coToken) <$> tokenize x)
+--
+-- Without accounting for failure this is:
+--
+-- > (tokenize . mconcat . map coToken . tokenize x) == tokenize x 
+prop_token x = discardLeft $ (==) <$> (((mconcat . map coToken) <$> tokenize x) >>= tokenize) <*> tokenize x
   where
     discardLeft = either (const $ property Discard) property
 
 examples :: [(Text, [BBToken])]
 examples = [ ("[t]test[/t]"
-             , [BBOpen "t", BBStr "test", BBClose "t"])
+             , [BBOpen "t" [], BBStr "test", BBClose "t"])
            , ("[t]te\\st[/t]"
-             , [BBOpen "t", BBStr "te\\st", BBClose "t"])
+             , [BBOpen "t" [], BBStr "te\\st", BBClose "t"])
            , ("[t]te\\[st[/t]"
-             , [BBOpen "t", BBStr "te[st", BBClose "t"])
+             , [BBOpen "t" [], BBStr "te[st", BBClose "t"])
            , ("[t]test\\\\[/t]"
-             , [BBOpen "t", BBStr "test\\", BBClose "t"])
+             , [BBOpen "t" [], BBStr "test\\", BBClose "t"])
            , ("[t]test\\[/t]"
-             , [BBOpen "t", BBStr "test[/t]"])
+             , [BBOpen "t" [], BBStr "test[/t]"])
            , ("[\\t]test[/t]"
-             , [BBOpen "\\t", BBStr "test", BBClose "t"])
+             , [BBOpen "\\t" [], BBStr "test", BBClose "t"])
            , ("[t]test[/t\\]]"
-             , [BBOpen "t", BBStr "test", BBClose "t]"])
+             , [BBOpen "t" [], BBStr "test", BBClose "t]"])
            ]