package Gruntmaster::Daemon::Runner::File; use 5.014000; use strict; use warnings; use Gruntmaster::Daemon::Constants qw/WA/; use File::Slurp qw/slurp/; use Log::Log4perl qw/get_logger/; ################################################## sub run{ my ($test, $meta) = @_; get_logger->trace("Running on test $test..."); $meta->{files}{prog}{run}->($meta->{files}{prog}{name}, fds => [qw/0 input 1 >output/], map {defined $meta->{$_} ? ($_ => $meta->{$_}) : () } qw/timeout olimit mlimit/); my $out = slurp 'output'; my $ok = $meta->{okfile}[$test - 1]; $out =~ s/^\s+//; $ok =~ s/^\s+//; $out =~ s/\s+/ /; $ok =~ s/\s+/ /; $out =~ s/\s+$//; $ok =~ s/\s+$//; die [WA, "Wrong answer"] if $out ne $ok; $meta->{tests}[$test - 1] // 0 } 1