X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F06-want_at.t;h=afd36bdb336c416d4e8c6239a1505c57c01525bf;hb=30704f4ee7a37bf404afe21f1303ab690ece4bca;hp=7d29d24444bbc57d523f0e754617a4f975190683;hpb=94447dd11718ac77b9608e0528c5d3d090e63aa1;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/06-want_at.t b/t/06-want_at.t
index 7d29d24..afd36bd 100644
--- a/t/06-want_at.t
+++ b/t/06-want_at.t
@@ -3,7 +3,7 @@
 use strict;
 use warnings;
 
-use Test::More tests => 16;
+use Test::More tests => 19;
 
 use Scope::Upper qw/want_at/;
 
@@ -39,6 +39,11 @@ my @a = sub {
    check want_at(1), 1, 'for : want_at(1)';
    check want_at(2), 1, 'for : want_at(2)';
   }
+  eval "
+   check want_at,    undef, 'eval string : want_at';
+   check want_at(1), 1,     'eval string : want_at(1)';
+   check want_at(2), 1,     'eval string : want_at(2)';
+  ";
   my $x = eval {
    do {
     check want_at,    0, 'do : want_at';