meta_lookup needs to propagate downwards, if unspecified

[gitmo/Moose.git] / t / metaclasses / exporter_meta_lookup.t

diff --git a/t/metaclasses/exporter_meta_lookup.t b/t/metaclasses/exporter_meta_lookup.t
index 504f775..74a6ddc 100644 (file)
--- a/t/metaclasses/exporter_meta_lookup.t
+++ b/t/metaclasses/exporter_meta_lookup.t
@@ -14,10 +14,13 @@ use Test::Fatal;
     use Moose ();
     use Moose::Exporter;
 
+    sub meta_lookup { $_[0] }
+
     BEGIN {
         Moose::Exporter->setup_import_methods(
             also        => 'Moose',
             meta_lookup => sub { Class::MOP::class_of('Class::Vacuum::Innards') },
+            with_meta   => ['meta_lookup'],
         );
     }
 }
@@ -29,10 +32,35 @@ use Test::Fatal;
     has star_rod => (
         is => 'ro',
     );
+
+    ::is(meta_lookup, Class::Vacuum::Innards->meta, "right meta_lookup");
 }
 
 ok(Class::Vacuum::Innards->can('star_rod'), 'Vacuum stole the star_rod method');
 ok(!Victim->can('star_rod'), 'Victim does not get it at all');
 
+{
+    package Class::Vacuum::Reexport;
+    use Moose::Exporter;
+
+    BEGIN {
+        Moose::Exporter->setup_import_methods(also => 'Class::Vacuum');
+    }
+}
+
+{
+    package Victim2;
+    BEGIN { Class::Vacuum::Reexport->import }
+
+    has parasol => (
+        is => 'ro',
+    );
+
+    ::is(meta_lookup, Class::Vacuum::Innards->meta, "right meta_lookup");
+}
+
+ok(Class::Vacuum::Innards->can('parasol'), 'Vacuum stole the parasol method');
+ok(!Victim2->can('parasol'), 'Victim does not get it at all');
+
 done_testing;