Initial import

test/doctest/Doctest.hs

@@ -0,0 +1,10 @@
+-- | Rn the doctest executable
+module Main where
+
+import System.Process (callProcess)
+
+doctest :: [String] -> IO ()
+doctest = callProcess "doctest"
+
+main :: IO ()
+main = doctest ["--fast", "src"]

test/spec/Spec.hs

@@ -0,0 +1 @@
+{-# OPTIONS_GHC -F -pgmF hspec-discover #-}

test/spec/TK2MQTTSpec.hs

@@ -0,0 +1,12 @@
+module TK2MQTTSpec (spec) where
+
+import HCat.Internal
+
+import Test.Hspec
+import Test.Hspec.QuickCheck (prop)
+
+spec :: Spec
+spec = do
+  describe "parseArgs" do
+    it "returns the filename if given a single argument" do
+      True `shouldBe` True