Permalink
Browse files

Merge pull request #104 from bonega/test-structure-fix

Revert to the old-new test-structure.
  • Loading branch information...
2 parents d6c5f66 + 0b1fcd4 commit 409860174feb61d86cf5653f8ed278496407448d @technomancy technomancy committed Nov 12, 2012
Showing with 4 additions and 5 deletions.
  1. +1 −1 clojure-mode.el
  2. +3 −4 clojure-test-mode.el
View
@@ -1190,7 +1190,7 @@ The arguments are dir, hostname, and port. The return value should be an `alist
;; Test navigation:
(defun clojure-in-tests-p ()
- (or (string-match-p "-test$" (clojure-find-ns))
+ (or (string-match-p "test\." (clojure-find-ns))
(string-match-p "/test" (buffer-file-name))))
(defun clojure-underscores-for-hyphens (namespace)
View
@@ -330,10 +330,9 @@ Retuns the problem overlay if such a position is found, otherwise nil."
(if (> 0 clojure-test-ns-segment-position)
(1- (+ (length segments) clojure-test-ns-segment-position))
clojure-test-ns-segment-position))
- (before (subseq segments 0 clojure-test-ns-segment-position))
- (after (subseq segments clojure-test-ns-segment-position))
- (newfile (replace-regexp-in-string "_test$" "" (car after)))
- (impl-segments (append before (list newfile))))
+ (before (subseq segments 0 test-position))
+ (after (subseq segments (1+ test-position)))
+ (impl-segments (append before after)))
(mapconcat 'identity impl-segments "/")))
;; Commands

0 comments on commit 4098601

Please sign in to comment.