diff options
| -rw-r--r-- | test/src/emacs-module-tests.el | 30 |
1 files changed, 15 insertions, 15 deletions
diff --git a/test/src/emacs-module-tests.el b/test/src/emacs-module-tests.el index 99a853b17e0..502143dd48d 100644 --- a/test/src/emacs-module-tests.el +++ b/test/src/emacs-module-tests.el @@ -188,21 +188,21 @@ changes." ;; This doesn’t yet cause undefined behavior. (should (eq (mod-test-invalid-store) 123)) (with-temp-buffer - (should (equal (call-process mod-test-emacs nil t nil - "-batch" "-Q" "-module-assertions" "-eval" - (prin1-to-string - `(progn - (require 'mod-test ,mod-test-file) - ;; Storing and reloading a local - ;; value causes undefined - ;; behavior, which should be - ;; detected by the module - ;; assertions. - (mod-test-invalid-store) - (mod-test-invalid-load)))) - ;; FIXME: This string is probably different on - ;; Windows and Linux. - "Abort trap: 6")) + ;; FIXME this dumps a core file if the user has them enabled, + ;; which seems unfriendly. + (should (string-match-p + "Abort" ; eg "Aborted" or "Abort trap: 6" + (call-process mod-test-emacs nil t nil + "-batch" "-Q" "-module-assertions" "-eval" + (prin1-to-string + `(progn + (require 'mod-test ,mod-test-file) + ;; Storing and reloading a local value + ;; causes undefined behavior, which should be + ;; detected by the module assertions. + (mod-test-invalid-store) + (mod-test-invalid-load)))))) + ;; FIXME a failure here gives an uninformative error. (re-search-backward (rx bos "Emacs module assertion: " "Emacs value not found in " (+ digit) " values of " |