find-cmd.etest

   1 (etest
   2  ("find-cmd"
   3   ("command args"
   4    (like (find-cmd '(exec "ls -l")) "-exec ls -l \\\\;"
   5          "find escapes wierd chars as it should (exec)")
   6    (like (find-cmd '(name "a b ! (")) "a\\\\ b\\\\ \\\\!\\\\ \\\\("
   7          "find escapes wierd chars as it should (name)"))
   8   ("directory"
   9    (like (let ((default-directory "/etc")) (find-cmd)) "^find /etc $"
  10          "find starts with 'find' and default directory")
  11    (like (find-cmd) (concat "^find " (regexp-quote default-directory) " ")
  12          "find starts with 'find'"))
  13   ("boolean logic"
  14    (like (find-to-string '(and (name "*.el") (mtime "+1")))
  15          (regexp-quote "\\\( -name \\\*.el -and -mtime \\\+1 \\\) ")
  16          "boolean and is ok")
  17    (like (find-to-string '(or (name "*.el") (mtime "+1")))
  18          (regexp-quote "\\\( -name \\\*.el -or -mtime \\\+1 \\\) ")
  19          "boolean or is ok")
  20    (like (find-to-string '(or (and (name "a")
  21                                (mtime "+1"))
  22                            (name "b")))
  23          (regexp-quote "\\\( \\\( -name a -and -mtime \\\+1 \\\) -or -name b")
  24          "mixed boolean logic is ok"))))