[perl #69676] tests available

[kyleha]

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

commit bab5843563abbdd1932d8f6436b16d74009ce39a
Author: moritz <mor...@c213334d-75ef-0310-aa23-eaa082d1ae64>
Date:   Sun Jul 18 12:04:09 2010 +0000

    [t/spec] tests for RT #69676, delegating .new to self.Mu::new
    
    git-svn-id: http://svn.pugscode.org/p...@31745 
c213334d-75ef-0310-aa23-eaa082d1ae64

diff --git a/t/spec/S12-construction/new.t b/t/spec/S12-construction/new.t
index c9ae68e..38894c9 100644
--- a/t/spec/S12-construction/new.t
+++ b/t/spec/S12-construction/new.t
@@ -56,6 +56,23 @@ is $o.x, 5, '... worked for the class Parent (other order)';
     dies_ok { RT71706::Artie.new }, 'die trying to instantiate missing class';
 }
 
+# RT #69676
+{
+    class NewFromMu {
+        has $.x;
+        has $.y;
+
+        method new($a, $b) {
+            self.Mu::new(:x($a), :y($b));
+        }
+    }
+
+    my $x;
+    lives_ok { $x = NewFromMu.new('j', 'k') }, 'can delegate to self.Mu::new';
+    is $x.x, 'j', '... got the right attribute (1)';
+    is $x.y, 'k', '... got the right attribute (2)';
+}
+
 done_testing;
 
 # vim: ft=perl6