Wait for 10s for swap transaction to complete

anoma · Jan 16, 2025 · 826f873 · 826f873
1 parent 3c95930
commit 826f873
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/test/Anoma/Client/Base.hs b/test/Anoma/Client/Base.hs
@@ -16,7 +16,7 @@ pollForOutput :: forall r a. (Members '[Error SimpleError, EmbedIO] r) => Int ->
 pollForOutput timeoutMillis isDataAvailable action = runConcurrent $ do
   raceResult <- race timeoutAction go
   case raceResult of
-    Left {} -> throw (SimpleError (mkAnsiText @Text "Operation timed out"))
+    Left {} -> throw (SimpleError (mkAnsiText @Text "pollForOutput: Operation timed out"))
     Right xs -> return xs
   where
     go :: Sem (Concurrent ': r) a

diff --git a/test/Anoma/Client/Positive.hs b/test/Anoma/Client/Positive.hs
@@ -67,7 +67,7 @@ clientTests =
         _clientAssertion = \program -> do
           proveTraces <- proveAndSubmit program []
           step "fetching unrevealed commits"
-          resList <- pollForOutput 2000 isListUnrevealedCommitsAvailable listUnrevealedCommits
+          resList <- pollForOutput 10000 isListUnrevealedCommitsAvailable listUnrevealedCommits
           case (proveTraces, resList ^. listUnrevealedCommitsResultCommits) of
             ([proveCommitment], [listCommitment]) ->
               liftIO $