diff options
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index 8422f8e4bc..635febdca5 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -2,6 +2,13 @@ package Test::Harness; use Exporter; use Benchmark; +use Config; + +$Is_OS2 = $Config{'osname'} =~ m|^os/?2$|i ; + +$ENV{EMXSHELL} = 'sh' if $Is_OS2; # to run commands +$path_s = $Is_OS2 ? ';' : ':' ; + @ISA=(Exporter); @EXPORT= qw(&runtests &test_lib); @EXPORT_OK= qw($verbose $switches); @@ -16,7 +23,7 @@ sub runtests { my $bad = 0; my $good = 0; my $total = @tests; - local($ENV{'PERL5LIB'}) = join(':', @INC); # pass -I flags to children + local($ENV{'PERL5LIB'}) = join($path_s, @INC); # pass -I flags to children my $t_start = new Benchmark; while ($test = shift(@tests)) { @@ -69,7 +76,7 @@ sub runtests { } else { $pct = sprintf("%.2f", $good / $total * 100); if ($bad == 1) { - warn "Failed 1 test, $pct% okay.\n"; + die "Failed 1 test, $pct% okay.\n"; } else { die "Failed $bad/$total tests, $pct% okay.\n"; } |