test harness

Message-ID: <20010702062921.A1810@math.ohio-state.edu>

p4raw-id: //depot/perl@11086

diff --git a/lib/Test/Harness.pm b/lib/Test/Harness.pm
index e5df1f8..0a7a762 100644 (file)
--- 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'