diff options
| author | Elizabeth Mattijsen <liz@dijkmat.nl> | 2002-09-06 19:31:02 +0000 |
|---|---|---|
| committer | hv <hv@crypt.org> | 2002-09-08 15:46:08 +0000 |
| commit | 210bfd0c35c99ac9c680d43346a302335cf8c627 (patch) | |
| tree | 6f6bd999399fadab5ebb29efe756362327ec3c47 /lib/strict.t | |
| parent | f467b3b7e0bdb2ee52eb95365ea30c7918b8930f (diff) | |
| download | perl-210bfd0c35c99ac9c680d43346a302335cf8c627.tar.gz | |
[perl #17061] no strict 'garbage'
From: Elizabeth Mattijsen (via RT) <perlbug@perl.org>
Date: 6 Sep 2002 19:31:02 -0000
Message-Id: <rt-17061-36808.6.19994322284541@bugs6.perl.org>
Date: Sat, 07 Sep 2002 13:40:22 +0200
Message-Id: <4.2.0.58.20020907133846.02476d40@mickey.dijkmat.nl>
p4raw-id: //depot/perl@17869
Diffstat (limited to 'lib/strict.t')
| -rw-r--r-- | lib/strict.t | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/strict.t b/lib/strict.t index 80076fc67d..a95b563f86 100644 --- a/lib/strict.t +++ b/lib/strict.t @@ -36,7 +36,7 @@ foreach (sort glob($^O eq 'MacOS' ? ":lib:strict:*" : "lib/strict/*")) { undef $/; -print "1..", scalar @prgs, "\n"; +print "1..", @prgs + 4, "\n"; for (@prgs){ @@ -98,3 +98,19 @@ for (@prgs){ foreach (@temps) { unlink $_ if $_ } } + +eval qq(use strict 'garbage'); +print +($@ =~ /^Don't know how to 'use strict qw\(garbage\)/) + ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@"; + +eval qq(no strict 'garbage'); +print +($@ =~ /^Don't know how to 'no strict qw\(garbage\)/) + ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@"; + +eval qq(use strict qw(foo bar)); +print +($@ =~ /^Don't know how to 'use strict qw\(foo bar\)/) + ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@"; + +eval qq(no strict qw(foo bar)); +print +($@ =~ /^Don't know how to 'no strict qw\(foo bar\)/) + ? "ok ".++$i."\n" : "not ok ".++$i."\t# $@"; |