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 plan tests => @types * 3;
  13
  14 for my $t (@types) {
  15     ok my $code = __PACKAGE__->can($t), "$t() was exported";
  16     if ($code) {
  17         is $code->(), $t, "$t() returns '$t'";
  18     }
  19     else {
  20         diag "Skipping $t() call test";
  21     }
  22     ok __PACKAGE__->can("is_$t"), "is_$t() was exported";
  23 }
  24