unit tests for Text.BBCode

1 files changed, 59 insertions, 0 deletions

diff --git a/bbcode/test/Text/BBCodeSpec.hs b/bbcode/test/Text/BBCodeSpec.hs
new file mode 100644
index 0000000..0d8949a
--- /dev/null
+++ b/bbcode/test/Text/BBCodeSpec.hs
@@ -0,0 +1,59 @@
+{-# LANGUAGE OverloadedStrings, OverloadedLists #-}
+
+module Text.BBCodeSpec (spec) where
+
+import Test.Hspec
+import Test.Hspec.QuickCheck (prop)
+import Test.QuickCheck.Instances
+
+import Text.BBCode
+
+import Data.Text (Text)
+
+import Control.Monad (zipWithM_)
+import Data.Monoid ((<>))
+
+spec :: Spec
+spec = do
+  zipWithM_ example [1..] examples
+    where
+      example n (s, ts) = let str = "Example " <> show n
+                          in specify str (bbcode s == Right ts)
+
+examples :: [(Text, [DomTree])]
+examples = [ ("[t]test[/t]"
+             , [Element "t" [] [Content "test"]])
+           , ("[t]te\\st[/t]"
+             , [Element "t" [] [Content "te\\st"]])
+           , ("[t]te\\[st[/t]"
+             , [Element "t" [] [Content "te[st"]])
+           , ("[t]test\\\\[/t]"
+             , [Element "t" [] [Content "test\\"]])
+           , ("[\\t]test[/\\t]"
+             , [Element "\\t" [] [Content "test"]])
+           , ("[t attr]test[/t]"
+             , [Element "t" [("attr", "")] [Content "test"]])
+           , ("[t=attr]test[/t]"
+             , [Element "t" [("", "attr")] [Content "test"]])
+           , ("[t attr=val]test[/t]"
+             , [Element "t" [("attr", "val")] [Content "test"]])
+           , ("[t attr=\"val\"]test[/t]"
+             , [Element "t" [("attr", "val")] [Content "test"]])
+           , ("[t attr=\"va]l\"]test[/t]"
+             , [Element "t" [("attr", "va]l")] [Content "test"]])
+           , ("[t attr=\"va\\\"l\"]test[/t]"
+             , [Element "t" [("attr", "va\"l")] [Content "test"]])
+           , ("[t attr=\"val\"   attr2=\"val2\"  ]test[/t]"
+             , [Element "t" [("attr", "val"), ("attr2", "val2")] [Content "test"]])
+           , ("[br/]"
+             , [Element "br" [] []])
+           , ("[br attr/]"
+             , [Element "br" [("attr", "")] []])
+           , ("[br=val/]"
+             , [Element "br" [("", "val")] []])
+           , ("[br attr=val/]"
+             , [Element "br" [("attr", "val")] []])
+           , ("[br attr=val val2/]"
+             , [Element "br" [("attr", "val"), ("val2", "")] []])
+           ]
+