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

# this test is replicated to t/load_module.t for Moo::_Utils

use Role::Tiny ();
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 { } }

Role::Tiny::_load_module("Foo::Bar");

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

done_testing;
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;