find/testsuite/find.gnu/perm-slash.exp

   1 # tests for -perm /nnn
   2 # The slash is a GNU extension
   3
   4 exec rm -rf tmp
   5 exec mkdir tmp
   6
   7 ## set up a selection of test files
   8 foreach perm  { 400 200 555 700 000 050 } {
   9     exec touch "tmp/$perm"
  10     exec chmod $perm "tmp/$perm"
  11 }
  12
  13 #
  14 # The -o operator normally has a short-circuit effect,
  15 # so we have to use "-exec false \;" to make sure that
  16 # all the parenthesised expression actually fail.
  17 #
  18 find_start p {tmp -mindepth 1 -perm /555 -printf "p/555 %p\n" }
  19 # exec rm -rf tmp tmp2