t/load_module.t

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