Changeset 20921

Show
Ignore:
Timestamp:
10/07/08 20:06:25 (3 months ago)
Author:
yappo
Message:

テストが終わるまではTemp dirを取っておく

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Module-Setup/trunk/t/020_run/simple.t

    r20909 r20921  
    1010plan tests => 6 * blocks; 
    1111 
     12my %dir_cache; 
     13my $dir_count = 0; 
    1214run { 
    1315    my $block = shift; 
    1416 
    15     local $ENV{MODULE_SETUP_DIR} = File::Temp->newdir; 
     17    local $ENV{MODULE_SETUP_DIR} = $dir_cache{$dir_count++} = File::Temp->newdir; 
    1618 
    1719    my $msetup = Module::Setup->new; 
    1820 
    19     my $target = File::Temp->newdir; 
     21    my $target = $dir_cache{$dir_count++} = File::Temp->newdir; 
    2022    my $options = { 
    2123        unset_hash_term => 1,