t/load_module.t

   1 # this test is replicated to t/load_module_role_tiny.t for Role::Tiny
   2
   3 # work around RT#67692
   4 use Moo::_Utils;
   5 use strictures 1;
   6
   7 use Test::More;
   8
   9 local @INC = (sub {
  10   return unless $_[1] eq 'Foo/Bar.pm';
  11   my $source = "package Foo::Bar; sub baz { 1 } 1";
  12   open my $fh, '<', \$source;
  13   $fh;
  14 }, @INC);
  15
  16 { package Foo::Bar::Baz; sub quux { } }
  17
  18 _load_module("Foo::Bar");
  19
  20 ok(eval { Foo::Bar->baz }, 'Loaded module ok');
  21
  22 done_testing;