Call commands in tests with proper search path for perl modules
This commit is contained in:
@@ -75,7 +75,7 @@ close( IMAGE );
|
||||
# So we need to run the deletion script and verify the images
|
||||
# are removed correctly.
|
||||
#
|
||||
`./bin/xen-delete-image --test --dir=$dir $hostname`;
|
||||
`perl -I./lib -I../lib ./bin/xen-delete-image --test --dir=$dir $hostname`;
|
||||
|
||||
|
||||
#
|
||||
|
||||
@@ -98,7 +98,7 @@ EOS
|
||||
# Now run the xen-list-images script to make sure we can read
|
||||
# the relevant details back from it.
|
||||
#
|
||||
my $cmd = "./bin/xen-list-images --test=$dir";
|
||||
my $cmd = "perl -I./lib -I../lib ./bin/xen-list-images --test=$dir";
|
||||
my $output = `$cmd`;
|
||||
|
||||
ok( defined( $output ) && length( $output ), "Runing the list command produced some output" );
|
||||
|
||||
Reference in New Issue
Block a user