Minor timing fix in the testsuite.

test/sandbox.json

@@ -8,7 +8,7 @@
         "edpkuFrRoDSEbJYgxRtLx2ps82UdaYc1WwfS9sE11yhauZt5DgCHbU",
         "edpkv8EUUH68jmo3f7Um5PezmfGrRF24gnfLpH3sVNwJnV5bVCxL2n"
     ],
-    "slot_durations" : [ 10, 5 ],
+    "slot_durations" : [ 1, 0 ],
     "cycle_length" : 128,
     "first_free_mining_slot" : 4
 }

test/test-basic.sh

@@ -38,6 +38,8 @@ ${CLIENT} activate \
           with fitness 1 \
           and key edskRhxswacLW6jF6ULavDdzwqnKJVS4UcDTNiCyiH6H8ZNnn2pmNviL7pRNz9kRxxaWQFzEQEcZExGHKbwmuaAcoMegj5T99z
 
+sleep 2
+
 KEY1=foo
 KEY2=bar
 

test/test_basic.ml

@@ -117,7 +117,9 @@ let switch_protocol () =
     Client_embedded_proto_alpha.Fitness_repr.from_int64 0L in
   Client_genesis.Client_proto_main.mine cctxt `Genesis
     (Activate Client_alpha.Client_proto_main.protocol)
-    fitness genesis_sk
+    fitness genesis_sk >>=? fun () ->
+  Lwt_unix.sleep 2.0 >>= fun () ->
+  return ()
 
 let bootstrap_accounts () =
   let cpt = ref 0 in