1N/A# There are few filetest operators that are portable enough to test. 1N/A chdir 't' if -d 't'; 1N/A# make sure TEST is r-x 1N/Aeval { chmod 0555, 'TEST' or die "chmod 0555, 'TEST' failed: $!" }; 1N/Aeval '$> = 1'; # so switch uid (may not be implemented) 1N/A# Scripts are not -x everywhere so cannot test that. 1N/Aeval '$> = $oldeuid'; # switch uid back (may not be implemented) 1N/A# this would fail for the euid 1 1N/A# (unless we have unpacked the source code as uid 1...) 1N/A# this would fail for the euid 1 1N/A# (unless we have unpacked the source code as uid 1...) 1N/Aok( -x 'op' ); # Hohum. Are directories -x everywhere? 1N/Ais( "@{[grep -r, qw(foo io noo op zoo)]}", "io op" );