--- trunk/t/002_isis.t 2006/07/07 21:11:01 50 +++ trunk/t/002_isis.t 2006/07/07 22:29:49 51 @@ -112,7 +112,7 @@ ok($rec = $isis->fetch($mfn), "fetch $mfn"); - diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ); + diag "<<<<< rec: ",Dumper( $rec ), "\n>>>>> row:", Dumper( $data->[$mfn-1] ) if ($debug); foreach my $f (keys %{$data->[$mfn-1]}) { my $i = 0; @@ -146,7 +146,7 @@ debug => $debug, ); -diag "isis-new result: ", Dumper($isis); +diag "new Biblio::Isis = ", Dumper($isis) if ($debug); test_data( no_ident => 1,