bsima/haskell-urbit-api
1
1
Fork 0
mirror of https://github.com/bsima/haskell-urbit-api.git synced 2024-10-27 02:30:46 +03:00
Code Issues Packages Projects Releases Wiki Activity

test: exit 1 on failure

Browse Source
This commit is contained in:
Ben Sima 2020-10-12 11:58:34 -04:00
parent f5ff159d8e
commit 0da4659782
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
test.hs
View File

@ -20,6 +20,7 @@ import qualified Network.Wreq as Wreq
import qualified Network.Wreq.Session as Session import qualified Network.Wreq.Session as Session
import qualified Numeric import qualified Numeric
import qualified System.Environment as Env import qualified System.Environment as Env
import qualified System.Exit as Exit
import qualified System.Random as Random import qualified System.Random as Random
import Urbit.Airlock import Urbit.Airlock
@ -79,9 +80,9 @@ testing description f =
(putStrLn $ replicate 80 '-') >> try f >>= \case (putStrLn $ replicate 80 '-') >> try f >>= \case
Left (err :: SomeException) -> do Left (err :: SomeException) -> do
Text.IO.putStrLn $ "FAIL: " <> description Text.IO.putStrLn $ "FAIL: " <> description
putStrLn $ show err Exit.die $ show err
Right False -> do Right False -> do
Text.IO.putStrLn $ "FAIL: " <> description Text.IO.putStrLn $ "FAIL: " <> description
putStrLn $ "expected True, got False" Exit.die "expected True, got False"
Right True -> Right True ->
Text.IO.putStrLn $ "PASS: " <> description Text.IO.putStrLn $ "PASS: " <> description