[perl #69460] tests available

[kyleha]

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

commit 619cfa67371adeb61a8acba6cd17093b13acddf1
Author: kyle <k...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Tue Oct 6 03:30:55 2009 +0000

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

diff --git a/t/spec/S02-names/our.t b/t/spec/S02-names/our.t
index 4efa383..73309f3 100644
--- a/t/spec/S02-names/our.t
+++ b/t/spec/S02-names/our.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 7;
+plan 10;
 
 # L<S02/Names/Symbols in the current package>
 
@@ -26,4 +26,16 @@ plan 7;
     is OUR::c(), 'sub c', 'sub c called with OUR:: works';
 }
 
+# RT #69460
+{
+    our $rt69460 = 1;
+    #?rakudo todo 'RT 69460'
+    eval_lives_ok 'class RT69460 { $rt69460++ }',
+                  'can compile a class that modifies our variable';
+    #?rakudo skip 'RT 69460'
+    ok T.new ~~ RT69460, 'can instantiate class that modifies our variable';
+    #?rakudo todo 'RT 69460'
+    is $rt69460, 2, 'class can modify our variable';
+}
+
 # vim: ft=perl6