diff options
Diffstat (limited to 'test/lisp/emacs-lisp/subr-x-tests.el')
| -rw-r--r-- | test/lisp/emacs-lisp/subr-x-tests.el | 24 |
1 files changed, 11 insertions, 13 deletions
diff --git a/test/lisp/emacs-lisp/subr-x-tests.el b/test/lisp/emacs-lisp/subr-x-tests.el index dca7df63098..7f3916c2c0b 100644 --- a/test/lisp/emacs-lisp/subr-x-tests.el +++ b/test/lisp/emacs-lisp/subr-x-tests.el @@ -722,28 +722,26 @@ (with-buffer-unmodified-if-unchanged (insert "t") (delete-char -1)) - (should (not (buffer-modified-p)))) + (should-not (buffer-modified-p))) ;; Shouldn't error. (should (with-temp-buffer - (let ((inner (current-buffer))) - (with-buffer-unmodified-if-unchanged - (insert "t") - (delete-char -1) - (kill-buffer (current-buffer)) - t)))) + (with-buffer-unmodified-if-unchanged + (insert "t") + (delete-char -1) + (kill-buffer)))) (with-temp-buffer (let ((outer (current-buffer))) (with-temp-buffer (let ((inner (current-buffer))) - (with-buffer-unmodified-if-unchanged - (insert "t") - (delete-char -1) - (set-buffer outer)) - (with-current-buffer inner - (should (not (buffer-modified-p))))))))) + (with-buffer-unmodified-if-unchanged + (insert "t") + (delete-char -1) + (set-buffer outer)) + (with-current-buffer inner + (should-not (buffer-modified-p)))))))) (provide 'subr-x-tests) |