Test Failure.new(Exception.new) does not segfault

RT#124434: https://rt.perl.org/Ticket/Display.html?id=124434
Raku · Dec 11, 2017 · 65336f6 · 65336f6
1 parent 5cbef9d
commit 65336f6
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S04-exceptions/fail.t b/S04-exceptions/fail.t
@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 35;
+plan 36;
 
 # L<S04/Exceptions/The fail function>
 
@@ -173,4 +173,8 @@ subtest 'Failure.self' => {
     is-deeply $f, $f.self, 'handled exceptions are passed through as is';
 }
 
+# RT #124434
+is_run ｢Failure.new(Exception.new); Nil｣, {:out(""), :err(*), :1status},
+    'Failure.new(Exception.new) does not segfault';
+
 # vim: ft=perl6