make test less chatty without debug

git-svn-id: file:///home/dpavlin/svn/Biblio-Isis/trunk@51 4670fa4d-42ec-0310-ab5b-a66af6943492

diff --git a/t/002_isis.t b/t/002_isis.t
index c4d8a17..24f3b42 100755 (executable)
--- a/t/002_isis.t
+++ b/t/002_isis.t
@@ -112,7 +112,7 @@ sub test_data {
                ok($rec = $isis->fetch($mfn), "fetch $mfn");
 
 
                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;
 
                foreach my $f (keys %{$data->[$mfn-1]}) {
                        my $i = 0;


@@ -146,7 +146,7 @@ $isis = Biblio::Isis->new (
        debug => $debug,
 );
 
        debug => $debug,
 );
 

-diag "isis-new result: ", Dumper($isis);
+diag "new Biblio::Isis = ", Dumper($isis) if ($debug);

 
 test_data(
        no_ident => 1,
 
 test_data(
        no_ident => 1,