Commit | Line | Data |
5bf140a1 |
1 | #!perl |
2 | |
e2640c25 |
3 | use Test::More tests => 4; |
5bf140a1 |
4 | |
5 | use warnings FATAL => 'all'; |
6 | use strict; |
7 | |
8 | use Dir::Self; |
9 | |
e2640c25 |
10 | for my $thing (map [__DIR__ . "/eating_strict_error$_->[0].fail", @$_[1 .. $#$_]], ['', 5], ['_2', 8]) { |
11 | my ($file, $line) = @$thing; |
12 | my $done = do $file; |
13 | my $exc = $@; |
14 | my $err = $!; |
5bf140a1 |
15 | |
e2640c25 |
16 | is $done, undef, "faulty code doesn't load"; |
17 | my $msg = qq{Global symbol "\$records" requires explicit package name at $file line $line.\n}; |
18 | like $exc, qr{^\Q$msg}; |
19 | $exc or die "$file: $err"; |
20 | } |