;;; rails-rake.el --- emacs-rails integraions with rake tasks.

;; Copyright (C) 2006 Dmitry Galinsky <dima dot exe at gmail dot com>

;; Authors: Dmitry Galinsky <dima dot exe at gmail dot com>,

;;          Peter Rezikov <crazypit13 at gmail dot com>

;; Keywords: ruby rails languages oop

;; $URL: svn+ssh://rubyforge/var/svn/emacs-rails/trunk/rails-spec.el $

;; $Id: rails-spec.el 117 2007-03-25 23:37:37Z dimaexe $

;;; License

;; This program is free software; you can redistribute it and/or

;; modify it under the terms of the GNU General Public License

;; as published by the Free Software Foundation; either version 2

;; of the License, or (at your option) any later version.

;; This program is distributed in the hope that it will be useful,

;; but WITHOUT ANY WARRANTY; without even the implied warranty of

;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License

;; along with this program; if not, write to the Free Software

;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

(defvar rails-spec:all-files "spec"

  "All spec files/directories in project")

(defun rails-spec:runner ()

  "Command, that run specs."

  (if (file-exists-p (rails-core:file "script/spec"))

    (rails-core:file "script/spec")

    "rspec"))

(defvar rails-spec:last-run nil

  "Spec and arguments of last run.")

(defun rails-spec:run (files &optional options)

  "Rerun previous spec run."

  (setf rails-spec:last-run (cons files options))

  (rails-script:run (rails-spec:runner)

                    (list options files)

                    'rails-test:compilation-mode))

(defun rails-spec:run-current (fail-fast)

  "Run spec for the current controller/model/mailer."

  (interactive "P")

  (let* ((type (rails-core:buffer-type))

         (spec (cond

                ((find type '(:model :mailer :rspec-fixture))

                 (rails-core:rspec-model-file (rails-core:current-model)))

                ((find type '(:controller :helper :view))

                 (rails-core:rspec-controller-file (rails-core:current-controller)))

                ((find type '(:rspec-model :rspec-controller :rspec-lib))

                 (buffer-file-name))

                ((eql type :lib)

                 (rails-core:rspec-lib-file (rails-core:current-lib))))))

    (if spec

      (let ((options (if fail-fast "--fail-fast" "")))

        (rails-spec:run spec options))

      (message "No spec found for %s" (buffer-file-name)))))

(defun rails-spec:run-all (fail-fast)

  "Run spec for all files in project (rails-spec:all-files variable)"

  (interactive "P")

  (let ((options (if fail-fast "--fail-fast" "")))

    (rails-spec:run (rails-core:file rails-spec:all-files) options)))

(defun rails-spec:run-last ()

  "Rerun previous spec run."

  (interactive)

  (when rails-spec:last-run

    (rails-spec:run (car rails-spec:last-run) (cdr rails-spec:last-run))))

(defun rails-spec:run-this-spec ()

  "Run spec where the point is"

  (interactive)

  (rails-spec:run (buffer-file-name) (concat "--line " (substring (what-line) 5))))

(provide 'rails-spec)