t/load_module_role_tiny.t

   1 # this test is replicated to t/load_module.t for Moo::_Utils
   2
   3 use Role::Tiny ();
   4 use strictures 1;
   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 Role::Tiny::_load_module("Foo::Bar");
  17
  18 ok(eval { Foo::Bar->baz }, 'Loaded module ok');
  19
  20 done_testing;