die [WA, "Wrong Answer"] if $?;
} else {
try {
- $meta->{files}{int}{run}->($meta->{files}{int}{name}, fds => [qw/1 >fifo1 0 fifo2 4 >result/]);
+ $meta->{files}{ver}{run}->($meta->{files}{ver}{name}, fds => [qw/1 >fifo1 0 fifo2 4 >result/], args => [$test]);
} catch {
exit 1;
};
exit
}
+ unlink 'fifo1';
+ unlink 'fifo2';
+
scalar slurp 'result'
}