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
