Make tests less noisy.

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

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