74 lines
1.1 KiB
Perl
74 lines
1.1 KiB
Perl
use Test::More qw(no_plan);
|
|
use Test::Exception;
|
|
|
|
use File::Basename;
|
|
use File::DirWalk;
|
|
|
|
my $perl_path = dirname($^X);
|
|
my $perl_interpreter = basename($^X);
|
|
|
|
$dw = new File::DirWalk();
|
|
|
|
ok( ref($dw) eq 'File::DirWalk' );
|
|
|
|
dies_ok { $dw->setHandler(Foo => 0); }
|
|
|
|
$dw->onFile(sub {
|
|
my ($path) = @_;
|
|
|
|
if (basename($path) eq "1.t") {
|
|
return ABORTED;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
ok( $dw->walk($0) == ABORTED );
|
|
|
|
$dw->onDirEnter(sub {
|
|
my ($path) = @_;
|
|
|
|
if ($path eq $perl_path) {
|
|
return FAILED;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
ok( $dw->walk($perl_path) == FAILED );
|
|
|
|
$dw->onBeginWalk(sub {
|
|
my ($path) = @_;
|
|
if (dirname($path) eq $dw->currentDir) {
|
|
return ABORTED;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
ok( $dw->walk($perl_path) == ABORTED );
|
|
|
|
$dw->onBeginWalk(sub {
|
|
my ($path) = @_;
|
|
if ($path eq $dw->currentPath) {
|
|
return ABORTED;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
ok( $dw->walk($perl_path) == ABORTED );
|
|
|
|
$dw = new File::DirWalk();
|
|
$dw->onFile(sub {
|
|
my ($path) = @_;
|
|
|
|
if ($dw->currentBasename() eq $perl_interpreter) {
|
|
return 42;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
ok( $dw->walk($perl_path) == 42 );
|