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::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