https://perl5.git.perl.org / perl5.git / blame_incremental
| Commit | Line | Data |
|---|---|---|
| 1 | #!./perl | |
| 2 | ||
| 3 | chdir 't' if -d 't'; | |
| 4 | @INC = '../lib'; | |
| 5 | ||
| 6 | our $local_tests = 4; | |
| 7 | require "../t/lib/common.pl"; | |
| 8 | ||
| 9 | eval qq(use strict 'garbage'); | |
| 10 | like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); | |
| 11 | ||
| 12 | eval qq(no strict 'garbage'); | |
| 13 | like($@, qr/^Unknown 'strict' tag\(s\) 'garbage'/); | |
| 14 | ||
| 15 | eval qq(use strict qw(foo bar)); | |
| 16 | like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); | |
| 17 | ||
| 18 | eval qq(no strict qw(foo bar)); | |
| 19 | like($@, qr/^Unknown 'strict' tag\(s\) 'foo bar'/); |