root/Log-Dispatch-Config/trunk/t/04_nolog.t

Revision 347 (checked in by miyagawa, 19 years ago)

version

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
Line 
1 use strict;
2 use Test::More tests => 1;
3
4 use Log::Dispatch::Config;
5 use FileHandle;
6 use File::Temp qw(tempfile);
7 use IO::Scalar;
8
9 sub writefile {
10     my $fh = FileHandle->new(">" . shift) or die $!;
11     $fh->print(@_);
12 }
13
14 my($fh, $file) = tempfile;
15 writefile($file, <<'CFG');
16 CFG
17     ;
18
19 Log::Dispatch::Config->configure($file);
20
21 {
22     my $disp = Log::Dispatch->instance;
23     $disp->debug('null');
24 }
25
26 ok 1, 'can call with nothing';
27
28
Note: See TracBrowser for help on using the browser.