wip: test disabled groups

UPC · Apr 18, 2024 · e9bfd13 · e9bfd13
1 parent 4be3179
commit e9bfd13
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/t/mojo/15_list_bases.t b/t/mojo/15_list_bases.t
@@ -78,7 +78,7 @@ sub _list_machines_user($base) {
     is($@, '') or return;
 
     my ($base_f) = grep { $_->{id} == $base->id } @$bases0;
-    ok($base_f) or die "Expecting ".$base->name." in listing";
+    ok($base_f) or croak "Expecting ".$base->name." in listing";
 
     return $base_f;
 }
@@ -140,11 +140,11 @@ sub test_list_machines_group($vm_name) {
     is ($user->allowed_access($base->id),0) or exit;
     is ($user->allowed_access_group($base->id),0) or exit;
 
-    test_list_match($base,0);
+    test_list_fail($base);
 
     # access previous clone
     $t->get_ok("/machine/view/".$id_clone.".html")
-        ->status_is(200);
+        ->status_is(403);
 
     # but will not be able to clone
     $t->get_ok("/machine/clone/".$base->id.".html")