From b490d77e84576cfab28e8bba88f332401a863a8a Mon Sep 17 00:00:00 2001 From: Phil Jackson Date: Wed, 6 Aug 2008 22:35:09 +0100 Subject: [PATCH] etest-execute.el: Fixed bug in `etest-execute-get-test-file' --- etest-execute.el | 30 ++++++++++++++++++------------ 1 file changed, 18 insertions(+), 12 deletions(-) diff --git a/etest-execute.el b/etest-execute.el index 6004831..6e0987b 100644 --- a/etest-execute.el +++ b/etest-execute.el @@ -40,18 +40,24 @@ named (to the buffer) file. Then looking in `default-directory'." ((and etest-file (file-exists-p (expand-file-name etest-file))) (expand-file-name etest-file)) - ((catch 'found - (let ((etest-load-path (append etest-load-path (list default-directory))) - (name (concat - (file-name-sans-extension - (file-name-nondirectory buffer-file-name)) ".etest"))) - (mapc '(lambda (d) - (let ((name (expand-file-name (concat d "/" name)))) - (when (file-exists-p name) - (throw 'found name)))) - etest-load-path) - nil))))) - + ((and buffer-file-name + (catch 'found + (let ((etest-load-path (append etest-load-path + (list default-directory))) + (name (concat + (file-name-sans-extension + (file-name-nondirectory buffer-file-name)) ".etest"))) + (mapc '(lambda (d) + (let ((name (expand-file-name (concat d "/" name)))) + (when (file-exists-p name) + (throw 'found name)))) + etest-load-path) + nil)))))) + + +(defun etest-execute-all-in-cwd () + (interactive)) + (defun etest-execute () (interactive) (let ((file (etest-execute-get-test-file))) -- 2.11.4.GIT