github.com/xen-tools.xen-tools
1
0
Fork 0
mirror of synced 2026-03-06 18:51:14 +00:00
Code Releases Activity

Properly clean up after t/xt-create-xen-config.t

Browse Source
This commit is contained in:
Axel Beckert
2013-04-18 15:31:47 +02:00
parent ea209f085b
commit 081c0370d4
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
t/xt-create-xen-config.t
View File

@@ -140,7 +140,7 @@ sub runCreateCommand
#
# Create a temporary directory, and make sure it is present.
#
my $dir = File::Temp::tempdir( CLEANUP => 0 );
my $dir = File::Temp::tempdir( CLEANUP => 1 );
ok ( -d $dir, "The temporary directory was created: $dir" );
#
@@ -176,7 +176,7 @@ sub runCreateCommand
my @LINES = <OUTPUT>;
close( OUTPUT );
return( join( "\n", @LINES ) );
return( join( "\n", @LINES ), $dir );
}
@@ -193,7 +193,7 @@ sub testOutputContains
my ( $text, %params ) = ( @_ );
# Get the output of running the command.
my $output = runCreateCommand( %params );
my ($output, $dir) = runCreateCommand( %params );
#
# Look to see if we got the text.
@@ -220,7 +220,7 @@ sub noMentionOf
my ( $text, %params ) = ( @_ );
# Get the output of running the command.
my $output = runCreateCommand( %params );
my ($output, $dir) = runCreateCommand( %params );
#
# Look to see if we got the text.