t/xen-delete-image.t: Check xen-delete-image exit code

Also run xen-delete-image verbose and print output.

diff --git a/t/xen-delete-image.t b/t/xen-delete-image.t
index d912b75781c04be70fc59fd97d0b528836d27fc0..4166966d394d2386f43ba6bd6fd4fb3e6c06cdd7 100755 (executable)
--- a/t/xen-delete-image.t
+++ b/t/xen-delete-image.t
@@ -75,7 +75,9 @@ close( IMAGE );
 #  So we need to run the deletion script and verify the images
 # are removed correctly.
 #
-`perl -I./lib -I../lib ./bin/xen-delete-image --test --no-xen-ok --dir=$dir $hostname`;
+my $log = `perl -I./lib -I../lib ./bin/xen-delete-image --test --verbose --no-xen-ok --dir=$dir $hostname`;
+ok ( $? == 0, 'Calling xen-delete-image returned exit code 0' );
+print $log;
 
 
 #