X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=Moose-t-failing%2F040_type_constraints%2F004_util_find_type_constraint.t;fp=Moose-t-failing%2F040_type_constraints%2F004_util_find_type_constraint.t;h=0000000000000000000000000000000000000000;hb=12497085db697a49a8b8794b003f5cff91c1f171;hp=7caf2281efc6fb511bbeba7714d03bef670b927e;hpb=73468dacfcea5f81cafa24fd3bea5a1987457238;p=gitmo%2FMouse.git diff --git a/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t b/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t deleted file mode 100644 index 7caf228..0000000 --- a/Moose-t-failing/040_type_constraints/004_util_find_type_constraint.t +++ /dev/null @@ -1,44 +0,0 @@ -#!/usr/bin/perl -# This is automatically generated by author/import-moose-test.pl. -# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! -use t::lib::MooseCompat; - -use strict; -use warnings; - -use Test::More; -$TODO = q{Mouse is not yet completed}; -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 - -done_testing;