make tests fail to see if they are already in CI

ArdanaLabs · Oct 5, 2022 · 2c3a325 · 2c3a325
1 parent acb8e10
commit 2c3a325
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/tests/Main.hs b/tests/Main.hs
@@ -13,12 +13,15 @@ import Lib
       putEdKey,
       signWithEdKey, getPubKey, publicKey )
 import Data.Word (Word16)
+import System.Exit (die)
+import Control.Monad (void)
 
 testKeyID :: Word16
 testKeyID = 200;
 
 main :: IO ()
 main = do
+    void $ die "test failure"
     _ <- runTestTT tests
     return ()