57555ac40e9e3f4c61edc0092e500a2f7db1eb31
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.024374 seconds and 4 git commands to generate.