Test next and last

diff --git a/t/23-localize-ctl.t b/t/23-localize-ctl.t
index 1a0c2a2e5688ba33d347cc2df85868b517cb871f..c85c4a8cf9f6a5a249aae4d07c99fc32ef43fe4b 100644 (file)
--- a/t/23-localize-ctl.t
+++ b/t/23-localize-ctl.t
@@ -3,12 +3,80 @@
 use strict;
 use warnings;
 
-use Test::More tests => 28;
+use Test::More tests => 44;
 
 use Scope::Upper qw/localize/;
 
 our ($x, $y);
 
+{
+ local $x = 1;
+ {
+  local $x = 2;
+  localize '$y' => 1 => 0;
+  is $x, 2, 'last 0 [ok - x]';
+  is $y, 1, 'last 0 [ok - y]';
+  last;
+  $y = 2;
+ }
+ is $x, 1,     'last 0 [end - x]';
+ is $y, undef, 'last 0 [end - y]';
+}
+
+{
+ local $x = 1;
+LOOP:
+ {
+  local $x = 2;
+  local $y = 0;
+  {
+   local $x = 3;
+   localize '$y' => 1 => 1;
+   is $x, 3, 'last 1 [ok - x]';
+   is $y, 0, 'last 1 [ok - y]';
+   last LOOP;
+   $y = 3;
+  }
+  $y = 2;
+ }
+ is $x, 1,     'last 1 [end - x]';
+ is $y, undef, 'last 1 [end - y]';
+}
+
+{
+ local $x = 1;
+ {
+  local $x = 2;
+  localize '$y' => 1 => 0;
+  is $x, 2, 'next 0 [ok - x]';
+  is $y, 1, 'next 0 [ok - y]';
+  next;
+  $y = 2;
+ }
+ is $x, 1,     'next 0 [end - x]';
+ is $y, undef, 'next 0 [end - y]';
+}
+
+{
+ local $x = 1;
+LOOP:
+ {
+  local $x = 2;
+  local $y = 0;
+  {
+   local $x = 3;
+   localize '$y' => 1 => 1;
+   is $x, 3, 'next 1 [ok - x]';
+   is $y, 0, 'next 1 [ok - y]';
+   next LOOP;
+   $y = 3;
+  }
+  $y = 2;
+ }
+ is $x, 1,     'next 1 [end - x]';
+ is $y, undef, 'next 1 [end - y]';
+}
+
 {
  local $x = 1;
  {