--- trunk/t/3-normalize.t	2006/06/29 15:29:19	538
+++ trunk/t/3-normalize.t	2006/06/29 15:29:41	540
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 67;
+use Test::More tests => 69;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -341,5 +341,10 @@
 		}
 	}, 'correct get_ds');
 
+	# MARC
+	test_s(qq{ marc21('900','a', rec('200') ) });
+	my @marc;
+	ok(@marc = WebPAC::Normalize::_get_marc21_fields(), "_get_marc21_fields");
+	diag Dumper(\@marc);
 }