Commit | Line | Data |
---|---|---|
700071de | 1 | #!perl |
2 | use strict; | |
3 | use warnings FATAL => 'all'; | |
4 | ||
5 | use Test::More; | |
6 | ||
7 | use Dir::Self; | |
8 | use lib __DIR__ . '/lib'; | |
9 | ||
10 | ok !eval { require Bad }; | |
11 | #TODO: { | |
12 | # local $TODO = "The user should see the actual syntax error"; | |
13 | like $@, qr{^Global symbol "\$info" requires explicit package name}m; | |
14 | ||
15 | # like($@, qr{^PPI failed to find statement for '\$bar'}m, | |
16 | # 'Bad syntax generates stack trace'); | |
17 | #} | |
18 | ||
19 | done_testing(); |