Test .subst works in BEGIN

RT#122789: https://rt.perl.org/Ticket/Display.html?id=122789 Rakudo fix: rakudo/rakudo@a62b221
Raku · Oct 21, 2017 · 9585230 · 9585230
1 parent c81c864
commit 9585230
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/S32-str/substr.t b/S32-str/substr.t
@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 59;
+plan 60;
 
 # L<S32::Str/Str/=item substr>
 
@@ -129,4 +129,7 @@ plan 59;
 fails-like { "".substr: 5 }, X::OutOfRange,
     'Failure in .substr does not get incorrectly handled';
 
+# RT #122789
+lives-ok { BEGIN "a".subst: /a/, "b" }, '.subst in BEGIN does not die';
+
 # vim: ft=perl6