Moved Printout.BBCode to own module

1 files changed, 0 insertions, 42 deletions

diff --git a/spec/test/Thermoprint/Printout/BBCodeSpec.hs b/spec/test/Thermoprint/Printout/BBCodeSpec.hs
deleted file mode 100644
index f3f1840..0000000
--- a/spec/test/Thermoprint/Printout/BBCodeSpec.hs
+++ /dev/null
@@ -1,42 +0,0 @@
-{-# 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