35 lines
694 B
Perl
35 lines
694 B
Perl
use Test::More qw(no_plan);
|
|
use Test::Exception;
|
|
|
|
use File::Basename;
|
|
|
|
BEGIN { use_ok( 'File::DirWalk' ); }
|
|
require_ok( 'File::DirWalk' );
|
|
|
|
ok(-e "t/");
|
|
ok(-d "t/");
|
|
|
|
foreach my $f qw(1.t 2.t 3.t 4.t) {
|
|
$dw = new File::DirWalk();
|
|
$dw->setDepth(1);
|
|
|
|
$dw->onFile(sub {
|
|
my ($path,$dir,$basename) = @_;
|
|
ok(-e $path);
|
|
ok(-f $path);
|
|
ok(-d $dir);
|
|
is($dir, "t");
|
|
is($dw->currentDir(), "t");
|
|
is($dw->currentDir(), $dir);
|
|
is($dw->currentBasename(), $basename);
|
|
|
|
if (($dw->currentBasename() eq $f) and ($basename eq $f)) {
|
|
return 42;
|
|
}
|
|
|
|
return SUCCESS;
|
|
});
|
|
|
|
is($dw->walk("t/"), 42);
|
|
}
|