--- trunk/t/002_isis.t 2006/07/07 10:25:02 46 +++ trunk/t/002_isis.t 2006/07/07 10:33:33 47 @@ -109,12 +109,11 @@ 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;