Here is a test for last in an inferior runloop. May not be general en…

…ough.
Raku · Aug 6, 2011 · 9b9d276 · 9b9d276
1 parent 53d2c03
commit 9b9d276
Showing 1 changed file with 20 additions and 0 deletions.
diff --git a/S04-exceptions/control_across_runloop.t b/S04-exceptions/control_across_runloop.t
@@ -0,0 +1,20 @@
+use v6;
+
+use Test;
+
+# L<S04/Control Exceptions>
+
+# Test primarily aimed at Niecza
+
+plan 1;
+
+{
+    sub foo($x = last) { $x }
+
+    my $i = 0;
+    for 1,2,3 { $i++; foo(); }
+
+    is $i, 1, 'control operator last can be used in an inferior context';
+}
+
+# vim: ft=perl6