]>
iEval git - gruntmaster-daemon.git/blob - lib/Gruntmaster/Daemon/Runner/File.pm
1 package Gruntmaster
::Daemon
::Runner
::File
;
7 use Gruntmaster
::Daemon
::Constants qw
/WA/;
8 use File
::Slurp qw
/slurp/;
9 use Log
::Log4perl qw
/get_logger/;
11 ##################################################
14 my ($test, $meta) = @_;
15 get_logger
->trace("Running on test $test...");
16 $meta->{files
}{prog
}{run
}->($meta->{files
}{prog
}{name
}, fds
=> [qw
/0 input 1 >output/], map {defined $meta->{$_} ?
($_ => $meta->{$_}) : () } qw
/timeout olimit mlimit/);
17 my $out = slurp
'output';
18 my $ok = slurp
"$test.ok";
27 die [WA
, "Wrong answer"] if $out ne $ok;
28 $meta->{tests
}[$test - 1] // 0
This page took 0.037125 seconds and 4 git commands to generate.