#!perl
# $Id: 02-basic.t 4 2005-01-06 06:22:24Z daisuke $
#
# Daisuke Maki <dmaki@cpan.org>
# All rights reserved.
use strict;
use Test::More (tests => 9);
BEGIN { use_ok("Class::Validating") }
package Parent;
use Class::Validating;
__PACKAGE__->set_pv_spec(foo => [1]);
__PACKAGE__->set_pv_spec(bar => { arg1 => { type => Params::Validate::HASHREF() }});
sub foo { shift->validate_args(\@_) }
sub bar { shift->validate_args(\@_) }
package Child;
our @ISA = ('Parent');
__PACKAGE__->set_pv_spec(foo => [{type => Params::Validate::HASHREF()}]);
__PACKAGE__->set_pv_spec(bar => { arg1 => {type => Params::Validate::HASHREF()},
    arg2 => {type => Params::Validate::ARRAYREF() }});
package main;
eval{Parent->foo(1)};
ok(!$@, "Correct usage (validate_pos): $@");
eval{Parent->foo(1,2)};
ok($@, "Incorrect usage (validate_pos)");
eval{Parent->bar(arg1 => {})};
ok(!$@, "Correct usage (validate): $@");
eval{Parent->bar(arg1 => [])};
ok($@, "Incorrect usage (validate)");
eval{Child->foo({})};
ok(!$@, "Correct usage (overriden spec, validate_pos): $@");
eval{Child->foo(1)};
ok($@, "Incorrect usage (overriden spec, validate_pos)");
eval{Child->bar(arg1 => {}, arg2 => [])};
ok(!$@, "Correct usage (validate): $@");
eval{Child->bar(arg1 => [])};
ok($@, "Incorrect usage (validate)");