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


use strict;
use warnings;

use Test::More;
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;
	6	use MooseX::Types::Parameterizable qw(Parameterizable);
	7	use MooseX::Types::Moose qw(Int Str);
	8
	9	ok my $varchar = (subtype as Parameterizable[Str, Int], where { $_[1] > length($_[0]); }),
	10	'Anonymous Type';
	11
	12	ok $varchar->parameterize(5)->check('aaa');
	13	ok !$varchar->parameterize(5)->check('aaaaa');
	14
	15	done_testing;