Test for RT #125715.

Author: jnthn

S11-modules/export.t

@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 40;
+plan 41;
 
 # L<S11/"Exportation"/>
 
@@ -179,4 +179,17 @@ ok( ! &EXPORT::DEFAULT::exp_my_tag,
         'adequate error message when multi sub exported out of a module fails to bind to an argument that happens to be a block';
 }
 
+# RT #125715
+{
+    use lib 't/spec/packages';
+    use RT125715;
+
+    my class Baz {
+        has Bar $.bar;
+    }
+
+    lives-ok { Baz.new(bar => Bar.new) },
+        'Using EXPORT-d type as attribute type works';
+}
+
 # vim: ft=perl6

packages/RT125715.pm6

@@ -0,0 +1,2 @@
+class Foo {}
+sub EXPORT(|){ { 'Bar' => Foo } }