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');
}