* test/automated/ruby-mode-tests.el (ruby-with-temp-buffer): Move before

first use.
(ruby-should-indent): Use indent-according-to-mode.
(ruby-deftest-move-to-block): Use `declare'.

diff --git a/test/ChangeLog b/test/ChangeLog
index 2585561b840c2b27cba2df664381d70123a18ca9..ce3cdd2f1e30abae52833ee63afbcebded359668 100644 (file)
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,10 @@
+2013-10-10  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * automated/ruby-mode-tests.el (ruby-with-temp-buffer): Move before
+       first use.
+       (ruby-should-indent): Use indent-according-to-mode.
+       (ruby-deftest-move-to-block): Use `declare'.
+
 2013-10-07  Dmitry Gutov  <dgutov@yandex.ru>
 
        * indent/ruby.rb: Fix a spurious change, add more failing examples.

diff --git a/test/automated/ruby-mode-tests.el b/test/automated/ruby-mode-tests.el
index 86b123f9b14e044341f349859e63f3af6b2876cb..dafe393377bee8d925c1a32ed59b6c15de68b3e5 100644 (file)
--- a/test/automated/ruby-mode-tests.el
+++ b/test/automated/ruby-mode-tests.el
@@ -24,10 +24,17 @@
 (require 'ert)
 (require 'ruby-mode)
 
+(defmacro ruby-with-temp-buffer (contents &rest body)
+  (declare (indent 1) (debug t))
+  `(with-temp-buffer
+     (insert ,contents)
+     (ruby-mode)
+     ,@body))
+
 (defun ruby-should-indent (content column)
   "Assert indentation COLUMN on the last line of CONTENT."
   (ruby-with-temp-buffer content
-    (ruby-indent-line)
+    (indent-according-to-mode)
     (should (= (current-indentation) column))))
 
 (defun ruby-should-indent-buffer (expected content)
@@ -38,13 +45,6 @@ The whitespace before and including \"|\" on each line is removed."
     (indent-region (point-min) (point-max))
     (should (string= (ruby-test-string expected) (buffer-string)))))
 
-(defmacro ruby-with-temp-buffer (contents &rest body)
-  (declare (indent 1) (debug t))
-  `(with-temp-buffer
-     (insert ,contents)
-     (ruby-mode)
-     ,@body))
-
 (defun ruby-test-string (s &rest args)
   (apply 'format (replace-regexp-in-string "^[ \t]*|" "" s) args))
 
@@ -471,6 +471,7 @@ VALUES-PLIST is a list with alternating index and value elements."
    |end"))
 
 (defmacro ruby-deftest-move-to-block (name &rest body)
+  (declare (indent defun))
   `(ert-deftest ,(intern (format "ruby-move-to-block-%s" name)) ()
      (with-temp-buffer
        (insert ruby-block-test-example)
@@ -478,8 +479,6 @@ VALUES-PLIST is a list with alternating index and value elements."
        (goto-char (point-min))
        ,@body)))
 
-(put 'ruby-deftest-move-to-block 'lisp-indent-function 'defun)
-
 (ruby-deftest-move-to-block works-on-do
   (forward-line 10)
   (ruby-end-of-block)