1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46
|
#!./perl
###########################################################################
#
# carp_silent.t
#
# Copyright (C) 1999 Raphael Manfredi.
# Copyright (C) 2002-2015 Mark Rogaski, mrogaski@cpan.org;
# all rights reserved.
#
# See the README file included with the
# distribution for license information.
#
##########################################################################
print "1..2\n";
require './t/code.pl';
sub ok;
use Log::Agent;
require Log::Agent::Driver::Silent;
open(ORIG_STDOUT, ">&STDOUT") || die "can't dup STDOUT: $!\n";
select(ORIG_STDOUT);
open(STDOUT, ">t/file.out") || die "can't redirect STDOUT: $!\n";
open(STDERR, ">t/file.err") || die "can't redirect STDOUT: $!\n";
my $driver = Log::Agent::Driver::Silent->make();
logconfig(-driver => $driver);
sub test {
logcarp "none";
logcroak "test";
}
my $line = __LINE__ + 1;
test();
sub END {
ok 1, !contains("t/file.err", "none");
ok 2, contains("t/file.err", "test at t/carp_silent.t line $line");
unlink 't/file.out', 't/file.err';
exit 0;
}
|