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"; | |
8 | use MooseX::TypeLibrary::Moose ':all'; | |
9 | ||
10 | my @types = MooseX::TypeLibrary::Moose->type_names; | |
11 | ||
12 | plan tests => @types * 3; | |
13 | ||
14 | for my $t (@types) { | |
15 | ok my $code = __PACKAGE__->can($t), "$t() was exported"; | |
16 | is $code->(), $t, "$t() returns '$t'"; | |
17 | ok __PACKAGE__->can("is_$t"), "is_$t() was exported"; | |
18 | } | |
19 |