- my ($test, $src, $expect, $env) = @_;
+ my ($test, $src, $expect, $env, $in) = @_;
close STDOUT;
open STDOUT, '>', \my $output; # STDOUT buffered to scalar
select STDOUT; # output before start() (which selects PLPOUT)
close STDOUT;
open STDOUT, '>', \my $output; # STDOUT buffered to scalar
select STDOUT; # output before start() (which selects PLPOUT)
<eval \s+ line="([^"]*)"> (.*?) </eval>
}{ getwarning($2, $1, $infile) }msxge;
<eval \s+ line="([^"]*)"> (.*?) </eval>
}{ getwarning($2, $1, $infile) }msxge;
- plp_is($name, $infile, $out, $env);
+ plp_is($name, $infile, $out, $env, $addin);