find/testsuite/find.gnu/execdir-in-unreadable.exp

   1 # tests for -execdir ... \+ in a directory which is not readable
   2 if { [ safe_path ] } {
   3     exec rm -rf tmp
   4     exec mkdir tmp
   5     exec chmod 755 tmp
   6     exec mkdir tmp/sub
   7     exec chmod 300 tmp/sub
   8     find_start p { tmp -maxdepth 1 -execdir true \{\} \+ }
   9     exec chmod 700 tmp/sub
  10     exec rm -rf tmp
  11 }