wait for a block + 30s instead of a slot + 30s

MinaProtocol · Oct 18, 2023 · 1ea5b7e · 1ea5b7e
1 parent d543541
commit 1ea5b7e
Showing 1 changed file with 2 additions and 3 deletions.
diff --git 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"