--- trunk/t/3-normalize.t	2007/04/01 21:47:48	814
+++ trunk/t/3-normalize.t	2007/04/02 17:20:01	815
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 332;
+use Test::More tests => 335;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -835,5 +835,22 @@
 		'^aa1^bb1^aa2^bb2^cc1^cc2',
 		'_pack_subfields_hash( $h, 1 )'
 	);
+
+	_clean_ds();
+	test_s(qq{
+		marc_fixed('008', 0, 'abcdef');
+		marc_fixed('000', 5, '5');
+		marc_fixed('000', 10, 'A');
+		marc_fixed('000', 0, '0');
+	});
+	ok( my $m = WebPAC::Normalize::_get_marc_fields(), '_get_marc_fields');
+	diag dump( $m );
+	is_deeply( WebPAC::Normalize::_get_marc_fields(),
+		[
+			["008", "abcdef"], 
+			#        0....5....10
+			["000", "0    5    A"]
+		]
+	);
 }