[gitmo/Mouse.git] / t / 040_type_constraints / failing / 004_util_find_type_constraint.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 18;
use Test::Exception;

BEGIN {
    use_ok('Mouse::Util::TypeConstraints');
}

foreach my $type_name (qw(
    Any
    Item
        Bool
        Undef
        Defined
            Value
                Num
                  Int
                Str
            Ref
                ScalarRef
                ArrayRef
                HashRef
                CodeRef
                RegexpRef
                Object
                    Role
    )) {
    is(find_type_constraint($type_name)->name,
       $type_name,
       '... got the right name for ' . $type_name);
}

# TODO:
# add tests for is_subtype_of which confirm the hierarchy
Commit	Line	Data
b2b106d7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 18;
	7	use Test::Exception;
	8
	9	BEGIN {
	10	use_ok('Mouse::Util::TypeConstraints');
	11	}
	12
	13	foreach my $type_name (qw(
	14	Any
	15	Item
	16	Bool
	17	Undef
	18	Defined
	19	Value
	20	Num
	21	Int
	22	Str
	23	Ref
	24	ScalarRef
	25	ArrayRef
	26	HashRef
	27	CodeRef
	28	RegexpRef
	29	Object
	30	Role
	31	)) {
	32	is(find_type_constraint($type_name)->name,
	33	$type_name,
	34	'... got the right name for ' . $type_name);
	35	}
	36
	37	# TODO:
	38	# add tests for is_subtype_of which confirm the hierarchy