[gitmo/MooseX-Dependent.git] / t / 06-anonymous.t


use strict;
use warnings;

use Test::More;
use MooseX::Types;
use MooseX::Types::Parameterizable qw(Parameterizable);
use MooseX::Types::Moose qw(Int Str);

ok my $varchar = (subtype as Parameterizable[Str, Int], where { $_[1] > length($_[0]); }),
  'Anonymous Type';

ok $varchar->parameterize(5)->check('aaa');
ok !$varchar->parameterize(5)->check('aaaaa');

done_testing;
Commit	Line	Data
ffd6c41d	1
	2	use strict;
	3	use warnings;
	4
	5	use Test::More;
8b4e7f39	6	use MooseX::Types;
ffd6c41d	7	use MooseX::Types::Parameterizable qw(Parameterizable);
	8	use MooseX::Types::Moose qw(Int Str);
	9
	10	ok my $varchar = (subtype as Parameterizable[Str, Int], where { $_[1] > length($_[0]); }),
	11	'Anonymous Type';
	12
	13	ok $varchar->parameterize(5)->check('aaa');
	14	ok !$varchar->parameterize(5)->check('aaaaa');
	15
	16	done_testing;