diff options
| author | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 13:55:23 +0100 |
|---|---|---|
| committer | Daniel Mendler <mail@daniel-mendler.de> | 2023-01-21 14:16:41 +0100 |
| commit | 6254608c2e2da008deab6aabf69b23e66fb52433 (patch) | |
| tree | 95791930ee5698c92ca58e698516cce64a1afdd4 /compat-tests.el | |
| parent | 2f3813bf78ec129119b86076e7d43f0a30e4eb39 (diff) | |
compat-macs: Improve error checking
Diffstat (limited to 'compat-tests.el')
| -rw-r--r-- | compat-tests.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/compat-tests.el b/compat-tests.el index e98d1fc..bb22dbc 100644 --- a/compat-tests.el +++ b/compat-tests.el @@ -2811,16 +2811,20 @@ (ert-deftest major-mode-suspend () (with-temp-buffer + (should (local-variable-if-set-p 'major-mode--suspended)) + (should (get 'major-mode--suspended 'permanent-local)) (text-mode) (should sentence-end-double-space) (setq-local sentence-end-double-space nil) (major-mode-suspend) - (should-not line-spacing) + (should-equal major-mode--suspended #'text-mode) + (should sentence-end-double-space) (prog-mode) - (should-equal major-mode 'prog-mode) + (should-equal major-mode #'prog-mode) (major-mode-restore) + (should-not major-mode--suspended) (should sentence-end-double-space) - (should-equal major-mode 'text-mode))) + (should-equal major-mode #'text-mode))) (provide 'compat-tests) ;;; compat-tests.el ends here |