#! perl
use Test::More 'no_plan';
# use File::Find;
# use Data::Dumper;
# $Data::Dumper::Deparse = 1;
## test presence of documented protocol
require_ok('File::Finder');
can_ok('File::Finder',
qw(new as_wanted as_options in collect));
require_ok('File::Finder::Steps');
can_ok('File::Finder::Steps',
qw(or left begin right end not true false comma
follow
name perm type
print print0
user group nouser nogroup
links inum size atime mtime ctime
exec ok
prune
depth
ls
ffr
));
isa_ok(my $f = File::Finder->new, "File::Finder");
isa_ok($f->as_wanted, "CODE");
isa_ok($f->as_options, "HASH");