X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F10_moose-types.t;h=4039aca697af2ad35f2f701a3c63c121c3e7a175;hb=7186792babbd64572f1b227c2666ead4ee549ede;hp=c7713b8ee42908bf1f9afec8dbeba338c18efbb0;hpb=8af0a70d3dcbde43af13cd45c8e14598350bc5a3;p=gitmo%2FMooseX-Types.git diff --git a/t/10_moose-types.t b/t/10_moose-types.t index c7713b8..4039aca 100644 --- a/t/10_moose-types.t +++ b/t/10_moose-types.t @@ -5,15 +5,19 @@ use strict; use Test::More; use FindBin; use lib "$FindBin::Bin/lib"; -use MooseX::TypeLibrary::Moose ':all'; +use MooseX::Types::Moose ':all', 'Bool'; -my @types = MooseX::TypeLibrary::Moose->type_names; - -plan tests => @types * 3; +my @types = MooseX::Types::Moose->type_names; for my $t (@types) { ok my $code = __PACKAGE__->can($t), "$t() was exported"; - is $code->(), $t, "$t() returns '$t'"; + if ($code) { + is $code->(), $t, "$t() returns '$t'"; + } + else { + diag "Skipping $t() call test"; + } ok __PACKAGE__->can("is_$t"), "is_$t() was exported"; } +done_testing;