Merge pull request #98 from jaredj/silence-test-warning

Replace warning with slightly better testing
This commit is contained in:
Matt Simerson 2014-09-11 23:29:57 -07:00
commit 7676a213cf

View File

@ -22,7 +22,17 @@ __load_logging();
done_testing(); done_testing();
sub __log { sub __log {
my $warned = '';
local $SIG{__WARN__} = sub {
if ( $_[0] eq "$$ test log message\n" ) {
$warned = join ' ', @_;
}
else {
warn @_;
}
};
ok( $qp->log(LOGWARN, "test log message"), 'log'); ok( $qp->log(LOGWARN, "test log message"), 'log');
is( $warned, "$$ test log message\n", 'LOGWARN emitted correct warning' );
} }
sub __config_dir { sub __config_dir {