Test .perl of handled Failures

RT#131496: https://rt.perl.org/Ticket/Display.html?id=131496
Rakudo fix: rakudo/rakudo@b2a21fa965

S04-exceptions/fail.t

@@ -3,7 +3,7 @@ use lib <t/spec/packages>;
 use Test;
 use Test::Util;
 
-plan 36;
+plan 37;
 
 # L<S04/Exceptions/The fail function>
 
@@ -177,4 +177,10 @@ subtest 'Failure.self' => {
 is_run ｢Failure.new(Exception.new); Nil｣, {:out(""), :err(*), :1status},
     'Failure.new(Exception.new) does not segfault';
 
+# RT #131496
+without Failure.new {
+    is-deeply .perl.EVAL.handled, True,
+      'Failure:D.perl.EVAL roundtrips `handled` flag';
+}
+
 # vim: ft=perl6