less hacky check for executables when loading tests
authorEric Schulte <schulte.eric@gmail.com>
Mon, 26 Sep 2011 12:16:55 +0000 (06:16 -0600)
committerEric Schulte <schulte.eric@gmail.com>
Mon, 26 Sep 2011 12:16:55 +0000 (06:16 -0600)
* testing/org-test.el (org-test-for-executable): Less hacky check for
  executables when loading tests.

testing/org-test.el

index 9e80844..a2285a0 100644 (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)