less hacky check for executables when loading tests

* testing/org-test.el (org-test-for-executable): Less hacky check for
  executables when loading tests.
This commit is contained in:
Eric Schulte 2011-09-26 06:16:55 -06:00
parent 32cf8bf731
commit 832fd8b415
1 changed files with 4 additions and 1 deletions

View File

@ -107,7 +107,10 @@ org-test searches this directory up the directory tree.")
This can be used at the top of code-block-language specific test
files to avoid loading the file on systems without the
executable."
(unless (> (length (shell-command-to-string (format "which %s" exe))) 0)
(unless (reduce
(lambda (acc dir)
(or acc (file-exists-p (expand-file-name exe dir))))
exec-path :initial-value nil)
(throw 'missing-test-dependency exe)))
(defun org-test-buffer (&optional file)