[gitmo/MooseX-Dependent.git] / t / 01-dependent.t


use Test::More tests=>2; {
	
	use strict;
	use warnings;
	
	use MooseX::Dependent::Types qw(Dependent);
	use MooseX::Types -declare=>[qw(SubDependent)];
	use Moose::Util::TypeConstraints;

	## Raw tests on dependent.
	ok subtype( SubDependent, as Dependent ), 'Create a useless subtype';
	ok ((Dependent->check(1)), 'Dependent is basically an Any');

}
Commit	Line	Data
a588ee00	1
	2	use Test::More tests=>2; {
	3
	4	use strict;
	5	use warnings;
	6
	7	use MooseX::Dependent::Types qw(Dependent);
	8	use MooseX::Types -declare=>[qw(SubDependent)];
	9	use Moose::Util::TypeConstraints;
	10
	11	## Raw tests on dependent.
	12	ok subtype( SubDependent, as Dependent ), 'Create a useless subtype';
	13	ok ((Dependent->check(1)), 'Dependent is basically an Any');
	14
	15	}