Changeset 463

Show
Ignore:
Timestamp:
01/18/02 16:59:40
Author:
miyagawa
Message:

clean up tests

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Log-Dispatch-Config/trunk/t/03_reload.t

    r454 r463  
    44use Log::Dispatch::Config; 
    55use FileHandle; 
     6use File::Copy; 
    67use File::Temp qw(tempfile); 
    78use IO::Scalar; 
    89 
    9 sub writefile { 
    10     my $fh = FileHandle->new(">" . shift) or die $!; 
    11     $fh->print(@_); 
    12 } 
    13  
    1410my($fh, $file) = tempfile; 
    15 writefile($file, <<'CFG'); 
    16 dispatchers=foo 
    17 foo.class=Log::Dispatch::File 
    18 foo.filename=/dev/null 
    19 foo.min_level=debug 
    20 CFG 
    21     ; 
     11copy("t/foo.cfg", $file); 
    2212 
    2313Log::Dispatch::Config->configure_and_watch($file); 
     
    2919    sleep 1; 
    3020 
    31     writefile($file, <<'CFG'); 
    32 dispatchers=bar 
    33 bar.class=Log::Dispatch::File 
    34 bar.filename=/dev/null 
    35 bar.min_level=debug 
    36 CFG 
    37     ; 
     21    copy("t/bar.cfg", $file); 
    3822 
    3923    local $^W; 
  • Log-Dispatch-Config/trunk/t/11_no_watch.t

    r460 r463  
    44use Log::Dispatch::Config; 
    55use FileHandle; 
     6use File::Copy; 
    67use File::Temp qw(tempfile); 
    78use IO::Scalar; 
    89 
    9 sub writefile { 
    10     my $fh = FileHandle->new(">" . shift) or die $!; 
    11     $fh->print(@_); 
    12 } 
    13  
    1410my($fh, $file) = tempfile; 
    15 writefile($file, <<'CFG'); 
    16 dispatchers=foo 
    17 foo.class=Log::Dispatch::File 
    18 foo.filename=/dev/null 
    19 foo.min_level=debug 
    20 CFG 
    21     ; 
     11copy("t/foo.cfg", $file); 
    2212 
    2313Log::Dispatch::Config->configure($file); 
     
    2818 
    2919    sleep 1; 
    30  
    31     writefile($file, <<'CFG'); 
    32 dispatchers=bar 
    33 bar.class=Log::Dispatch::File 
    34 bar.filename=/dev/null 
    35 bar.min_level=debug 
    36 CFG 
    37     ; 
     20    copy("t/bar.cfg", $file); 
    3821 
    3922    local $^W; 
  • Log-Dispatch-Config/trunk/t/13_do_reload.t

    r462 r463  
    44use Log::Dispatch::Config; 
    55use FileHandle; 
     6use File::Copy; 
    67use File::Temp qw(tempfile); 
    78use IO::Scalar; 
    89 
    9 sub writefile { 
    10     my $fh = FileHandle->new(">" . shift) or die $!; 
    11     $fh->print(@_); 
    12 } 
    13  
    1410my($fh, $file) = tempfile; 
    15 writefile($file, <<'CFG'); 
    16 dispatchers=foo 
    17 foo.class=Log::Dispatch::File 
    18 foo.filename=/dev/null 
    19 foo.min_level=debug 
    20 CFG 
    21     ; 
     11copy("t/foo.cfg", $file); 
    2212 
    2313Log::Dispatch::Config->configure($file); 
     
    2919    sleep 1; 
    3020 
    31     writefile($file, <<'CFG'); 
    32 dispatchers=bar 
    33 bar.class=Log::Dispatch::File 
    34 bar.filename=/dev/null 
    35 bar.min_level=debug 
    36 CFG 
    37     ; 
    38  
     21    copy("t/bar.cfg", $file); 
    3922    local $^W; 
    4023    Log::Dispatch::Config->reload;