t/foreign/Method-Signatures/syntax_errors.t

   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();