#!perl -w
use strict;
use Test::More;
use Data::Validator;
eval {
Data::Validator->new(
foo => { isa => 'Int', does => 'Bar' },
);
};
like $@, qr/Wrong definition for 'foo': /;
like $@, qr/You cannot use 'isa' and 'does' together/;
eval {
Data::Validator->new(
foo => { xor => 'nothing' },
);
};
like $@, qr/Wrong definition for 'foo': /;
like $@, qr/Unknown parameter name 'nothing' specified as exclusive-or/;
eval {
Data::Validator->new(
foo => { hoge => 'nothing', fuga => 42 },
);
};
like $@, qr/Wrong definition for 'foo': /;
like $@, qr/Unknown attributes: 'fuga' and 'hoge'/;
done_testing;