find/testsuite/find.gnu/deletedir.exp

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