Commit | Line | Data |
---|---|---|
5e03b55c | 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; |