From 70d2301f8698fd1cc6bbf08b78f463286bddcbfe Mon Sep 17 00:00:00 2001 From: Espen Wiborg Date: Tue, 31 Mar 2009 21:11:34 +0200 Subject: [PATCH] More Groovy support --- src/main/lisp/malabar-test.el | 3 ++- src/main/lisp/malabar-util.el | 4 ++-- 2 files changed, 4 insertions(+), 3 deletions(-) diff --git a/src/main/lisp/malabar-test.el b/src/main/lisp/malabar-test.el index 922f5e3..62a95c6 100644 --- a/src/main/lisp/malabar-test.el +++ b/src/main/lisp/malabar-test.el @@ -68,7 +68,8 @@ (if (malabar-test-class-buffer-p buffer) buffer (let ((class-file (malabar-class-name-to-filename - (malabar-corresponding-test-class-name buffer))) + (malabar-corresponding-test-class-name buffer) + (file-name-extension (buffer-file-name buffer) t))) (test-source-directories (malabar-project-test-source-directories (malabar-find-project-file buffer)))) (funcall diff --git a/src/main/lisp/malabar-util.el b/src/main/lisp/malabar-util.el index db85961..641b020 100644 --- a/src/main/lisp/malabar-util.el +++ b/src/main/lisp/malabar-util.el @@ -107,9 +107,9 @@ return the corresponding cdr." (substring classname 0 lastdot) ""))) -(defun malabar-class-name-to-filename (class-name) +(defun malabar-class-name-to-filename (class-name &optional suffix) (concat (replace-regexp-in-string "\\." "/" class-name) - ".java")) + (or suffix ".java"))) (defun malabar--find-file (file directory) (when (file-accessible-directory-p directory)