git.iko.soy/generic-lens
on master help sign in
Make test suite return exit failure code on failure
5fe8bb5Matthew Pickering
test/Spec.hs+7−1
compare with master
unifiedsplit
@@ -22,9 +22,14 @@ import Data.Generics.Sum
22import Test.Inspection
22import Test.Inspection
23import Test.HUnit
23import Test.HUnit
24import Util
24import Util
25+import System.Exit
25
26
26main :: IO ()
27main :: IO ()
28+main = do
27−main = () <$ runTestTT tests
29+ res <- runTestTT tests
30+ case errors res + failures res of
31+ 0 -> exitSuccess
32+ _ -> exitFailure
28
33
29data Record = MkRecord
34data Record = MkRecord
30 { fieldA :: Int
35 { fieldA :: Int
@@ -169,6 +174,7 @@ subtypePrismGeneric = _Sub
169sum1TypePrism :: Prism Sum1 Sum1 Int Int
174sum1TypePrism :: Prism Sum1 Sum1 Int Int
170sum1TypePrism = _Typed @Int
175sum1TypePrism = _Typed @Int
171
176
177+tests :: Test
172tests = TestList $ map mkHUnitTest
178tests = TestList $ map mkHUnitTest
173 [ $(inspectTest $ 'fieldALensManual === 'fieldALensName)
179 [ $(inspectTest $ 'fieldALensManual === 'fieldALensName)
174 , $(inspectTest $ 'fieldALensManual === 'fieldALensType)
180 , $(inspectTest $ 'fieldALensManual === 'fieldALensType)