t/10_moose-types.t

   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::Types::Moose ':all', 'Bool';
   9
  10 my @types = MooseX::Types::Moose->type_names;
  11
  12 for my $t (@types) {
  13     ok my $code = __PACKAGE__->can($t), "$t() was exported";
  14     if ($code) {
  15         is $code->(), $t, "$t() returns '$t'";
  16     }
  17     else {
  18         diag "Skipping $t() call test";
  19     }
  20     ok __PACKAGE__->can("is_$t"), "is_$t() was exported";
  21 }
  22
  23 done_testing;