From: Vincent Pit Date: Fri, 5 Dec 2008 18:56:17 +0000 (+0100) Subject: Test that the code compiled fine in t/30-scope.t X-Git-Tag: v0.09~5 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=2fd739d444ad9514976df16be506b4bfd5610dee;p=perl%2Fmodules%2Findirect.git Test that the code compiled fine in t/30-scope.t --- diff --git a/t/30-scope.t b/t/30-scope.t index f2a785f..0c5d970 100644 --- a/t/30-scope.t +++ b/t/30-scope.t @@ -6,7 +6,7 @@ use warnings; my $tests; BEGIN { $tests = 8 } -use Test::More tests => $tests + 1; +use Test::More tests => $tests + 2; my %wrong = map { $_ => 1 } 2, 3, 5, 7; @@ -16,6 +16,7 @@ my %wrong = map { $_ => 1 } 2, 3, 5, 7; { local $SIG{__WARN__} = sub { push @warns, join '', 'warn:', @_ }; eval "die qq{ok\\n}; $code"; + is($@, "ok\n", 'DATA compiled fine'); } my $left = 0; my %res = map {