X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=t%2F01-jobs.t;h=4e0304a90f3565d0d895ad29050f5a574ae0d210;hp=aa715e14fd8028a4e81de5c5a24df7a5d961562f;hb=23b3dc5a2a08988e12ba9bac69cdc21ccf9dc935;hpb=64871a33709affb7465dcc85ca1ded3c47406996 diff --git a/t/01-jobs.t b/t/01-jobs.t index aa715e1..4e0304a 100644 --- a/t/01-jobs.t +++ b/t/01-jobs.t @@ -5,7 +5,7 @@ use warnings; use Gruntmaster::Daemon; -use Cwd qw/cwd/; +use Cwd qw/getcwd/; use File::Basename qw/fileparse/; use File::Slurp qw/read_file/; use File::Temp qw/tempdir/; @@ -40,7 +40,7 @@ log4perl.appender.stderr.layout.ConversionPattern = [\%d] [\%F{1}:\%M{1}:\%L] [\ CONF Log::Log4perl->init(\$log_conf); -$ENV{PATH} = cwd . ':' . $ENV{PATH}; +$ENV{PATH} = getcwd . ':' . $ENV{PATH}; umask 0022; sub check_job{ @@ -59,7 +59,7 @@ my @problems = exists $ENV{TEST_PROBLEMS} ? map {"t/problems/$_"} split ' ', $EN plan tests => 3 * sum map { my @temp = <$_/tests/*>; scalar @temp } @problems; note "Problems to be tested: " . join ', ', @problems; -my $tempdir = tempdir "gruntmaster-daemon-testingXXXX", TMPDIR => 1, CLEANUP => 1; +my $tempdir = tempdir "gruntmasterd-testingXXXX", TMPDIR => 1, CLEANUP => 1; chmod 0777, $tempdir; my $job = 0; @@ -87,7 +87,7 @@ for my $problem (@problems) { $meta->{files}{prog}{content} = read_file "$source/$meta->{files}{prog}{name}"; $meta = merge $meta, $pbmeta; note "Running $meta->{test_name} ($meta->{test_description})..."; - my $savedcwd = cwd; + my $savedcwd = getcwd; chdir $tempdir; Gruntmaster::Daemon::process $meta; chdir $savedcwd;