From 630629403882147a9aa7d820c38d4f6b6238e2c2 Mon Sep 17 00:00:00 2001
From: hjp <hjp@d47eeb7a-11fe-0310-b519-e5a4e12f9765>
Date: Mon, 20 Nov 2006 15:06:39 +0000
Subject: [PATCH] Make tests less noisy.

---
 lib/Simba/DA.pm | 7 +++++++
 t/00_da.t       | 1 +
 2 files changed, 8 insertions(+)

diff --git a/lib/Simba/DA.pm b/lib/Simba/DA.pm
index 396e20b..6893883 100644
--- a/lib/Simba/DA.pm
+++ b/lib/Simba/DA.pm
@@ -270,6 +270,13 @@ sub log {
     }
 }
 
+
+sub log_level {
+    my ($self, $log_level) = @_;
+    $self->{log_level}  = $log_level if defined($log_level);
+    return $self->{log_level};
+}
+
 1;
 
 # vim: sw=4 expandtab tw=0
diff --git a/t/00_da.t b/t/00_da.t
index f2dc581..98a0a0e 100644
--- a/t/00_da.t
+++ b/t/00_da.t
@@ -8,6 +8,7 @@ BEGIN { use_ok( 'Simba::DA' ); }
 
 my $da = Simba::DA->new();
 ok($da, 'new DA');
+$da->log_level(0);	# no log output during tests
 my $list;
 open(my $fh, '>', \$list);
 $da->fh_out($fh);