Add tests for overriding <> versus rcatline
[perl.git] / lib / strict.t
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'/);