use strict;
use warnings;
-use File::Copy qw/cp/;
+use File::Slurp qw/write_file/;
use Log::Log4perl qw/get_logger/;
our $VERSION = '0.001';
sub generate{
my ($test, $meta) = @_;
get_logger->trace("Generating test $test ...");
- cp "$test.in", 'input' or die "Cannot copy input for test $test: $!";
+ write_file 'input', $meta->{infile}[$test - 1]
}
1