From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 2 Jul 2001 06:29:21 +0000 (-0400)
Subject: test harness
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=723ca54d3c6fbca0270f4a8b6a89c5976ab6f199;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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'