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