regen pod issues
[perl.git] / lib / strict.t
1 #!./perl
2
3 chdir 't' if -d 't';
4 @INC = '../lib';
5
6 our $local_tests = 6;
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'/);
20
21 eval 'use v5.12; use v5.10; ${"c"}';
22 is($@, '', 'use v5.10 disables implicit strict refs');
23
24 eval 'use strict; use v5.10; ${"c"}';
25 like($@,
26     qr/^Can't use string \("c"\) as a SCALAR ref while "strict refs" in use/,
27     "use v5.10 doesn't disable explicit strict ref");