find/testsuite/find.gnu/deletefile.exp

   1 global FTSFIND
   2 global FINDFLAGS
   3 exec rm -rf tmp
   4 exec mkdir tmp tmp/top
   5 proc touchfile {} {
   6     exec touch tmp/top/file
   7 }
   8 find_start p {tmp -path tmp/top/file -delete -print} "" "" touchfile
   9 exec rm -rf tmp