Merge pull request #3 from shayne-fletcher/some-tests

get tests going

.github/workflows/ci.yml

@@ -19,3 +19,4 @@ jobs:
       with:
         ghc-version: ${{ matrix.ghc }}
     - run: cabal new-build all
+    - run: cabal new-test --test-option=--color=always --test-show-details=always test:placeholder-test

placeholder.cabal

@@ -32,3 +32,12 @@ library
   import: base
   hs-source-dirs: src
   exposed-modules: Control.Placeholder
+
+test-suite placeholder-test
+  import: base
+  type: exitcode-stdio-1.0
+  main-is:
+    Test.hs
+  hs-source-dirs:
+    test
+  build-depends: placeholder, tasty >= 1.2, tasty-hunit >= 0.10.0

test/Test.hs

@@ -0,0 +1,34 @@
+{-# OPTIONS_GHC -Wno-deprecations #-}
+
+import Test.Tasty
+import Test.Tasty.HUnit
+
+import Control.Exception
+import Control.Placeholder
+
+import Data.List
+
+main :: IO ()
+main = defaultMain tests
+
+tests :: TestTree
+tests = testGroup " All tests" [
+    basic
+  ]
+
+basic :: TestTree
+basic = testGroup "Basic"  [
+    testCase "todo" $ todoTest
+  ]
+
+todoTest :: IO ()
+todoTest = do
+  result <- try (evaluate $ todo) :: IO (Either TodoException Int)
+  case result of
+    Left ex -> do
+        let msg = show ex
+        assertBool "todo(1)" $ all (flip isInfixOf msg) [
+               "Control.Placeholder.todo: not yet implemented"
+             , "test/Test.hs:26:29"
+             ]
+    _ -> assertBool "todo (1)" False