diff options
| author | Lars-Dominik Braun <lars@6xq.net> | 2015-06-29 21:31:10 +0200 |
|---|---|---|
| committer | Lars-Dominik Braun <lars@6xq.net> | 2015-06-29 21:31:10 +0200 |
| commit | 1a6457a84fb3430dbbe0270ce60e8c325906ce74 (patch) | |
| tree | b8bab05bd68f167605f24cf1030a5c3fcdc1a786 | |
| parent | 4c6c1bcf877017df98d4a5492a665eca12b8ba98 (diff) | |
| download | pesto-1a6457a84fb3430dbbe0270ce60e8c325906ce74.tar.gz pesto-1a6457a84fb3430dbbe0270ce60e8c325906ce74.tar.bz2 pesto-1a6457a84fb3430dbbe0270ce60e8c325906ce74.zip | |
Use cabal’s testsuite interface
| -rw-r--r-- | Pesto.cabal | 7 | ||||
| -rw-r--r-- | src/Test.lhs | 3 |
2 files changed, 6 insertions, 4 deletions
diff --git a/Pesto.cabal b/Pesto.cabal index 9be1d12..ee349e7 100644 --- a/Pesto.cabal +++ b/Pesto.cabal @@ -19,7 +19,7 @@ library exposed-modules: Codec.Pesto, Codec.Pesto.Parse, Codec.Pesto.Graph, Codec.Pesto.Lint, Codec.Pesto.Serialize -- other-modules: -- other-extensions: - build-depends: base >=4.6 && <4.7 + build-depends: base >=4.6 && <4.7, HUnit, parsec hs-source-dirs: src default-language: Haskell2010 @@ -29,11 +29,12 @@ executable pesto default-language: Haskell2010 build-depends: base >=4.6 && <4.7, HUnit, parsec -executable pesto-test +test-suite pesto-test + type: exitcode-stdio-1.0 main-is: Test.lhs hs-source-dirs: src default-language: Haskell2010 - build-depends: base >=4.6 && <4.7, HUnit, parsec + build-depends: base >=4.6 && <4.7, Pesto, HUnit, parsec executable pesto-doc main-is: Doc.lhs diff --git a/src/Test.lhs b/src/Test.lhs index 852c700..68f1831 100644 --- a/src/Test.lhs +++ b/src/Test.lhs @@ -4,6 +4,7 @@ Running tests .. class:: nodoc > import Test.HUnit +> import System.Exit (exitFailure, exitSuccess) > import Codec.Pesto.Parse (test) > import Codec.Pesto.Lint (test) > import Codec.Pesto.Graph (test) @@ -11,7 +12,7 @@ Running tests The testcases can be run with ``cabal run pesto-test``. This runs *all* testcases from all modules and prints a summary. -> main = runTestTT tests +> main = runTestTT tests >>= \c -> if errors c + failures c > 0 then exitFailure else exitSuccess > tests = TestList [ > "parse" ~: Codec.Pesto.Parse.test |