From fc022835481a46665a23aa948bda66e766a8d13d Mon Sep 17 00:00:00 2001 From: Dobrica Pavlinusic Date: Fri, 7 Jul 2006 22:29:49 +0000 Subject: [PATCH] make test less chatty without debug git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@51 4670fa4d-42ec-0310-ab5b-a66af6943492 --- t/002_isis.t | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/t/002_isis.t b/t/002_isis.t index c4d8a17..24f3b42 100755 --- a/t/002_isis.t +++ b/t/002_isis.t @@ -112,7 +112,7 @@ sub test_data { 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 @@ $isis = Biblio::Isis->new ( debug => $debug, ); -diag "isis-new result: ", Dumper($isis); +diag "new Biblio::Isis = ", Dumper($isis) if ($debug); test_data( no_ident => 1, -- 2.20.1