diff options
| author | Jim Blandy <jimb@red-bean.com> | 2023-01-11 06:58:44 -0800 |
|---|---|---|
| committer | Jim Blandy <jimb@red-bean.com> | 2023-01-11 06:59:34 -0800 |
| commit | 673a322a1f9dbbe60fc2a0c856e0a9f72e0a58f8 (patch) | |
| tree | 3561529a88c81d1197bdaafee6e2dd13eba39ed0 /rust-mode-tests.el | |
| parent | 26f4582293e0c11aaf5643c5064cd2c98444642c (diff) | |
| download | rust-mode-673a322a1f9dbbe60fc2a0c856e0a9f72e0a58f8.tar.gz | |
Establish more-controlled environment for fill-paragraph tests.
Define a macro `rust-test-with-standard-fill-settings` to bind all the
variables that affect `fill-paragraph`, and use it around all calls to
`fill-paragraph`.
Some tests based on `rust-test-fill-paragraph` were failing for me
because I set `sentence-end-double-space` to nil, so double spaces
after periods in the test input were getting collapsed into single
spaces.
Diffstat (limited to 'rust-mode-tests.el')
| -rw-r--r-- | rust-mode-tests.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/rust-mode-tests.el b/rust-mode-tests.el index abbfcb6..fc28101 100644 --- a/rust-mode-tests.el +++ b/rust-mode-tests.el @@ -54,6 +54,13 @@ (should (rust-compare-code-after-manip original point-pos manip-func expected (buffer-string))))) +(defmacro rust-test-with-standard-fill-settings (&rest body) + (declare (indent defun)) + `(let ((fill-column rust-test-fill-column) + (sentence-end-double-space t) + (colon-double-space nil)) + ,@body)) + (defun rust-test-fill-paragraph (unfilled expected &optional start-pos end-pos) "We're going to run through many scenarios here--the point should be able to be anywhere from the start-pos (defaults to 1) through end-pos (defaults to the length of what was passed in) and (fill-paragraph) should return the same result. It should also work with fill-region from start-pos to end-pos. @@ -78,7 +85,7 @@ Also, the result should be the same regardless of whether the code is at the beg (concat padding-beginning unfilled padding-end) pos (lambda () - (let ((fill-column rust-test-fill-column)) + (rust-test-with-standard-fill-settings (fill-paragraph))) (concat padding-beginning expected padding-end))))) ;; In addition to all the fill-paragraph tests, check that it works using fill-region @@ -86,7 +93,7 @@ Also, the result should be the same regardless of whether the code is at the beg unfilled start-pos (lambda () - (let ((fill-column rust-test-fill-column)) + (rust-test-with-standard-fill-settings (fill-region start-pos end-pos))) expected) )) |