if ($#ARGV == -1) {
@ARGV = split(/[ \n]/,
- `echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t`);
+ `echo base/*.t comp/*.t cmd/*.t run/*.t io/*.t; echo op/*.t pragma/*.t lib/*.t pod/*.t`);
}
%infinite = ( 'comp/require.t', 1, 'op/bop.t', 1, 'lib/hostname.t', 1 );
my $utf = $with_utf ? '-I../lib -Mutf8'
: '';
+ my $testswitch = '-I. -MTestInit'; # -T will strict . from @INC
if ($type eq 'perl') {
- my $run = "./perl$switch $utf $test |";
+ my $run = "./perl $testswitch $switch $utf $test |";
open(RESULTS,$run) or print "can't run '$run': $!.\n";
}
else {
my $compile =
- "./perl -I../lib ../utils/perlcc -o ./$test.plc $utf ./$test "
- ." && ./$test.plc |";
+ "./perl $testswitch -I../lib ../utils/perlcc -o ".
+ "./$test.plc $utf ./$test ".
+ " && ./$test.plc |";
open(RESULTS, $compile)
or print "can't compile '$compile': $!.\n";
unlink "./$test.plc";