[p5sagit/lib-with-preamble.git] / t / strict.t

use strict;
use warnings FATAL => 'all';
use Test::More qw(no_plan);

ok(
  !eval { require lib::with::preamble::example::strict; 1 },
  'strict example dies'
);

like($@, qr{Global symbol "\$orz" requires explicit package name(?: \([^)]+\))? at \S+lib/with/preamble/example/strict.pm line 3}, 'Error has right name and line');
Commit	Line	Data
dcd0209b	1	use strict;
	2	use warnings FATAL => 'all';
	3	use Test::More qw(no_plan);
	4
	5	ok(
	6	!eval { require lib::with::preamble::example::strict; 1 },
	7	'strict example dies'
	8	);
	9
b8ba3341	10	like($@, qr{Global symbol "\$orz" requires explicit package name(?: \([^)]+\))? at \S+lib/with/preamble/example/strict.pm line 3}, 'Error has right name and line');