use strict;
use warnings;
use Data::Rx;
use Data::Rx::Type::MooseTC;
use Test::More tests => 4;
my $rx = Data::Rx->new({
prefix => {
moose => 'tag:rjbs.manxome.org,2008-10-04:rx/moose/',
},
type_plugins => [ 'Data::Rx::Type::MooseTC' ]
});
{
my $array_of_int = $rx->make_schema({
type => '/moose/tc',
moose_type => 'ArrayRef[Int]',
});
ok($array_of_int->check([1]), "[1] is an ArrayRef[Int]");
ok(! $array_of_int->check( 1 ), "1 is not an ArrayRef[Int]");
}
{
my $array_of_int = $rx->make_schema({
type => '//arr',
contents => {
type => '/moose/tc',
moose_type => 'Int',
},
});
ok($array_of_int->check([1]), "[1] is an ArrayRef[Int]");
ok(! $array_of_int->check( 1 ), "1 is not an ArrayRef[Int]");
}