Retry testnet tests when they fail

IntersectMBO · Jan 26, 2022 · 0bdce2a · 0bdce2a
1 parent 8dec5b8
commit 0bdce2a
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 5 deletions.
diff --git a/cabal.project b/cabal.project
@@ -148,8 +148,8 @@ source-repository-package
 source-repository-package
   type: git
   location: https://github.com/input-output-hk/hedgehog-extras
-  tag: edf6945007177a638fbeb8802397f3a6f4e47c14
-  --sha256: 0wc7qzkc7j4ns2rz562h6qrx2f8xyq7yjcb7zidnj7f6j0pcd0i9
+  tag: 9fd3167775df6349df568152211d2333210fb11c
+  --sha256: 0d0jyzg7a8pcmxhhr409krlh9qsxh58aaqd45fn90ki4wjiq5w66
 
 source-repository-package
   type: git

diff --git a/cardano-node-chairman/test/Spec/Chairman/Byron.hs b/cardano-node-chairman/test/Spec/Chairman/Byron.hs
@@ -19,7 +19,7 @@ import qualified Testnet.Conf as H
 {- HLINT ignore "Redundant flip" -}
 
 hprop_chairman :: H.Property
-hprop_chairman = H.integration . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
+hprop_chairman = H.integration . H.retry 1 . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
   conf <- H.mkConf tempAbsPath' Nothing
   allNodes <- H.testnet H.defaultTestnetOptions conf
 

diff --git a/cardano-node-chairman/test/Spec/Chairman/Cardano.hs b/cardano-node-chairman/test/Spec/Chairman/Cardano.hs
@@ -20,7 +20,7 @@ import qualified Testnet.Conf as H
 {- HLINT ignore "Redundant flip" -}
 
 hprop_chairman :: H.Property
-hprop_chairman = H.integration . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
+hprop_chairman = H.integration . H.retry 1 . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
   conf <- H.mkConf tempAbsPath' Nothing
 
   H.TestnetRuntime { H.allNodes } <- H.testnet H.defaultTestnetOptions conf

diff --git a/cardano-node-chairman/test/Spec/Chairman/Shelley.hs b/cardano-node-chairman/test/Spec/Chairman/Shelley.hs
@@ -19,7 +19,7 @@ import qualified Testnet.Shelley as H
 {- HLINT ignore "Redundant flip" -}
 
 hprop_chairman :: H.Property
-hprop_chairman = H.integration . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
+hprop_chairman = H.integration . H.retry 1 . H.runFinallies . H.workspace "chairman" $ \tempAbsPath' -> do
   conf <- H.mkConf tempAbsPath' Nothing
 
   allNodes <- H.testnet H.defaultTestnetOptions conf