Moose::Exporter fails to apply metaclass_roles

[gitmo/Moose.git] / t / 050_metaclasses / 012_moose_exporter.t

diff --git a/t/050_metaclasses/012_moose_exporter.t b/t/050_metaclasses/012_moose_exporter.t
index 93ec1bb..6efa2e9 100644 (file)
--- a/t/050_metaclasses/012_moose_exporter.t
+++ b/t/050_metaclasses/012_moose_exporter.t
@@ -8,7 +8,7 @@ use Test::Exception;
 BEGIN {
     eval "use Test::Output;";
     plan skip_all => "Test::Output is required for this test" if $@;
-    plan tests => 65;
+    plan tests => 68;
 }
 
 
@@ -389,3 +389,33 @@ BEGIN {
     ok( ! UseAllOptions->can($_), "UseAllOptions::$_ has been unimported" )
         for qw( with_meta1 with_meta2 with_caller1 with_caller2 as_is1 );
 }
+
+{
+  package MyTraitWithAttr;
+  use Moose::Role;
+  
+  has 'registry' => ( is => 'ro' );
+}
+
+{
+  package MyMooseExporterForAttr;
+  use Moose ();
+  use Moose::Exporter;
+  
+  Moose::Exporter->setup_import_methods(
+    metaclass_roles => ['MyTraitWithAttr'],
+    also => 'Moose',
+  );
+}
+
+{
+  package MyAttrTraitUser;
+  MyMooseExporterForAttr->import();
+}
+
+{
+  ok(MyMooseExporterForAttr->can('meta'), 'MyAttrTraitUser has meta()');
+  my $meta;
+  lives_ok sub { MyMooseExporterForAttr->meta}, '... and we can call it';
+  ok($meta->can('registry'), '... and our MyTraitWithAttr was applied');
+}