Commit | Line | Data |
---|---|---|
dcd0209b | 1 | use strict; |
2 | use warnings FATAL => 'all'; | |
3 | use Test::More qw(no_plan); | |
4 | ||
5 | ok( | |
6 | !eval { require lib::with::preamble::example::strict; 1 }, | |
7 | 'strict example dies' | |
8 | ); | |
9 | ||
b8ba3341 | 10 | like($@, qr{Global symbol "\$orz" requires explicit package name(?: \([^)]+\))? at \S+lib/with/preamble/example/strict.pm line 3}, 'Error has right name and line'); |