Expect 'ExitFailure 1' on triggering of --shutdown-on-slot-synced con…

…dition
IntersectMBO · May 30, 2023 · 7c044d0 · 7c044d0
1 parent e4c22ae
commit 7c044d0
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/cardano-testnet/test/cardano-testnet-test/Test/ShutdownOnSlotSynced.hs b/cardano-testnet/test/cardano-testnet-test/Test/ShutdownOnSlotSynced.hs
@@ -15,7 +15,7 @@ import           Data.Aeson.Types
 import           Data.ByteString.Lazy.Char8 as LBS (pack)
 import           Data.Either (isRight)
 import           Data.Maybe
-import           GHC.IO.Exception (ExitCode (ExitSuccess))
+import           GHC.IO.Exception (ExitCode (..))
 import           GHC.Stack (callStack)
 import qualified System.Directory as IO
 
@@ -57,7 +57,7 @@ hprop_shutdownOnSlotSynced = H.integrationRetryWorkspace 2 "shutdown-on-slot-syn
   when (isRight mExitCodeRunning) $ do
     H.cat (nodeStdout node)
     H.cat (nodeStderr node)
-  mExitCodeRunning === Right ExitSuccess
+  mExitCodeRunning === Right (ExitFailure 1)
 
   logs <- H.readFile (nodeStdout node)
   slotTip <- case mapMaybe parseMsg $ reverse $ lines logs of