--- trunk/t/1-validate.t	2006/09/07 16:41:08	654
+++ trunk/t/1-validate.t	2006/09/07 16:54:47	655
@@ -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 @@
 	'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/);