diff options
| -rw-r--r-- | test/lisp/progmodes/ruby-mode-resources/ruby.rb (renamed from test/manual/indent/ruby.rb) | 0 | ||||
| -rw-r--r-- | test/lisp/progmodes/ruby-mode-tests.el | 19 |
2 files changed, 19 insertions, 0 deletions
diff --git a/test/manual/indent/ruby.rb b/test/lisp/progmodes/ruby-mode-resources/ruby.rb index 6b7d10dea38..6b7d10dea38 100644 --- a/test/manual/indent/ruby.rb +++ b/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 @@ | |||
| 24 | (require 'ert) | 24 | (require 'ert) |
| 25 | (require 'ruby-mode) | 25 | (require 'ruby-mode) |
| 26 | 26 | ||
| 27 | (defvar ruby-mode-tests-data-dir | ||
| 28 | (file-truename | ||
| 29 | (expand-file-name "ruby-mode-resources/" | ||
| 30 | (file-name-directory (or load-file-name | ||
| 31 | buffer-file-name))))) | ||
| 32 | |||
| 27 | (defmacro ruby-with-temp-buffer (contents &rest body) | 33 | (defmacro ruby-with-temp-buffer (contents &rest body) |
| 28 | (declare (indent 1) (debug t)) | 34 | (declare (indent 1) (debug t)) |
| 29 | `(with-temp-buffer | 35 | `(with-temp-buffer |
| @@ -842,6 +848,19 @@ VALUES-PLIST is a list with alternating index and value elements." | |||
| 842 | (ruby--insert-coding-comment "utf-8") | 848 | (ruby--insert-coding-comment "utf-8") |
| 843 | (should (string= "# encoding: utf-8\n\n" (buffer-string)))))) | 849 | (should (string= "# encoding: utf-8\n\n" (buffer-string)))))) |
| 844 | 850 | ||
| 851 | ;; TODO: Convert these into unit proper tests instead of using an | ||
| 852 | ;; external file. | ||
| 853 | (ert-deftest ruby--indent/converted-from-manual-test () | ||
| 854 | :tags '(:expensive-test) | ||
| 855 | ;; Converted from manual test. | ||
| 856 | (let ((buf (find-file-noselect (expand-file-name "ruby.rb" | ||
| 857 | ruby-mode-tests-data-dir)))) | ||
| 858 | (unwind-protect | ||
| 859 | (with-current-buffer buf | ||
| 860 | (let ((orig (buffer-string))) | ||
| 861 | (indent-region (point-min) (point-max)) | ||
| 862 | (should (equal (buffer-string) orig)))) | ||
| 863 | (kill-buffer buf)))) | ||
| 845 | 864 | ||
| 846 | (provide 'ruby-mode-tests) | 865 | (provide 'ruby-mode-tests) |
| 847 | 866 | ||