This is an automatically generated mail to inform you that tests are now
available in t/spec/S02-names_and_variables/perl.t
commit 088e4c282ef38d09cabcd81c89ed6cde2d819c6c
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date: Tue Oct 27 02:35:15 2009 +0000
[t/spec] Test for RT 65988, recursion in .perl on List with Captures
git-svn-id: http://svn.pugscode.org/p...@28915
c213334d-75ef-0310-aa23-eaa082d1ae64
diff --git a/t/spec/S02-names_and_variables/perl.t
b/t/spec/S02-names_and_variables/perl.t
index d795888..a0193b8 100644
--- a/t/spec/S02-names_and_variables/perl.t
+++ b/t/spec/S02-names_and_variables/perl.t
@@ -211,6 +211,13 @@ my @tests = (
is eval( 1.0.perl ).WHAT, Rat, "1.0 perl'd and eval'd is Rat";
}
+# RT #65988
+{
+ my $rt65988 = (\(1,2), \(3,4));
+ #?rakudo skip 'RT 65988'
+ is_deeply eval( $rt65988.perl ), $rt65988, $rt65988.perl ~ '.perl';
+}
+
done_testing;
# vim: ft=perl6
