Changeset 358

Show
Ignore:
Timestamp:
12/06/01 18:46:29
Author:
miyagawa
Message:

ad

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • Log-Dispatch-Config/trunk/t/01_configure.t

    r347 r358  
    55Log::Dispatch::Config->configure('t/log.cfg'); 
    66 
    7 my $disp = Log::Dispatch->instance; 
     7my $disp = Log::Dispatch::Config->instance; 
    88 
    99isa_ok $disp->{outputs}->{file}, 'Log::Dispatch::File'; 
    1010isa_ok $disp->{outputs}->{screen}, 'Log::Dispatch::Screen'; 
    1111 
    12 my $another = Log::Dispatch->instance; 
     12my $another = Log::Dispatch::Config->instance; 
    1313is "$disp", "$another", "same instance - $disp"; 
     14 
     15END { unlink 't/log.out' if -e 't/log.out' } 
  • Log-Dispatch-Config/trunk/t/02_log.t

    r347 r358  
    2020tie *STDERR, 'IO::Scalar', \my $err; 
    2121 
    22 my $disp = Log::Dispatch->instance; 
     22my $disp = Log::Dispatch::Config->instance; 
    2323$disp->debug('debug'); 
    2424$disp->alert('alert'); 
  • Log-Dispatch-Config/trunk/t/03_reload.t

    r356 r358  
    2424 
    2525{ 
    26     my $disp = Log::Dispatch->instance; 
     26    my $disp = Log::Dispatch::Config->instance; 
    2727    isa_ok $disp->{outputs}->{foo}, 'Log::Dispatch::File'; 
    2828 
     
    3838 
    3939    local $^W; 
    40     my $disp2 = Log::Dispatch->instance; 
     40    my $disp2 = Log::Dispatch::Config->instance; 
    4141    isa_ok $disp2->{outputs}->{bar}, 'Log::Dispatch::File'; 
    4242    is $disp2->{outputs}->{foo}, undef; 
  • Log-Dispatch-Config/trunk/t/04_nolog.t

    r347 r358  
    2020 
    2121{ 
    22     my $disp = Log::Dispatch->instance; 
     22    my $disp = Log::Dispatch::Config->instance; 
    2323    $disp->debug('null'); 
    2424}