#! perl
use Test::More 'no_plan';
BEGIN { use_ok('File::Finder') }
isa_ok(my $f = File::Finder->new, "File::Finder");
## also tests cloning
{
isa_ok(my $f1 = $f->depth, "File::Finder");
ok($f1->as_options->{bydepth}, "setting bydepth");
ok(!$f1->as_options->{follow}, "setting bydepth, follow not set");
}
{
isa_ok(my $f1 = $f->follow, "File::Finder");
ok($f1->as_options->{follow}, "setting follow");
ok(!$f1->as_options->{bydepth}, "setting follow, bydepth not set");
}