Guess the file path of an emacs buffer holding a clojure file.

clojure_tools.el

(defun guess-clojure-test-file ()
  "Guesses the test file path of the current buffer if it is a clojure file."
  (interactive)
  (let ((clojure-file-name buffer-file-name))
    (with-temp-buffer
      (insert clojure-file-name)
      (goto-char (point-max))
      (search-backward "src")
      (replace-match "test")
      (goto-char (point-max))
      (search-backward ".")
      (replace-match "_test.")
      (message (buffer-string)))))