Changeset 17728 for ext

Show
Ignore:
Timestamp:
09/09/07 12:57:55 (16 months ago)
Author:
masak
Message:

[ext/File-Util/t]
* corrected file paths

Location:
ext/File-Util/t
Files:
2 modified

Legend:

Unmodified
Added
Removed

  • ext/File-Util/t/03.dirs.t

    r15872 r17728  
    99my $f = File::Util.new; 
    1010 
    11 my @files = $f.list_dir('t'); 
     11my @files = $f.list_dir('ext/File-Util/t'); 
    1212 
     13ok( @files ); 

  • ext/File-Util/t/05.methods.t

    r15872 r17728  
    99my $f = File::Util.new; 
    1010 
    11 $f.existent('t/01.use.t'); 
     11$f.existent('ext/File-Util/t/01.use.t'); 
    1212is($f.exist, 1, "File exist"); 
    13 $f.existent('t/01.t'); 
     13$f.existent('ext/File-Util/t/01.t'); 
    1414is($f.exist, undef, "File doesn't exist"); 
    1515 
    16 $f.size('t/01.use.t'); 
     16$f.size('ext/File-Util/t/01.use.t'); 
    1717is(!$f.fsize, undef, "File size is not 0"); 
    1818 
    19 $f.size('t/01.t'); 
     19$f.size('ext/File-Util/t/01.t'); 
    2020is($f.fsize, undef, "File size is 0"); 
    2121 
    22 $f.can_read('t/01.use.t'); 
     22$f.can_read('ext/File-Util/t/01.use.t'); 
    2323is($f.canread, 1, "Can read file"); 
    2424 
    25 $f.can_write('t/01.use.t'); 
     25$f.can_write('ext/File-Util/t/01.use.t'); 
    2626is($f.canwrite, 1, "Can write file"); 
    2727 
    28 $f.can_read('t/01.t'); 
     28$f.can_read('ext/File-Util/t/01.t'); 
    2929is($f.canread, undef, "Can read file"); 
    3030 
    31 $f.can_write('t/01.t'); 
     31$f.can_write('ext/File-Util/t/01.t'); 
    3232is($f.canwrite, undef, "Can write file"); 
    3333 
    34 $f.line_count('t/01.use.t'); 
     34$f.line_count('ext/File-Util/t/01.use.t'); 
    3535is($f.lines, 14, "Count lines");