[perl #68370] tests available

[kyleha]

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

commit 93c0f5aef4ded4abcb4397deb630eba51f6f412e
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon Aug 10 15:50:12 2009 +0000

    [t/spec] Test for RT #68370
    
    git-svn-id: http://svn.pugscode.org/p...@27948 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-attributes/instance.t b/t/spec/S12-attributes/instance.t
index aa9be08..18bebc1 100644
--- a/t/spec/S12-attributes/instance.t
+++ b/t/spec/S12-attributes/instance.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 128;
+plan 129;
 
 =begin pod
 
@@ -531,4 +531,16 @@ is eval('Foo7e.new.attr'), 42,              "default 
attribute value (1)";
     is C.new.s, 6, "Test class include another class which inherited from same 
role";
 }
 
+# RT #68370
+{
+    class RT68370 {
+        has $!a;
+        method rt68370 { $!a = 68370 }
+    }
+
+    #?rakudo todo 'RT #68370 -- Null PMC Access in getprop()'
+    dies_ok { RT68370.rt68370() },
+        'dies: modify instance attribute via class method call';
+}
+
 # vim: ft=perl6