From b4804f973c52dc7bb532448dc68fb084f6a3e88c Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 7 Jul 2006 10:33:33 +0000 Subject: [PATCH] sane debug output git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@47 4670fa4d-42ec-0310-ab5b-a66af6943492 --- t/002_isis.t | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/t/002_isis.t b/t/002_isis.t index 499b169..df6704e 100755 --- 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; -- 2.20.1