Warn if it can't find requested id_iso

emhaye · Sep 18, 2017 · 14e1fdb · 14e1fdb
1 parent 4a6a0ef
commit 14e1fdb
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/t/lib/Test/Ravada.pm b/t/lib/Test/Ravada.pm
@@ -46,8 +46,11 @@ sub create_domain {
     my $user = (shift or $USER_ADMIN);
     my $id_iso = shift;
 
-    $id_iso = search_id_iso($id_iso)
-        if $id_iso && $id_iso !~ /^\d+$/;
+    if ( $id_iso && $id_iso !~ /^\d+$/) {
+        my $iso_name = $id_iso;
+        $id_iso = search_id_iso($iso_name);
+        warn "I can't find iso $iso_name" if !defined $id_iso;
+    }
     my $vm = rvd_back()->search_vm($vm_name);
     ok($vm,"Expecting VM $vm_name, got ".$vm->type) or return;