Replace raw level numbers by words, except in t/55-unwind-multi.t

[perl/modules/Scope-Upper.git] / t / 25-localize-multi.t

diff --git a/t/25-localize-multi.t b/t/25-localize-multi.t
index f205e75c9902e5258459d00611384b22be18f237..e696b547c518da132345159a28ca09fd98d7a34e 100644 (file)
--- a/t/25-localize-multi.t
+++ b/t/25-localize-multi.t
@@ -5,11 +5,11 @@ use warnings;
 
 use Test::More tests => 10 + 5 + 6;
 
-use Scope::Upper qw/localize/;
+use Scope::Upper qw/localize UP HERE/;
 
 our $x;
 
-sub loc { local $x; my $y = $_[1]; localize '$x', $y, $_[0] + 1 }
+sub loc { local $x; my $y = $_[0]; localize '$x', $y => $_[1] }
 
 $x = 0;
 {
@@ -17,7 +17,7 @@ $x = 0;
  local $x = 7;
  {
   local $x = 8;
-  loc(1, 1);
+  loc 1 => UP;
   is($x, 8, 'not localized');
   local $x = 9;
   is($x, 9, 'not localized');
@@ -43,10 +43,10 @@ $x = 0;
  {
   {
    local $x = 8;
-   loc(2, 1);
+   loc 1 => UP UP;
    is($x, 8, 'not localized');
   }
-  loc(0, 2);
+  loc 2 => HERE;
   is($x, 2, 'localized to 2');
  }
  is($x, 1, 'localized to 1');
@@ -59,10 +59,10 @@ $x = 0;
  local $x;
  {
   {
-   loc(2, 1);
+   loc 1 => UP UP;
    is($x, undef, 'not localized');
    local $x;
-   loc(1, 2);
+   loc 2 => UP;
    is($x, undef, 'not localized');
   }
   is($x, 2, 'localized to 2');