Commit | Line | Data |
595edbcf |
1 | #!perl |
2 | use strict; |
3 | use warnings FATAL => 'all'; |
4 | use Test::More tests => 4; |
5 | |
6 | use Dir::Self; |
7 | use lib __DIR__ . "/lib"; |
8 | |
9 | eval "use InvalidCase01;"; |
10 | ok($@, "Got an error"); |
11 | like($@, |
12 | qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/, |
13 | "Sane error message for syntax error"); |
14 | |
15 | { |
16 | my $warnings = ""; |
17 | local $SIG{__WARN__} = sub { $warnings .= $_[0] }; |
18 | |
19 | eval "use Redefined;"; |
20 | is($@, '', "No error"); |
21 | like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/, |
22 | "Redefined method warning"); |
23 | } |