X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=t%2F50-unwind-target.t;h=9ef70ecf7a213fc80c99621d455b7389c6f7d452;hb=2ede1b8c4c9b948ddfe278e44f19f4a57648cf10;hp=35ca97e82cd7f2b316d352ef4d9a22a886a180e6;hpb=f0bcaf18260322fd0bc7ebe1bcae0cff45681a4d;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/t/50-unwind-target.t b/t/50-unwind-target.t
index 35ca97e..9ef70ec 100644
--- a/t/50-unwind-target.t
+++ b/t/50-unwind-target.t
@@ -5,7 +5,7 @@ use warnings;
 
 use Test::More tests => 4;
 
-use Scope::Upper qw/unwind/;
+use Scope::Upper qw<unwind>;
 
 my @res;
 
@@ -22,8 +22,8 @@ is_deeply \@res, [ 7 ], 'unwind()';
 is_deeply \@res, [ 7 ], 'unwind(-1)';
 
 @res = (7, eval {
- unwind 100;
+ unwind 0;
  8;
 });
-like $@, qr/^Can't\s+return\s+outside\s+a\s+subroutine/, 'unwind(100)';
-is_deeply \@res, [ 7 ], 'unwind(100)';
+like $@, qr/^Can't\s+return\s+outside\s+a\s+subroutine/, 'unwind(0) croaks';
+is_deeply \@res, [ 7 ], 'unwind(0)';