--- trunk/t/2-input.t	2007/04/11 12:22:37	823
+++ trunk/t/2-input.t	2007/10/29 23:20:13	908
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 118;
+use Test::More tests => 123;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -18,12 +18,12 @@
 my $no_log = $debug ? 0 : 1;
 
 ok(my $abs_path = abs_path($0), "abs_path");
-$abs_path =~ s#/[^/]*$#/#;
+$abs_path =~ s#/[^/]*$#/#;	#vim
 
 my $module = 'WebPAC::Input::ISIS';
 diag "testing with $module";
 
-throws_ok { my $input = new WebPAC::Input( ) } qr/module/, "need module";
+throws_ok { my $input = new WebPAC::Input( no_log => $no_log ) } qr/module/, "need module";
 ok(my $input = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1, stats => 1 ), "new $module");
 ok(my $input_lm = new WebPAC::Input( module => $module, no_log => $no_log, no_progress_bar => 1 ), "new $module");
 
@@ -79,6 +79,8 @@
 		cmp_ok($input->pos, '==', $mfn, "pos $mfn");
 		push @db, $rec;
 		ok(my $dump = $input->dump_ascii, "dump_ascii $mfn");
+		# XXX test count will help us keep this test in-line :-)
+		ok($rec->{leader}, "leader $mfn") if $rec->{leader};
 		diag $dump if ($debug);
 	}