Skip to content

Commit

Permalink
Fix prints to reflect new discard behaviour
Browse files Browse the repository at this point in the history
  • Loading branch information
PeterRugg committed Jan 15, 2025
1 parent 7425819 commit 9932abb
Showing 1 changed file with 3 additions and 3 deletions.
6 changes: 3 additions & 3 deletions src/QuickCheckVEngine/MainHelpers.hs
Original file line number Diff line number Diff line change
Expand Up @@ -250,8 +250,8 @@ doRVFIDII connA m_connB alive delay verbosity saveDir test = do
m_traceAB <- maybe (return . Just $ emptyTrace traceA) (receive "implementation B" traceA) m_connB
--
when (isNothing m_traceA || isNothing m_traceAB) $ writeIORef alive False
when (isNothing m_traceA) $ putStrLn "Error: implementation A timeout. Forcing all future tests to report 'SUCCESS'"
when (isNothing m_traceAB) $ putStrLn "Error: implementation B timeout. Forcing all future tests to report 'SUCCESS'"
when (isNothing m_traceA) $ putStrLn "Error: implementation A timeout. Discarding all future tests."
when (isNothing m_traceAB) $ putStrLn "Error: implementation B timeout. Discarding all future tests."
--
case saveDir of
Nothing -> do return ()
Expand All @@ -266,7 +266,7 @@ doRVFIDII connA m_connB alive delay verbosity saveDir test = do
Right t -> return $ Just $ (\((x,y),z) -> (x,y,z)) <$> t
Left (SomeException e) -> do
writeIORef alive False
putStrLn ("Error: exception on IO with implementations. Forcing all future tests to report 'SUCCESS': " ++ show e)
putStrLn ("Error: exception on IO with implementations. Discarding all future tests: " ++ show e)
return Nothing
else do
putStrLn "Warning: doRVFIDII called when both implementations are not alive"
Expand Down

0 comments on commit 9932abb

Please sign in to comment.