--- trunk/t/3-normalize.t	2006/07/02 16:14:41	562
+++ trunk/t/3-normalize.t	2006/07/02 20:14:21	564
@@ -2,7 +2,7 @@
 
 use strict;
 
-use Test::More tests => 99;
+use Test::More tests => 103;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -525,5 +525,11 @@
 			]
 		],
 	);
+
+	cmp_ok(marc_leader('06',42), '==', 42, 'marc_leader');
+	cmp_ok(marc_leader('11',5), '==', 5, 'marc_leader');
+	ok(marc_leader(), 'marc_leader get');
+	diag "leader: ", dump(marc_leader()) if ($debug);
+	is_deeply(marc_leader(), { '06' => 42, 11 => 5 }, "marc_leader full");
 }