emacs-rails 2.3.2 test

gistfile1.el

;; 2.3.2 test
(defun rails-core:current-test-name ()
  (save-excursion
    (when (search-backward-regexp "^[ ]*test[ ]*\"\\([a-z0-9_ ]+\\)\"" nil t)
      (format "test_%s"
              (replace-regexp-in-string " " "_" (match-string-no-properties 1))
              ))))

(defun rails-test:run-current-method ()
  "Run a test for the current method."
  (interactive)
  (let ((file (substring (buffer-file-name) (length (rails-project:root))))
        (method (rails-core:current-test-name)))
    (when method
      (rails-test:run-single-file file (format "--name=%s" method)))))