Skip to content
This repository has been archived by the owner on Aug 18, 2020. It is now read-only.

Disable the 'runActionCheck' wallet integration test #3537

Merged
merged 1 commit into from
Sep 5, 2018
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
16 changes: 9 additions & 7 deletions wallet-new/integration/Main.hs
Original file line number Diff line number Diff line change
Expand Up @@ -63,15 +63,17 @@ main = do
printT "Starting deterministic tests."
hspec $ deterministicTests wRef walletClient manager

walletState <- initialWalletState walletClient
printT $ "The 'runActionCheck' tests were disabled because they were highly un-reliable."
when False $ do
walletState <- initialWalletState walletClient

printT $ "Initial wallet state: " <> show walletState
printT $ "Initial wallet state: " <> show walletState

-- some monadic fold or smth similar
void $ runActionCheck
walletClient
walletState
actionDistribution
-- some monadic fold or smth similar
void $ runActionCheck
walletClient
walletState
actionDistribution
where
orFail :: MonadFail m => Either String a -> m a
orFail =
Expand Down