develooper Front page | perl.perl5.porters | Postings from July 2001

[PATCH 5.6.1] test harness

Thread Next
From:
Ilya Zakharevich
Date:
July 2, 2001 03:29
Subject:
[PATCH 5.6.1] test harness
Message ID:
20010702062921.A1810@math.ohio-state.edu
Test harness would emit a senseless message for no-reason-why skipped lines.

Enjoy,
Ilya

--- ./lib/Test/Harness.pm-pre	Sat Jun 23 16:51:54 2001
+++ ./lib/Test/Harness.pm	Mon Jul  2 01:43:52 2001
@@ -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'

Thread Next


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About