hjp
/
simba
1
0
Fork 0
Code Issues 2 Pull Requests Releases Wiki Activity

Make tests less noisy.

This commit is contained in:
hjp 2006-11-20 15:06:39 +00:00
parent bb10db34d9
commit 6306294038
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lib/Simba/DA.pm
View File

@ -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; 1;
# vim: sw=4 expandtab tw=0 # vim: sw=4 expandtab tw=0

1
t/00_da.t
View File

@ -8,6 +8,7 @@ BEGIN { use_ok( 'Simba::DA' ); }
my $da = Simba::DA->new(); my $da = Simba::DA->new();
ok($da, 'new DA'); ok($da, 'new DA');
$da->log_level(0); # no log output during tests
my $list; my $list;
open(my $fh, '>', \$list); open(my $fh, '>', \$list);
$da->fh_out($fh); $da->fh_out($fh);