From 07622d8ed09a9713e275f6c34f276f71b9547d70 Mon Sep 17 00:00:00 2001 From: Axel Beckert Date: Thu, 18 Apr 2013 16:26:55 +0200 Subject: [PATCH] t/xen-delete-image.t: Check xen-delete-image exit code Also run xen-delete-image verbose and print output. --- t/xen-delete-image.t | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/t/xen-delete-image.t b/t/xen-delete-image.t index d912b75..4166966 100755 --- 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; #