sane debug output

[Biblio-Isis] / t / 002_isis.t

diff --git a/t/002_isis.t b/t/002_isis.t
index 499b169..df6704e 100755 (executable)
--- a/t/002_isis.t
+++ b/t/002_isis.t
@@ -109,12 +109,11 @@ sub test_data {
                
        foreach my $mfn (1 .. $isis->count) {
 
-               diag "row: ",Dumper( $data->[$mfn-1] );
-
                my $rec;
                ok($rec = $isis->fetch($mfn), "fetch $mfn");
 
-               diag "rec: ",Dumper( $rec );
+
+               diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] );
 
                foreach my $f (keys %{$data->[$mfn-1]}) {
                        my $i = 0;