refactoring nested ifs
[gitmo/Moo.git] / 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;