t/foreign/MooseX-Method-Signatures/errors.t

   1 #!perl
   2 use strict;
   3 use warnings FATAL => 'all';
   4 use Test::More;
   5
   6 use Dir::Self;
   7 use lib __DIR__ . "/lib";
   8
   9 eval "use InvalidCase01;";
  10 ok($@, "Got an error");
  11
  12 #TODO: {
  13 #
  14 #local $TODO = 'Devel::Declare and Eval::Closure have unresolved issues'
  15 #    if Eval::Closure->VERSION > 0.06;
  16
  17 like($@,
  18      qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/,
  19      "Sane error message for syntax error");
  20
  21 #}
  22
  23
  24 {
  25   my $warnings = "";
  26   local $SIG{__WARN__} = sub { $warnings .= $_[0] };
  27
  28   eval "use Redefined;";
  29   is($@, '', "No error");
  30   like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
  31        "Redefined method warning");
  32 }
  33
  34 done_testing;