Increase timeout for finalisation

input-output-hk · Sep 10, 2021 · bbbb678 · bbbb678
1 parent 81d1d48
commit bbbb678
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/local-cluster/bench/Bench/EndToEnd.hs b/local-cluster/bench/Bench/EndToEnd.hs
@@ -103,7 +103,7 @@ bench timeoutSeconds workDir dataset clusterSize =
 
             putTextLn "Closing the Head..."
             send leader $ input "Close" []
-            waitMatch (contestationPeriod * 3) leader $ \v ->
+            waitMatch (fromIntegral $ 60 * clusterSize) leader $ \v ->
               guard (v ^? key "tag" == Just "HeadIsFinalized")
 
             let res = mapMaybe analyze . Map.toList $ processedTransactions