on master help sign in
Bare minimum framework for testing
efd42c3Evan Czaplicki
Elm.cabal+1−1
@@ -168,4 +168,4 @@ Test-Suite test-elm
168 Type: exitcode-stdio-1.0
168 Type: exitcode-stdio-1.0
169 Hs-Source-Dirs: tests
169 Hs-Source-Dirs: tests
170 Main-is: Main.hs
170 Main-is: Main.hs
171− build-depends: base
171+ build-depends: base, HTF
tests/Main.hs+6−4
@@ -1,7 +1,9 @@
1module Main where
1module Main where
2
2
3−import System.Exit
3+import Test.Framework
4+import Test.Framework.BlackBoxTest
4
5
5−main = do
6+main :: IO ()
6− putStrLn "This test always fails"
7+main = htfMain tests
7− exitFailure
8+
9+tests = blackBoxTests "tests/good" "dist/build/elm/elm" ".elm" defaultBBTArgs