Test nested ENTER/LEAVE does not crash

Closes rakudo/rakudo#1455 Rakudo fix: rakudo/rakudo@58de239cc9
Raku · Jan 30, 2018 · 8e4f5ed · 8e4f5ed
1 parent 6c54594
commit 8e4f5ed
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/S04-phasers/enter-leave.t b/S04-phasers/enter-leave.t
@@ -5,7 +5,7 @@ use lib 't/spec/packages';
 use Test;
 use Test::Util;
 
-plan 30;
+plan 31;
 
 # L<S04/Phasers/ENTER "at every block entry time">
 # L<S04/Phasers/LEAVE "at every block exit time">
@@ -270,4 +270,10 @@ plan 30;
         exceptions => sub (@ex) { @ex>>.message ~~ <omg wtf> };
 }
 
+{ # https://github.com/rakudo/rakudo/issues/1455
+    my $res;
+    -> { LEAVE $res := now - ENTER now }();
+    isa-ok $res, Duration, 'using ENTER inside LEAVE does not crash';
+}
+
 # vim: ft=perl6