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
47
48
49
50
51
52
53
54
|
#!./perl
#
# $Id: carp_silent.t,v 1.1 2002/03/09 16:16:55 wendigo Exp $
#
# Copyright (c) 1999, Raphael Manfredi
#
# You may redistribute only under the terms of the Artistic License,
# as specified in the README file that comes with the distribution.
#
# HISTORY
# $Log: carp_silent.t,v $
# Revision 1.1 2002/03/09 16:16:55 wendigo
# New maintainer
#
# Revision 0.2 2000/11/06 19:30:33 ram
# Baseline for second Alpha release.
#
# $EndLog$
#
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;
}
|
