got all the tests working again, and basic type tests in place

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

use Test::More tests=>62; {
	
	use strict;
	use warnings;
	
	use MooseX::Dependent::Types qw(Dependent);
	use MooseX::Types::Moose qw(Int Any);
	use MooseX::Types -declare=>[qw(SubDependent IntLessThan EvenInt
		LessThan100GreatThen5andEvenIntNot44)];
	use Moose::Util::TypeConstraints;
	
	ok Dependent->check(1),
	  'Dependent is basically an "Any"';
	  
	is Dependent->validate(1), undef,
	  'No Error Message';
	  
	is Dependent->parent, 'Any',
	  'Dependent is an Any';
	  
	is Dependent->name, 'MooseX::Dependent::Types::Dependent',
	  'Dependent has expected name';
	  
	is Dependent->get_message,
	  "Validation failed for 'MooseX::Dependent::Types::Dependent' failed with value undef",
	  'Got Expected Message';
	  
	ok Dependent->equals(Dependent),
	  'Dependent equal Dependent';
	  
	ok Dependent->is_a_type_of(Dependent),
	  'Dependent is_a_type_of Dependent';
	  
	ok Dependent->is_a_type_of('Any'),
	  'Dependent is_a_type_of Any';
	  
	ok Dependent->is_subtype_of('Any'),
	  'Dependent is_subtype_of Dependent';

	is Dependent->parent_type_constraint, 'Any',
	  'Correct parent type';

	is subtype( SubDependent, as Dependent ),
	  'main::SubDependent',
	  'Create a useless subtype';

	ok SubDependent->check(1),
	  'SubDependent is basically an "Any"';
	  
	is SubDependent->validate(1), undef,
	  'validate returned no error message';

	is SubDependent->parent, 'MooseX::Dependent::Types::Dependent',
	  'SubDependent is a Dependent';
	  
	is SubDependent->name, 'main::SubDependent',
	  'Dependent has expected name';
	  
	is SubDependent->get_message,
	  "Validation failed for 'main::SubDependent' failed with value undef",
	  'Got Expected Message';
	  
	ok SubDependent->equals(SubDependent),
	  'SubDependent equal SubDependent';
	  
	ok !SubDependent->equals(Dependent),
	  'SubDependent does not equal Dependent';
	  
	ok SubDependent->is_a_type_of(Dependent),
	  'SubDependent is_a_type_of Dependent';
	  
	ok SubDependent->is_a_type_of(Any),
	  'SubDependent is_a_type_of Any';
	  
	ok SubDependent->is_subtype_of('Any'),
	  'SubDependent is_subtype_of Dependent';
	  
	ok !SubDependent->is_subtype_of(SubDependent),
	  'SubDependent is not is_subtype_of SubDependent';
	
	ok subtype( EvenInt,
		as Int,
		where {
			my $val = shift @_;
			return $val % 2 ? 0:1;
		}),
	  'Created a subtype of Int';

	ok !EvenInt->check('aaa'), '"aaa" not an Int';	  
	ok !EvenInt->check(1), '1 is not even';
	ok EvenInt->check(2), 'but 2 is!';
	  
	ok subtype( IntLessThan,
		as Dependent[EvenInt, Int],
		where {
			my $value = shift @_;
			my $constraining = shift @_ || 200;  #warn "..... $constraining ......";
			return ($value < $constraining && $value > 5);
		}),
	  'Created IntLessThan subtype';
	  
	ok !IntLessThan->check('aaa'),
	  '"aaa" is not an integer';
	  
	is IntLessThan->validate('aaa'),
	  "Validation failed for 'main::EvenInt' failed with value aaa",
	  'Got expected error messge for "aaa"';
	  
	ok !IntLessThan->check(1),
	  '1 smaller than 5';

	ok !IntLessThan->check(2),
	  '2 smaller than 5';
	  
	ok !IntLessThan->check(15),
	  '15 greater than 5 (but odd)';

	ok !IntLessThan->check(301),
	  '301 is too big';
	  
	ok !IntLessThan->check(400),
	  '400 is too big';
	  
	ok IntLessThan->check(10),
	  '10 greater than 5 (and even)';
	  
	is IntLessThan->validate(1),
	  "Validation failed for 'main::EvenInt' failed with value 1",
	  'error message is correct';
	  
	is IntLessThan->name, 'main::IntLessThan',
	  'Got correct name for IntLessThan';
	
	is IntLessThan->parent, 'MooseX::Dependent::Types::Dependent[main::EvenInt, Int]',
	  'IntLessThan is a Dependent';
	  
	is IntLessThan->parent_type_constraint, EvenInt,
	  'Parent is an Int';
	  
	is IntLessThan->constraining_value_type_constraint, Int,
	  'constraining is an Int';
	  
	ok IntLessThan->equals(IntLessThan),
	  'IntLessThan equals IntLessThan';

	ok IntLessThan->is_subtype_of(Dependent),
	  'IntLessThan is_subtype_of Dependent';	  

	ok IntLessThan->is_subtype_of(Int),
	  'IntLessThan is_subtype_of Int';

	ok IntLessThan->is_a_type_of(Dependent),
	  'IntLessThan is_a_type_of Dependent';	  

	ok IntLessThan->is_a_type_of(Int),
	  'IntLessThan is_a_type_of Int';

	ok IntLessThan->is_a_type_of(IntLessThan),
	  'IntLessThan is_a_type_of IntLessThan';
	  
	ok( (my $lessThan100GreatThen5andEvenInt = IntLessThan[100]),
	   'Parameterized!');
	
	ok !$lessThan100GreatThen5andEvenInt->check(150),
	  '150 Not less than 100';
	  
	ok !$lessThan100GreatThen5andEvenInt->check(151),
	  '151 Not less than 100';
	  
	ok !$lessThan100GreatThen5andEvenInt->check(2),
	  'Not greater than 5';

	ok !$lessThan100GreatThen5andEvenInt->check(51),
	  'Not even';

	ok !$lessThan100GreatThen5andEvenInt->check('aaa'),
	  'Not Int';
	  
	ok $lessThan100GreatThen5andEvenInt->check(42),
	  'is Int, is even, greater than 5, less than 100';

	ok subtype( LessThan100GreatThen5andEvenIntNot44,
		as IntLessThan[100],
		where {
			my $value = shift @_;
			return $value == 44 ? 0:1;
		}),
	  'Created LessThan100GreatThen5andEvenIntNot44 subtype';

	ok !LessThan100GreatThen5andEvenIntNot44->check(150),
	  '150 Not less than 100';
	  
	ok !LessThan100GreatThen5andEvenIntNot44->check(300),
	  '300 Not less than 100 (check to make sure we are not defaulting 200)';
	  
	ok !LessThan100GreatThen5andEvenIntNot44->check(151),
	  '151 Not less than 100';
	  
	ok !LessThan100GreatThen5andEvenIntNot44->check(2),
	  'Not greater than 5';

	ok !LessThan100GreatThen5andEvenIntNot44->check(51),
	  'Not even';

	ok !LessThan100GreatThen5andEvenIntNot44->check('aaa'),
	  'Not Int';
	  
	ok LessThan100GreatThen5andEvenIntNot44->check(42),
	  'is Int, is even, greater than 5, less than 100';

	ok !LessThan100GreatThen5andEvenIntNot44->check(44),
	  'is Int, is even, greater than 5, less than 100 BUT 44!';
	  
	#die IntLessThan->validate(100);
	#use Data::Dump qw/dump/;
	#warn dump IntLessThan;
}