From: Vincent Pit <vince@profvince.com>
Date: Tue, 5 Jul 2011 22:54:14 +0000 (+0200)
Subject: Test interaction with eval STRING
X-Git-Tag: v0.24~5
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=485841aab90380ffecbe0f217eb234a64f69bb25;p=perl%2Fmodules%2Findirect.git

Test interaction with eval STRING
---

diff --git a/t/30-scope.t b/t/30-scope.t
index e83819d..afb0e40 100644
--- a/t/30-scope.t
+++ b/t/30-scope.t
@@ -6,7 +6,7 @@ use warnings;
 my $tests;
 BEGIN { $tests = 18 }
 
-use Test::More tests => (1 + $tests + 1) + 3 + 3 + 3 + 5 + 4 + 5;
+use Test::More tests => (1 + $tests + 1) + 2 + 3 + 3 + 3 + 5 + 4 + 5;
 
 BEGIN { delete $ENV{PERL_INDIRECT_PM_DISABLE} }
 
@@ -83,6 +83,20 @@ sub expect {
  }
 }
 
+SKIP: {
+ skip 'The pragma doesn\'t propagte into eval STRING before perl 5.10' => 2
+                                                               if $] < 5.009005;
+ my @w;
+ my $test = sub { eval 'return; new XYZ' };
+ {
+  local $SIG{__WARN__} = sub { push @w, join '', 'warn:', @_ };
+  eval 'return; no indirect; BEGIN { $test->() }';
+ }
+ is   $@,    '',            'eval test doesn\'t croak prematurely';
+ is   @w,    0,             'eval did not throw a warning';
+ diag join "\n", 'All warnings:', @w if @w;
+}
+
 {
  my @w;
  {