37 |
|
|
38 |
|
|
39 |
|
|
40 |
throws_ok { $v->validate_errors() } qr/rec/, "validate_rec need rec"; |
throws_ok { $v->validate_rec() } qr/rec/, "validate_rec need rec"; |
41 |
|
|
42 |
sub test_v { |
sub test_v { |
43 |
my $row = shift || die "no row?"; |
my $row = shift || die "no row?"; |
47 |
$row->{'000'} = [ 42 ]; |
$row->{'000'} = [ 42 ]; |
48 |
|
|
49 |
$v->reset_errors; |
$v->reset_errors; |
50 |
my $e = $v->validate_errors( $row ); |
my $e = $v->validate_rec( $row ); |
51 |
|
|
52 |
diag "validate $d\n",dump($e) if ($debug); |
diag "validate $d\n",dump($e) if ($debug); |
53 |
|
|