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