[perl #74236] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S12-methods/what.t

commit b2c44b304761621c37f3a9b72f2b28461db3dbda
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jul 18 11:57:00 2010 +0000

    [t/spec] tests for RT #74236, &Class::method access
    
    git-svn-id: http://svn.pugscode.org/p...@31744 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-methods/what.t b/t/spec/S12-methods/what.t
index d315964..b1a1056 100644
--- a/t/spec/S12-methods/what.t
+++ b/t/spec/S12-methods/what.t
@@ -95,6 +95,19 @@ ok 1.1 == 11/10, 'decimal == the equivalent rational';
     is ~2.WHAT, 'Int()', 'assignment to Int.WHAT does nothing';
 }
 
+{
+    class AccessMethods {
+        our method a { };
+        method b { };
+    }
+
+    ok &AccessMethods::a.defined, 'Can access "our" method with 
&class::method';
+    ok &AccessMethods::a ~~ Method, '... and got a Method back';
+    nok &AccessMethods::b.defined, '"has" methods are hidden';
+    lives_ok {&AccessMethods::c.defined and die "foo"}, 'non-existant method 
access livess (and returns undef)';
+
+}
+
 done_testing;
 
 # vim: ft=perl6