Initial commit

test/doctest/Doctest.hs

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

test/spec/AoCSpec/UtilSpec.hs

@@ -0,0 +1,11 @@
+module AoCSpec.UtilSpec (spec) where
+
+import AoC.Util
+
+import Test.Hspec
+
+spec :: Spec
+spec = do
+  describe "solveRiddle" do
+    it "runs the given solver" do
+      solveRiddle "test/data/foo.txt" pure `shouldReturn` ()

test/spec/Spec.hs

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

test/spec/SpecHook.hs

@@ -0,0 +1,6 @@
+module SpecHook (hook) where
+
+import Test.Hspec
+
+hook :: Spec -> Spec
+hook = parallel