More Groovy support

m0smith · Mar 31, 2009 · 70d2301 · 70d2301
1 parent 40afc41
commit 70d2301
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 3 deletions.
diff --git 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
@@ -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)