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);