1 |
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
2 |
|
|
3 |
use strict; |
use strict; |
4 |
use Test::More tests => 4; |
use Test::More tests => 6; |
5 |
use Test::Exception; |
use Test::Exception; |
6 |
use blib; |
use blib; |
7 |
|
|
64 |
901 => { "^a : / ^b" => 2 }, |
901 => { "^a : / ^b" => 2 }, |
65 |
}, 'just subfields and delimiters'); |
}, 'just subfields and delimiters'); |
66 |
|
|
67 |
|
ok(my $dt = $v->delimiters_templates, 'delimiters_template'); |
68 |
|
diag $dt; |
69 |
|
|
70 |
|
ok($dt = $v->delimiters_templates( report => 1 ), 'delimiters_template report'); |
71 |
|
diag $dt; |