1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use Test::More tests => 13; |
use Test::More tests => 15; |
5 |
use Test::Exception; |
use Test::Exception; |
6 |
use blib; |
use blib; |
7 |
|
|
68 |
901 => { "^a : / ^b" => 2 }, |
901 => { "^a : / ^b" => 2 }, |
69 |
}, 'just subfields and delimiters'); |
}, 'just subfields and delimiters'); |
70 |
|
|
71 |
ok(my $dt = $v->delimiters_templates, 'delimiters_template'); |
ok(! $v->delimiters_templates, 'no accumulated delimiters_template'); |
72 |
|
|
73 |
|
ok(my $dt = $v->delimiters_templates( current_input => 1 ), 'delimiters_template'); |
74 |
diag $dt if ( $debug ); |
diag $dt if ( $debug ); |
75 |
|
|
76 |
ok($dt = $v->delimiters_templates( report => 1 ), 'delimiters_template report'); |
ok($dt = $v->delimiters_templates( report => 1, current_input => 1 ), 'delimiters_template report'); |
77 |
diag $dt if ( $debug ); |
diag $dt if ( $debug ); |
78 |
|
|
79 |
|
$v->reset; |
80 |
|
ok( $v->delimiters_templates, 'have accumulated delimiters_templates'); |
81 |
|
|
82 |
$v->{_validate_delimiters_templates} = { |
$v->{_validate_delimiters_templates} = { |
83 |
900 => { '^a : ^b' => 1 }, |
900 => { '^a : ^b' => 1 }, |
84 |
}; |
}; |