105 lines
2.4 KiB
Perl
105 lines
2.4 KiB
Perl
use Test::More qw(no_plan);
|
|
use Test::Exception;
|
|
|
|
use File::Basename;
|
|
use File::Spec::Functions;
|
|
|
|
BEGIN { use_ok( 'File::DirWalk' ); }
|
|
require_ok( 'File::DirWalk' );
|
|
|
|
$dw = new File::DirWalk();
|
|
|
|
ok( -e "t/tree" );
|
|
ok( -d "t/tree" );
|
|
|
|
foreach my $subdir (qw(dir1 dir2 dir3 dir4 dir5)) {
|
|
ok( -e "t/tree/$subdir" );
|
|
ok( -d "t/tree/$subdir" );
|
|
|
|
$dw = new File::DirWalk();
|
|
$dw->onBeginWalk(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
|
|
if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) {
|
|
return 42;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
is( $dw->walk("t/tree"), 42 );
|
|
|
|
$dw = new File::DirWalk();
|
|
$dw->onDirEnter(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
ok(-d $path);
|
|
ok(-d $dir);
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
|
|
if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) {
|
|
is( $dw->count(), 10 );
|
|
is( $dw->currentDepth(), 2 );
|
|
return 42;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
is( $dw->walk("t/tree"), 42 );
|
|
|
|
$dw = new File::DirWalk();
|
|
$dw->onDirLeave(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
ok(-d $path);
|
|
ok(-d $dir);
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
|
|
if (($dw->currentBasename() eq $subdir) and ($basename eq $subdir)) {
|
|
is( $dw->count(), 10 );
|
|
is( $dw->currentDepth(), 2 );
|
|
return 42;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
is( $dw->walk("t/tree"), 42 );
|
|
|
|
$dw = new File::DirWalk();
|
|
$dw->onFile(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
ok(-f $path);
|
|
ok(-d $dir);
|
|
is($dir, "t/tree/$subdir");
|
|
is($dw->currentDir(), "t/tree/$subdir");
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
return SUCCESS;
|
|
});
|
|
|
|
is( $dw->walk("t/tree/$subdir"), SUCCESS );
|
|
is( $dw->count(), 10 );
|
|
}
|
|
|
|
$files = 0;
|
|
$dw = new File::DirWalk();
|
|
$dw->onFile(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
ok(-f $path);
|
|
ok(-d $dir);
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
++$files;
|
|
return SUCCESS;
|
|
});
|
|
|
|
is( $dw->walk("t/tree"), SUCCESS );
|
|
is( $files, 50 );
|