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

# work around RT#67692
use Moo::_Utils;
use strictures 1;

use Test::More;

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
2215d4b9	1	# work around RT#67692
2215d4b9	2	use Moo::_Utils;
cd4896a8	3	use strictures 1;
2215d4b9	4
cd4896a8	5	use Test::More;
cd4896a8	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	_load_module("Foo::Bar");
	17
	18	ok(eval { Foo::Bar->baz }, 'Loaded module ok');
	19
	20	done_testing;