Skip a unit test that requires an external program if necessary.

* test/lisp/progmodes/project-tests.el (project/quoted-directory):
Skip if the 'find' program isn't available.  The 'project-files'
function uses 'find' to obtain the list of project files.

diff --git a/test/lisp/progmodes/project-tests.el b/test/lisp/progmodes/project-tests.el
index 23e68541b3d6f3af0df4c91c62fc4b50b8b5765f..6e71948477c53fc6def8340af9d0962a4506a8ab 100644 (file)
--- a/test/lisp/progmodes/project-tests.el
+++ b/test/lisp/progmodes/project-tests.el
@@ -32,6 +32,7 @@
 (ert-deftest project/quoted-directory ()
   "Check that `project-files' deals with quoted directory
 names (Bug#47799)."
+  (skip-unless (executable-find find-program))
   (let ((directory (make-temp-file "project-tests-" :directory)))
     (unwind-protect
         (let ((project (cons 'transient (file-name-quote directory)))