From: Vincent Pit <vince@profvince.com>
Date: Sun, 11 Jan 2009 18:29:30 +0000 (+0100)
Subject: Complete with_at() coverage
X-Git-Tag: v0.04~1
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=30704f4ee7a37bf404afe21f1303ab690ece4bca;p=perl%2Fmodules%2FScope-Upper.git

Complete with_at() coverage
---

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';