Add t/55-unwind-multi.t (with a failing test)

diff --git a/MANIFEST b/MANIFEST
index da4fe1af4a50e6d72a56a1d99236ddb2628d18ac..3a778143456d40c0fca2a603ecfed60fa05d0e4b 100644 (file)
--- a/MANIFEST
+++ b/MANIFEST
@@ -25,6 +25,7 @@ t/40-localize_delete-target.t
 t/41-localize_delete-level.t
 t/44-localize_delete-magic.t
 t/50-unwind-context.t
+t/55-unwind-multi.t
 t/81-stress-level.t
 t/90-boilerplate.t
 t/91-pod.t

diff --git a/t/55-unwind-multi.t b/t/55-unwind-multi.t
new file mode 100644 (file)
index 0000000..aa37026
--- /dev/null
+++ b/t/55-unwind-multi.t
@@ -0,0 +1,65 @@
+#!perl -T
+
+use strict;
+use warnings;
+
+use Test::More tests => 13;
+
+use Scope::Upper qw/unwind/;
+
+my ($l1, $l2);
+
+our $x;
+
+sub c {
+ $x = 3;
+ sub {
+  unwind("eval", eval {
+   do {
+    for (3, 4, 5) {
+     1, unwind('from', 'the', 'sub', 'c' => $l1);
+    }
+   }
+  } => $l2);
+ }->(2, 3, 4);
+ return 'in c'
+}
+
+sub b {
+ local $x = 2;
+ my @c = (1 .. 12, c());
+ is $x, 3, '$x in b after c()';
+ return @c, 'in b';
+}
+
+sub a {
+ local $x = 1;
+ my @b = b();
+ is $x, 1, '$x in a after b()';
+ return @b, 'in a';
+}
+
+$l1 = 0;
+$l2 = 0;
+is_deeply [ a() ], [ 1 .. 12, 'in c', 'in b', 'in a' ],
+          'l1=0, l2=0';
+
+$l1 = 0;
+$l2 = 1;
+is_deeply [ a() ], [ 1 .. 12, qw/eval from the sub c/, 'in b', 'in a' ],
+          'l1=0, l2=1';
+
+$l1 = 0;
+$l2 = 2;
+is_deeply [ a() ], [ qw/eval from the sub c/, 'in a' ],
+          'l1=0, l2=2';
+
+$l1 = 4;
+$l2 = 999;
+is_deeply [ a() ], [ 1 .. 12, qw/from the sub c/, 'in b', 'in a' ],
+          'l1=4, l2=?';
+
+$l1 = 5;
+$l2 = 999;
+is_deeply [ a() ], [ qw/from the sub c/, 'in a' ],
+          'l1=5, l2=?';