[perl #67790] 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 9be2b1d3ad7c79a41c1c367ba688a9c46a9bedd5
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sat Aug 8 01:42:55 2009 +0000

    [t/spec] Test for RT #67790
    
    git-svn-id: http://svn.pugscode.org/p...@27896 
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 85f9c92..98c779a 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 17 + 2...@tests;
+plan 18 + 2...@tests;
 #?pugs emit force_todo 8, 45..50, 94, 96;
 
 #?pugs emit unless $?PUGS_BACKEND eq "BACKEND_PUGS" {
@@ -196,3 +196,10 @@ plan 17 + 2...@tests;
     #?rakudo todo 'RT #64080'
     ok %h<a> !=== %h<a>[0], 'hoa does not refer to hash element';
 }
+
+# RT #67790
+{
+    class RT67790 {}
+    lives_ok { RT67790.HOW.perl }, 'can .perl on .HOW';
+    # TODO: check that eval( RT67790.HOW.perl ) 'is' RT67790.HOW
+}