Moved Printout.BBCode to own module

2 files changed, 43 insertions, 0 deletions

diff --git a/tp-bbcode/test/Spec.hs b/tp-bbcode/test/Spec.hs
new file mode 100644
index 0000000..a824f8c
--- /dev/null
+++ b/tp-bbcode/test/Spec.hs
@@ -0,0 +1 @@
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
diff --git a/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs b/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs
new file mode 100644
index 0000000..f3f1840
--- /dev/null
+++ b/tp-bbcode/test/Thermoprint/Printout/BBCodeSpec.hs
@@ -0,0 +1,42 @@
+{-# LANGUAGE OverloadedStrings, OverloadedLists #-}
+{-# LANGUAGE StandaloneDeriving #-}
+
+module Thermoprint.Printout.BBCodeSpec (spec) where
+
+import Test.Hspec
+import Test.Hspec.QuickCheck (prop)
+import Test.QuickCheck.Instances
+
+import Thermoprint.Printout.BBCode
+import Thermoprint.Printout
+
+import Data.Text (Text)
+
+import Control.Monad (zipWithM_)
+import Data.Monoid ((<>))
+import Data.Function (on)
+
+import qualified Data.Sequence as Seq (fromList)
+
+instance Eq Block where
+  (==) = (==) `on` cotext
+deriving instance Eq Chunk
+
+spec :: Spec
+spec = do
+  zipWithM_ example [1..] examples
+    where
+      example n (s, ts) = let str = "Example " <> show n
+                          in specify str $ bbcode s == (pOut <$> ts)
+
+pOut :: [Block] -> Printout
+pOut = pure . Seq.fromList . map Cooked
+
+examples :: [(Text, Either BBCodeError [Block])]
+examples = [ ("Hello World!"
+             , Right [Line (JuxtaPos [word "Hello", HSpace 1, word "World!"])])
+           , ("Hello [hspace width=2/] World!"
+             , Right [Line (JuxtaPos [word "Hello", HSpace 4, word "World!"])])
+           ]
+  where
+    word = (\(Right l) -> l) . text