test extra subfields more deeply

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@655 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/t/1-validate.t b/t/1-validate.t
index c86836f..170c15d 100755 (executable)
--- a/t/1-validate.t
+++ b/t/1-validate.t
@@ -1,7 +1,7 @@
 #!/usr/bin/perl -w
 
 use strict;
-use Test::More tests => 36;
+use Test::More tests => 43;
 use Test::Exception;
 use blib;
 
@@ -106,11 +106,19 @@ test_v({
        '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 }, { 'd' => 3 } ]
 }, qw/field 903 subfield extra d/);
 
+is_deeply(
+
 test_v({
        '903' => [ { 'a' => 0 }, { 'b' => 1 }, { 'c' => 2 }, { 'd' => 3 }, { 'e' => 4 } ]
-}, qw/field 903 subfield extra/);
+}, qw/field 903 subfield extra/),
+
+{ 'd' => 1, 'e' => 1 }, 'additional fields d, e');
+
+test_v({
+       '904' => [ { 'a' => 1, } ]
+});
 
+test_v({
+       '904' => [ { 'b' => 1 } ]
+}, qw/field 904 subfield extra b/);
 
-#test_v({
-#      '904' => [ { 'b' => 1 } ]
-#}, qw/field 904 subfield b extra/);

diff --git a/t/data/validate_test b/t/data/validate_test
index 74ce89f..f67afe2 100644 (file)
--- a/t/data/validate_test
+++ b/t/data/validate_test
@@ -6,4 +6,4 @@
 901 a
 902 b c
 903 a b c
-904 a
+904 a!