[p5sagit/Function-Parameters.git] / t / foreign / MooseX-Method-Signatures / errors.t

#!perl
use strict;
use warnings FATAL => 'all';
use Test::More tests => 4;

use Dir::Self;
use lib __DIR__ . "/lib";

eval "use InvalidCase01;";
ok($@, "Got an error");
like($@,
     qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/,
     "Sane error message for syntax error");

{
  my $warnings = "";
  local $SIG{__WARN__} = sub { $warnings .= $_[0] };

  eval "use Redefined;";
  is($@, '', "No error");
  like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
       "Redefined method warning");
}
Commit	Line	Data
595edbcf	1	#!perl
	2	use strict;
	3	use warnings FATAL => 'all';
	4	use Test::More tests => 4;
	5
	6	use Dir::Self;
	7	use lib __DIR__ . "/lib";
	8
	9	eval "use InvalidCase01;";
	10	ok($@, "Got an error");
	11	like($@,
	12	qr/^Global symbol "\$op" requires explicit package name at .*?\bInvalidCase01.pm line 8\b/,
	13	"Sane error message for syntax error");
	14
	15	{
	16	my $warnings = "";
	17	local $SIG{__WARN__} = sub { $warnings .= $_[0] };
	18
	19	eval "use Redefined;";
	20	is($@, '', "No error");
	21	like($warnings, qr/^Subroutine meth1 redefined at .*?\bRedefined.pm line 9\b/,
	22	"Redefined method warning");
	23	}