From d543541f59446ddce5561cf35e223062858ae19b Mon Sep 17 00:00:00 2001 From: Tang Jiawei Date: Thu, 5 Oct 2023 02:46:57 +0800 Subject: [PATCH 1/2] add timeouts for zkapps test --- src/app/test_executive/zkapps.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/app/test_executive/zkapps.ml b/src/app/test_executive/zkapps.ml index 7815412f825..89f6618fce5 100644 --- a/src/app/test_executive/zkapps.ml +++ b/src/app/test_executive/zkapps.ml @@ -765,6 +765,9 @@ module Make (Inputs : Intf.Test.Inputs_intf) = struct (Network.Node.get_ingress_uri node) zkapp_command_insufficient_fee "Insufficient fee" ) in + let%bind () = + Malleable_error.lift (after (Time.Span.of_sec 120.0)) + in (* Won't be accepted until the previous transactions are applied *) let%bind () = section_hard "Send a zkApp transaction to update all fields" From 1ea5b7e9de32992acdc2c41b5054894a5df9a983 Mon Sep 17 00:00:00 2001 From: Tang Jiawei Date: Sat, 7 Oct 2023 00:29:40 +0800 Subject: [PATCH 2/2] wait for a block + 30s instead of a slot + 30s --- src/app/test_executive/zkapps.ml | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/src/app/test_executive/zkapps.ml b/src/app/test_executive/zkapps.ml index 89f6618fce5..a983ba3b11f 100644 --- a/src/app/test_executive/zkapps.ml +++ b/src/app/test_executive/zkapps.ml @@ -765,9 +765,8 @@ module Make (Inputs : Intf.Test.Inputs_intf) = struct (Network.Node.get_ingress_uri node) zkapp_command_insufficient_fee "Insufficient fee" ) in - let%bind () = - Malleable_error.lift (after (Time.Span.of_sec 120.0)) - in + let%bind () = wait_for t (Wait_condition.blocks_to_be_produced 1) in + let%bind () = Malleable_error.lift (after (Time.Span.of_sec 30.0)) in (* Won't be accepted until the previous transactions are applied *) let%bind () = section_hard "Send a zkApp transaction to update all fields"