Skip to content
Browse files

Revert to the old-new test-structure.

clojure-jump-between-test-and-code should work again.

@babysnakes: thanks for making me work hard ;)
  • Loading branch information...
1 parent d6c5f66 commit 0b1fcd4db4799eadf1b1cdca3685496891567f0f @bonega bonega committed
Showing with 4 additions and 5 deletions.
  1. +1 −1 clojure-mode.el
  2. +3 −4 clojure-test-mode.el
View
2 clojure-mode.el
@@ -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
7 clojure-test-mode.el
@@ -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 0b1fcd4

Please sign in to comment.
Something went wrong with that request. Please try again.