[perl #75234] tests available

[kyleha]

This is an automatically generated mail to inform you that tests are now 
available in t/spec/S03-metaops/reduce.t

commit 80cda339998f067ff095ec9e3ffbfcd3093ca367
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Mon May 24 11:01:59 2010 +0000

    [t/spec] tests for RT #75234, using a metaop in one class hides it from a 
second class
    
    git-svn-id: http://svn.pugscode.org/p...@30771 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S03-metaops/reduce.t b/t/spec/S03-metaops/reduce.t
index 1a0de91..f3d2c4e 100644
--- a/t/spec/S03-metaops/reduce.t
+++ b/t/spec/S03-metaops/reduce.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 83;
+plan 86;
 
 =begin pod
 
@@ -210,4 +210,20 @@ is( ([\R~] 'a'..*).batch(8).join(', '), 'a, ba, cba, dcba, 
edcba, fedcba, gfedcb
     is [^^](0, 0, 17), (0 ^^ 0 ^^ 17), '[^^] mix 6';
 }
 
+# RT #75234
+# rakudo had a problem where once-used meta operators weren't installed
+# in a sufficiently global location, so using a meta operator in class once
+# makes it unusable further on
+{
+    class A {
+        method m { return [~] gather for ^3 {take 'a'} }
+    }
+    class B {
+        method n { return [~] gather for ^4 {take 'b'}}
+    }
+    is A.new.m, 'aaa',  '[~] works in first class';
+    is B.new.n, 'bbbb', '[~] works in second class';
+    is ([~] 1, 2, 5), '125', '[~] works outside class';
+}
+
 # vim: ft=perl6