[p5sagit/Function-Parameters.git] / t / foreign / Method-Signatures / typeload_moose.t

#!perl

use strict;
use warnings FATAL => 'all';
use Dir::Self;
use lib __DIR__ . '/lib';

use Test::More
	eval { require Moose; 1 }
	? (tests => 2)
	: (skip_all => "Moose required for testing types")
;


require MooseLoadTest;

my $foobar = Foo::Bar->new;

# can't check for type module not being loaded here, because Moose will drag it in


$foobar->check_int(42);

# now we should have loaded Moose, not Mouse, to do our type checking

is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, "didn't load Mouse";
like $INC{'Moose/Util/TypeConstraints.pm'}, qr{Moose/Util/TypeConstraints\.pm$}, 'loaded Moose';
Commit	Line	Data
700071de	1	#!perl
	2
	3	use strict;
	4	use warnings FATAL => 'all';
	5	use Dir::Self;
	6	use lib __DIR__ . '/lib';
	7
	8	use Test::More
	9	eval { require Moose; 1 }
	10	? (tests => 2)
	11	: (skip_all => "Moose required for testing types")
	12	;
	13
	14
	15	require MooseLoadTest;
	16
	17	my $foobar = Foo::Bar->new;
	18
	19	# can't check for type module not being loaded here, because Moose will drag it in
	20
	21
	22	$foobar->check_int(42);
	23
	24	# now we should have loaded Moose, not Mouse, to do our type checking
	25
	26	is $INC{'Mouse/Util/TypeConstraints.pm'}, undef, "didn't load Mouse";
	27	like $INC{'Moose/Util/TypeConstraints.pm'}, qr{Moose/Util/TypeConstraints\.pm$}, 'loaded Moose';