wip: slightly improved test retry

UPC · May 12, 2023 · ed3f356 · ed3f356
1 parent bdf0a08
commit ed3f356
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/t/mojo/10_login.t b/t/mojo/10_login.t
@@ -318,7 +318,7 @@ sub test_login_non_admin_req($t, $base, $clone){
             }
             last if $clone2->is_base;
         }
-        is($clone2->is_base,1) or exit;
+        is($clone2->is_base,1,"Expecting ".$clone2->name." is base") or exit;
     }
     $clone->is_public(1);
 

diff --git a/t/mojo/20_ws.t b/t/mojo/20_ws.t
@@ -97,10 +97,11 @@ sub test_bases($t, $bases) {
         $n_bases++;
         my @machines_user0 = list_machines_user($t);
         my @machines_user;
-        for ( 1 .. 5 ) {
+        for ( 1 .. 20 ) {
             @machines_user = grep {$_->{is_base}} list_machines_user($t);
             last if scalar(@machines_user)==$n_bases;
             sleep 1;
+            $t->get_ok($url)->status_is(200);
             wait_request();
         }
         is(@machines_user, $n_bases, Dumper(\@machines_user)) or die Dumper(\@machines_user0);