diff options
| author | Abigail <abigail@abigail.be> | 2003-10-01 16:19:43 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-06 15:23:01 +0000 |
| commit | 0b1f57502e82e7086eb37fa5981c91be8f02c535 (patch) | |
| tree | 412a3b527e2d41c8cd6f743df7ebcbd9a80834bf /lib/warnings.t | |
| parent | b04375185d3988e648dcd1baf92b9e93db96ee39 (diff) | |
| download | perl-0b1f57502e82e7086eb37fa5981c91be8f02c535.tar.gz | |
Re: [PATCH lib/warnings.t] Adding TODO functionality to lib/warnings.
Message-ID: <20031001121943.GA29419@abigail.nl>
p4raw-id: //depot/perl@21414
Diffstat (limited to 'lib/warnings.t')
| -rw-r--r-- | lib/warnings.t | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/lib/warnings.t b/lib/warnings.t index 0647b552f4..77571734b8 100644 --- a/lib/warnings.t +++ b/lib/warnings.t @@ -76,6 +76,8 @@ for (@prgs){ $switch =~ s/(-\S*[A-Z]\S*)/"$1"/ if $Is_VMS; # protect uc switches } my($prog,$expected) = split(/\nEXPECT\n/, $_); + my ($todo, $todo_reason); + $todo = $prog =~ s/^#\s*TODO(.*)\n//m and $todo_reason = $1; if ( $prog =~ /--FILE--/) { my(@files) = split(/\n--FILE--\s*([^\s\n]*)\s*\n/, $prog) ; shift @files ; @@ -177,12 +179,21 @@ for (@prgs){ (!$option_regex && $results !~ /^\Q$expected/))) or (!$prefix && (( $option_regex && $results !~ /^$expected/) || (!$option_regex && $results ne $expected)))) { - print STDERR "PROG: $switch\n$prog\n"; - print STDERR "EXPECTED:\n$expected\n"; - print STDERR "GOT:\n$results\n"; + my $err_line = "PROG: $switch\n$prog\n" . + "EXPECTED:\n$expected\n" . + "GOT:\n$results\n"; + if ($todo) { + $err_line =~ s/^/# /mg; + print $err_line; # Harness can't filter it out from STDERR. + } + else { + print STDERR $err_line; + } print "not "; } - print "ok " . ++$i . "\n"; + print "ok " . ++$i; + print " # TODO$todo_reason" if $todo; + print "\n"; foreach (@temps) { unlink $_ if $_ } foreach (@temp_path) |