[p5sagit/Function-Parameters.git] / t / eating_strict_error.t

#!perl

use Test::More tests => 2;

use warnings FATAL => 'all';
use strict;

use Dir::Self;

#use Test::Fatal;

my $file = __DIR__ . "/eating_strict_error.fail";
my $done = do $file;
my $exc = $@;
my $err = $!;

is $done, undef, "faulty code doesn't load";
is $exc, qq{Global symbol "\$records" requires explicit package name at $file line 5.\nBEGIN not safe after errors--compilation aborted at $file line 9.\n};
$exc or die "$file: $err";
Commit	Line	Data
5bf140a1	1	#!perl
	2
	3	use Test::More tests => 2;
	4
	5	use warnings FATAL => 'all';
	6	use strict;
	7
	8	use Dir::Self;
	9
	10	#use Test::Fatal;
	11
	12	my $file = __DIR__ . "/eating_strict_error.fail";
	13	my $done = do $file;
	14	my $exc = $@;
	15	my $err = $!;
	16
	17	is $done, undef, "faulty code doesn't load";
	18	is $exc, qq{Global symbol "\$records" requires explicit package name at $file line 5.\nBEGIN not safe after errors--compilation aborted at $file line 9.\n};
	19	$exc or die "$file: $err";