view release on metacpan or  search on metacpan

t/05-steps.t  view on Meta::CPAN

is_deeply([File::Finder->group(0+$()->in(qw(.))],
	  [fin(sub { $( == (stat)[5] }, '.')],
	  'group');

is_deeply([File::Finder->not->group(0+$()->in(qw(.))],
	  [fin(sub { $( != (stat)[5] }, '.')],
	  'not group');

is_deeply([File::Finder->nouser->in(qw(.))],
	  [fin(sub { not defined getpwuid((stat)[4]) }, '.')],
	  'nouser');

is_deeply([File::Finder->not->nouser->in(qw(.))],
	  [fin(sub { defined getpwuid((stat)[4]) }, '.')],
	  'not nouser');

is_deeply([File::Finder->nogroup->in(qw(.))],
	  [fin(sub { not defined getgrgid((stat)[5]) }, '.')],
	  'nogroup');

is_deeply([File::Finder->not->nogroup->in(qw(.))],
	  [fin(sub { defined getgrgid((stat)[5]) }, '.')],
	  'not nogroup');