diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 2001-07-02 02:29:21 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-07-02 13:22:30 +0000 |
| commit | 723ca54d3c6fbca0270f4a8b6a89c5976ab6f199 (patch) | |
| tree | 8c0387f669b483ecf52c5ad994b74e27962b4a27 /lib/Test | |
| parent | 1b4321cf375cab8a864370e54ed0c8585d054efc (diff) | |
| download | perl-723ca54d3c6fbca0270f4a8b6a89c5976ab6f199.tar.gz | |
test harness
Message-ID: <20010702062921.A1810@math.ohio-state.edu>
p4raw-id: //depot/perl@11086
Diffstat (limited to 'lib/Test')
| -rw-r--r-- | lib/Test/Harness.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm index e5df1f8b15..0a7a7626b7 100644 --- a/lib/Test/Harness.pm +++ b/lib/Test/Harness.pm @@ -714,6 +714,8 @@ sub _parse_test_line { $tot->{ok}++; $test->{skipped}++ if $isskip; + $reason = '[no reason given]' + if $isskip and not defined $reason; if (defined $reason and defined $test->{skip_reason}) { # print "was: '$skip_reason' new '$reason'\n"; $test->{skip_reason} = 'various reasons' |