Commit | Line | Data |
8af0a70d |
1 | #!/usr/bin/env perl |
2 | use warnings; |
3 | use strict; |
4 | |
5 | use Test::More; |
6 | use FindBin; |
7 | use lib "$FindBin::Bin/lib"; |
16ddefbf |
8 | use MooseX::Types::Moose ':all', 'Bool'; |
8af0a70d |
9 | |
52d358e2 |
10 | my @types = MooseX::Types::Moose->type_names; |
8af0a70d |
11 | |
12 | plan tests => @types * 3; |
13 | |
14 | for my $t (@types) { |
15 | ok my $code = __PACKAGE__->can($t), "$t() was exported"; |
16ddefbf |
16 | if ($code) { |
17 | is $code->(), $t, "$t() returns '$t'"; |
18 | } |
19 | else { |
20 | diag "Skipping $t() call test"; |
21 | } |
8af0a70d |
22 | ok __PACKAGE__->can("is_$t"), "is_$t() was exported"; |
23 | } |
24 | |