add test cases

dead-code-detection.cabal

@@ -52,7 +52,7 @@ executable dead-code-detection
 
 test-suite spec
   type: exitcode-stdio-1.0
-  main-is: Spec.hs
+  main-is: Main.hs
   hs-source-dirs:
       test
     , src
@@ -81,6 +81,7 @@ test-suite spec
       GraphSpec
       Helper
       RunSpec
+      Spec
       Ast
       Ast.UsedNames
       Files

package.yaml

@@ -34,7 +34,7 @@ executables:
 
 tests:
   spec:
-    main: Spec.hs
+    main: Main.hs
     source-dirs:
       - test
       - src

test/Ast/UsedNamesSpec.hs

@@ -0,0 +1,27 @@
+
+module Ast.UsedNamesSpec where
+
+import           Control.Exception
+import           Data.Foldable
+import           Data.List
+import           Test.Hspec
+
+import           Ast.UsedNames
+
+spec :: Spec
+spec = do
+  let errs :: [(String, ())]
+      errs =
+        ("errorNyiData", errorNyiData ()) :
+        ("errorNyiOutputable", errorNyiOutputable ()) :
+        []
+  forM_ errs $ \ (name, err) -> do
+    describe name $ do
+      it "explains that this is not yet implemented" $ do
+        seq err (return ()) `shouldThrow` \ (ErrorCall message) ->
+          "not yet implemented" `isInfixOf` message
+
+      it "points to the issue tracker" $ do
+        seq err (return ()) `shouldThrow` \ (ErrorCall message) ->
+          "https://github.com/soenkehahn/dead-code-detection/issues" `isInfixOf`
+            message

test/Main.hs

@@ -0,0 +1,12 @@
+
+module Main where
+
+import           GHC (runGhc)
+import           GHC.Paths (libdir)
+
+import qualified Spec
+
+main :: IO ()
+main = do
+  runGhc (Just libdir) (return ())
+  Spec.main

test/Spec.hs

@@ -1 +1 @@
-{-# OPTIONS_GHC -F -pgmF hspec-discover #-}
+{-# OPTIONS_GHC -F -pgmF hspec-discover -optF --module-name=Spec #-}