[gitmo/MooseX-Types.git] / t / 10_moose-types.t

#!/usr/bin/env perl
use warnings;
use strict;

use Test::More;
use FindBin;
use lib "$FindBin::Bin/lib";
use MooseX::Types::Moose ':all';

my @types = MooseX::Types::Moose->type_names;

plan tests => @types * 3;

for my $t (@types) {
    ok my $code = __PACKAGE__->can($t), "$t() was exported";
    is $code->(), $t, "$t() returns '$t'";
    ok __PACKAGE__->can("is_$t"), "is_$t() was exported";
}
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";
52d358e2	8	use MooseX::Types::Moose ':all';
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";
	16	is $code->(), $t, "$t() returns '$t'";
	17	ok __PACKAGE__->can("is_$t"), "is_$t() was exported";
	18	}
	19