[perl #64080] 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 31c7bee223f2343bb87ca5e8d28476a3787e71d5
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Wed Jul 29 01:19:01 2009 +0000

    [t/spec] Test for RT #64080 (may be misplaced)
    
    git-svn-id: http://svn.pugscode.org/p...@27789 
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 667c4e1..85f9c92 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 14 + 2...@tests;
+plan 17 + 2...@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -185,3 +185,14 @@ plan 14 + 2...@tests;
     is @reconstituted, @original,
        "eval of .perl returns original for '$dehydrated'";
 }
+
+# RT #64080
+{
+    my %h;
+    lives_ok { %h<a> = [%h<a>] },
+             'can assign list with new hash element to itself';
+    #?rakudo skip 'RT #64080'
+    lives_ok { %h<a>.perl }, 'can take .perl from hash element';
+    #?rakudo todo 'RT #64080'
+    ok %h<a> !=== %h<a>[0], 'hoa does not refer to hash element';
+}