From b63c3535b0cd45544b5af854f88984af5125dd0b Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 21 Sep 2020 17:41:45 +0200 Subject: [PATCH] Convert manual indent test for ruby-mode into unit test * test/manual/indent/ruby.rb: Move from here... * test/lisp/progmodes/ruby-mode-resources/ruby.rb: ...to here. * test/lisp/progmodes/ruby-mode-tests.el (ruby-mode-tests-data-dir): New variable. (ruby--indent/converted-from-manual-test): New test. --- .../progmodes/ruby-mode-resources}/ruby.rb | 0 test/lisp/progmodes/ruby-mode-tests.el | 19 +++++++++++++++++++ 2 files changed, 19 insertions(+) rename test/{manual/indent => lisp/progmodes/ruby-mode-resources}/ruby.rb (100%) diff --git a/test/manual/indent/ruby.rb b/test/lisp/progmodes/ruby-mode-resources/ruby.rb similarity index 100% rename from test/manual/indent/ruby.rb rename to test/lisp/progmodes/ruby-mode-resources/ruby.rb diff --git a/test/lisp/progmodes/ruby-mode-tests.el b/test/lisp/progmodes/ruby-mode-tests.el index 9d677a2c27a..fb3b42b30df 100644 --- a/test/lisp/progmodes/ruby-mode-tests.el +++ b/test/lisp/progmodes/ruby-mode-tests.el @@ -24,6 +24,12 @@ (require 'ert) (require 'ruby-mode) +(defvar ruby-mode-tests-data-dir + (file-truename + (expand-file-name "ruby-mode-resources/" + (file-name-directory (or load-file-name + buffer-file-name))))) + (defmacro ruby-with-temp-buffer (contents &rest body) (declare (indent 1) (debug t)) `(with-temp-buffer @@ -842,6 +848,19 @@ VALUES-PLIST is a list with alternating index and value elements." (ruby--insert-coding-comment "utf-8") (should (string= "# encoding: utf-8\n\n" (buffer-string)))))) +;; TODO: Convert these into unit proper tests instead of using an +;; external file. +(ert-deftest ruby--indent/converted-from-manual-test () + :tags '(:expensive-test) + ;; Converted from manual test. + (let ((buf (find-file-noselect (expand-file-name "ruby.rb" + ruby-mode-tests-data-dir)))) + (unwind-protect + (with-current-buffer buf + (let ((orig (buffer-string))) + (indent-region (point-min) (point-max)) + (should (equal (buffer-string) orig)))) + (kill-buffer buf)))) (provide 'ruby-mode-tests) -- 2.39.5