Add test for interpreterSupported

Not much to test here than that it does not thrown an exception, e.g. due to a change of format to ghc --info
sol · Apr 1, 2013 · ac2d60d · ac2d60d
1 parent 9cc662c
commit ac2d60d
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/test/InterpreterSpec.hs b/test/InterpreterSpec.hs
@@ -24,6 +24,9 @@ action `shouldEvaluateTo` expected = action >>= (`shouldBe` expected)
 spec :: Spec
 spec = do
   describe "Interpreter" $ do
+    it "knows whether it works" $ do
+        (Interpreter.interpreterSupported >> return ()) `shouldReturn` ()
+
     it "terminates on SIGINT" $ do
 #ifdef mingw32_HOST_OS
       pending