diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2008-05-20 12:14:28 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2008-05-20 09:29:33 +0000 |
| commit | ace56ae50476eeb045e2f78e4b9550922f258fde (patch) | |
| tree | 2a500b635d262cee1e27c65b98526b23259cf15a | |
| parent | 984f9f66477bc722578262ae8520584e44e881af (diff) | |
| download | perl-ace56ae50476eeb045e2f78e4b9550922f258fde.tar.gz | |
Re: [PATCH: TODO Tests] Re: [perl #53806] No complain about bareword
From: "Rafael Garcia-Suarez" <rgarciasuarez@gmail.com>
Message-ID: <b77c1dce0805200114o5df69d8br9a02de5a508c3462@mail.gmail.com>
p4raw-id: //depot/perl@33876
| -rw-r--r-- | lib/strict.t | 11 | ||||
| -rw-r--r-- | t/lib/strict/subs | 15 |
2 files changed, 22 insertions, 4 deletions
diff --git a/lib/strict.t b/lib/strict.t index b5911b3708..16dcbec5eb 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -84,17 +84,20 @@ for (@prgs){ $expected =~ s|(\./)?abc\.pm|:abc.pm|g if $^O eq 'MacOS'; $expected =~ s|./abc|:abc|g if $^O eq 'MacOS'; my $prefix = ($results =~ s/^PREFIX\n//) ; + my $TODO = $prog =~ m/^#\s*TODO:/; if ( $results =~ s/^SKIPPED\n//) { print "$results\n" ; } elsif (($prefix and $results !~ /^\Q$expected/) or (!$prefix and $results ne $expected)){ - print STDERR "PROG: $switch\n$prog\n"; - print STDERR "EXPECTED:\n$expected\n"; - print STDERR "GOT:\n$results\n"; + if (! $TODO) { + print STDERR "PROG: $switch\n$prog\n"; + print STDERR "EXPECTED:\n$expected\n"; + print STDERR "GOT:\n$results\n"; + } print "not "; } - print "ok " . ++$i . "\n"; + print "ok " . ++$i . ($TODO ? " # TODO" : "") . "\n"; foreach (@temps) { unlink $_ if $_ } } diff --git a/t/lib/strict/subs b/t/lib/strict/subs index 20a8afa80e..2c9aa87372 100644 --- a/t/lib/strict/subs +++ b/t/lib/strict/subs @@ -393,3 +393,18 @@ my @a;my $x=$a[FOO]; EXPECT Bareword "FOO" not allowed while "strict subs" in use at - line 2. Execution of - aborted due to compilation errors. +######## +# TODO: [perl #53806] No complain about bareword +use strict 'subs'; +print FOO . "\n"; +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 3. +Execution of - aborted due to compilation errors. +######## +# TODO: [perl #53806] No complain about bareword +use strict 'subs'; +$ENV{PATH} = ""; +system(FOO . "\n"); +EXPECT +Bareword "FOO" not allowed while "strict subs" in use at - line 4. +Execution of - aborted due to compilation errors. |