38 |
|
|
39 |
$row->{'000'} = [ 42 ]; |
$row->{'000'} = [ 42 ]; |
40 |
|
|
41 |
$v->reset_errors; |
$v->reset; |
42 |
my $e = $v->validate_rec( $row ); |
my $e = $v->validate_rec( $row ); |
43 |
|
|
44 |
diag ">> validate $d\n",dump($e) if ($debug); |
diag ">> validate $d\n",dump($e) if ($debug); |
93 |
|
|
94 |
ok( $v->save_delimiters_templates, 'save_delimiters_templates' ); |
ok( $v->save_delimiters_templates, 'save_delimiters_templates' ); |
95 |
|
|
96 |
ok( -s $delimiters_path, "$delimiters_path " . -s $delimiters_path . " bytes" ); |
ok( -s $delimiters_path, "$delimiters_path " . ( -s $delimiters_path ) . " bytes" ); |
97 |
|
|
98 |
ok( $v->save_delimiters_templates, 'save_delimiters_templates to existing file' ); |
ok( $v->save_delimiters_templates, 'save_delimiters_templates to existing file' ); |
99 |
|
|
105 |
debug => $debug, |
debug => $debug, |
106 |
), "new"); |
), "new"); |
107 |
|
|
108 |
is_deeply( $v->{_delimiters_templates}, $v2->{_validate_delimiters_templates}, 'save/load ok'); |
is_deeply( $v->{_accumulated_delimiters_templates}, $v2->{_validate_delimiters_templates}, 'save/load ok'); |
109 |
|
|
110 |
diag dump( $v, $v2 ) if ( $debug ); |
diag dump( $v, $v2 ) if ( $debug ); |