--- trunk/t/2-input.t	2006/10/25 17:10:08	761
+++ trunk/t/2-input.t	2006/11/03 20:40:33	771
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-use Test::More tests => 89;
+use Test::More tests => 104;
 use Test::Exception;
 use Cwd qw/abs_path/;
 use blib;
@@ -77,6 +77,8 @@
 		ok(my $rec = $input->fetch, "fetch $mfn");
 		cmp_ok($input->pos, '==', $mfn, "pos $mfn");
 		push @db, $rec;
+		ok(my $dump = $input->dump, "dump $mfn");
+		diag $dump if ($debug);
 	}
 
 	return @db;