[perl #63724] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S02-names_and_variables/perl.t

commit 7a029f8dfbb76deae6424164fc8e500b14879ee2
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Fri Jul 24 21:22:30 2009 +0000

    [t/spec] Test for RT #63724
    
    git-svn-id: http://svn.pugscode.org/p...@27719 
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 36fa24e..2cad9ea 100644
--- a/t/spec/S02-names_and_variables/perl.t
+++ b/t/spec/S02-names_and_variables/perl.t
@@ -55,7 +55,7 @@ my @tests = (
     [ { :a(1) }, { :b(2), :c(3) } ],
 );
 
-plan 12 + 2...@tests;
+plan 16 + 2...@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -168,3 +168,24 @@ plan 12 + 2...@tests;
 
     # TODO: more tests that show eval($t1_init) has the same guts as $t1.
 }
+
+# RT #63724
+{
+    my @original      = (1,2,3);
+    my $dehydrated    = @original.perl;
+    my @reconstituted = eval $dehydrated;
+
+    is @reconstituted, @original,
+       "eval of .perl returns original for '$dehydrated'";
+    #?rakudo todo 'RT #63724'
+    ok $dehydrated ~~ / '(' .* ',' .* ')' /, 'List.perl has parens and comma';
+
+    @original = (1,);
+    $dehydrated    = @original.perl;
+    @reconstituted = eval $dehydrated;
+
+    is @reconstituted, @original,
+       "eval of .perl returns original for '$dehydrated'";
+    #?rakudo todo 'RT #63724'
+    ok $dehydrated ~~ / '(' .* ',' .* ')' /, 'List.perl has parens and comma';
+}