]>
iEval git - gruntmaster-daemon.git/blob - lib/Gruntmaster/Daemon/Runner/Verifier.pm
1 package Gruntmaster
::Daemon
::Runner
::Verifier
;
7 use Gruntmaster
::Daemon
::Constants qw
/WA/;
8 use File
::Slurp qw
/slurp/;
9 use Log
::Log4perl qw
/get_logger/;
12 ##################################################
15 my ($test, $meta) = @_;
16 get_logger
->trace("Running on test $test...");
17 $meta->{files
}{prog
}{run
}->($meta->{files
}{prog
}{name
}, fds
=> [qw
/0 input 1 >output/], map {defined $meta->{$_} ?
($_ => $meta->{$_}) : () } qw
/timeout olimit mlimit/);
20 $meta->{files
}{ver
}{run
}->($meta->{files
}{ver
}{name
}, fds
=> [qw
/0 input 3 output 1 >result/]);
22 die [WA
, "Wrong answer"]
24 scalar slurp
'result';
This page took 0.040299 seconds and 4 git commands to generate.