[gitmo/Moo.git] / t / load_module.t

use strictures 1;
use Test::More;
use Moo::_Utils;

local @INC = (sub {
  return unless $_[1] eq 'Foo/Bar.pm';
  my $source = "package Foo::Bar; sub baz { 1 } 1";
  open my $fh, '<', \$source;
  $fh;
}, @INC);

{ package Foo::Bar::Baz; sub quux { } }

_load_module("Foo::Bar");

ok(eval { Foo::Bar->baz }, 'Loaded module ok');

done_testing;
Commit	Line	Data
cd4896a8	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;