git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@659
07558da8-63fa-0310-ba24-
9fe276d99e06
#!/usr/bin/perl -w
use strict;
#!/usr/bin/perl -w
use strict;
-use Test::More tests => 43;
+use Test::More tests => 50;
use Test::Exception;
use blib;
use Test::Exception;
use blib;
'902' => [ 'b', 'c' ],
'903' => [ 'a', 'b', 'c' ],
'904' => [ 'a' ],
'902' => [ 'b', 'c' ],
'903' => [ 'a', 'b', 'c' ],
'904' => [ 'a' ],
'904' => [ { 'b' => 1 } ]
}, qw/field 904 subfield extra b/);
'904' => [ { 'b' => 1 } ]
}, qw/field 904 subfield extra b/);
+test_v({
+ '904' => [ { 'a' => [ 1,2 ] } ]
+}, qw/field 904 subfield extra_repeatable a/);
+
+test_v({
+ '905' => [ { 'a' => [ 1,2 ] } ]
+});
+
+test_v({
+ '905' => [ ]
+});