t/load_module.t

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