rinari.el

(defun rinari-test (&optional edit-cmd-args)
  "Test the current ruby function.  If current function is not a
test, then try to jump to the related test using
`rinari-find-test'.  Dump output to a compilation buffer allowing
jumping between errors and source code.  With optional prefix
argument allows editing of the test command arguments."
  (interactive "P")
  (or (string-match "test" (or (ruby-add-log-current-method)
			       (file-name-nondirectory (buffer-file-name))))
      (rinari-find-test))
  (let* ((fn (rinari-test-function-name))
         (path (buffer-file-name))
         (ruby-options (list "-I" (expand-file-name "test" (rinari-root)) path))
	 (default-command (mapconcat
                           'identity
                           (append (list path) (if fn (list "--name" (concat "/" fn "/"))))
                           " "))
         (command (if edit-cmd-args
                      (read-string "Run w/Compilation: " default-command)
                    default-command)))
    (message command)
    (if path (ruby-compilation-run command ruby-options)
      (message "no test available"))))

(defun rinari-test-function-name()
  (save-excursion
    (end-of-line)
    (if (re-search-backward (concat "^[ \t]*\\(def\\|test\\)[ \t]+"
                                    "\\([\"'].*?[\"']\\|" ruby-symbol-re "*\\)"
                                    "[ \t]*") nil t)
        (let ((name (match-string 2)))
          (if (string-match "^[\"']\\(.*\\)[\"']$" name)
              (replace-regexp-in-string " +" "_" (match-string 1 name))
            (unless (string-equal "setup" name)
              name))))))