List domains must return a list of Domain objects

UPC · May 24, 2017 · 9a3e175 · 9a3e175
1 parent ca7cd0c
commit 9a3e175
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/t/vm/10_domain.t b/t/vm/10_domain.t
@@ -88,6 +88,9 @@ sub test_create_domain {
         ." for VM $vm_name"
     );
 
+    for my $dom2 ( $vm->list_domains ) {
+        is(ref($dom2),ref($domain)) if $vm_name ne 'Void';
+    }
 
     return $domain;
 }