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