oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix temp config file for tests

Browse source
This commit is contained in:
Graham Knop 2010-06-10 12:42:24 -05:00
parent 596420cd1f
commit a2cb075d79
1 changed files with 12 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
t/lib/WebGUI/Test.pm
View file

@ -30,7 +30,7 @@ use Test::MockObject;
use Test::MockObject::Extends; use Test::MockObject::Extends;
use Log::Log4perl; # load early to ensure proper order of END blocks use Log::Log4perl; # load early to ensure proper order of END blocks
use Clone qw(clone); use Clone qw(clone);
use File::Basename qw(dirname); use File::Basename qw(dirname fileparse);
use File::Spec::Functions qw(abs2rel rel2abs catdir catfile updir); use File::Spec::Functions qw(abs2rel rel2abs catdir catfile updir);
use IO::Select (); use IO::Select ();
use Scalar::Util qw( blessed ); use Scalar::Util qw( blessed );
@ -374,15 +374,21 @@ my $config_copy;
sub file { sub file {
return $config_copy return $config_copy
if $config_copy; if $config_copy;
my $config_base = $original_config_file; my $config_base = fileparse( $original_config_file, '.conf' );
$config_base =~ s/\.conf$//; my (undef, $config_copy_abs) = File::Temp::tempfile(
(undef, $config_copy) = File::Temp::tempfile("$config_base-XXXX", SUFFIX => '.conf', UNLINK => 0, OPEN => 0); "$config_base-XXXX",
File::Copy::copy($original_config_file, $config_copy); SUFFIX => '.conf',
UNLINK => 0,
OPEN => 0,
TMPDIR => 1,
);
File::Copy::copy($original_config_file, $config_copy_abs);
$CLASS->addToCleanup(sub { $CLASS->addToCleanup(sub {
unlink $config_copy; unlink $config_copy_abs;
undef $config_copy; undef $config_copy;
undef $config; undef $config;
}); });
$config_copy = abs2rel( $config_copy_abs, catdir( $WEBGUI_ROOT, 'etc') );
return $config_copy; return $config_copy;
} }