diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/build-emacs-utils.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/build-emacs-utils.scm b/tests/build-emacs-utils.scm index 081032285a..4e851ed959 100644 --- a/tests/build-emacs-utils.scm +++ b/tests/build-emacs-utils.scm @@ -23,6 +23,7 @@ #:use-module (guix build utils) #:use-module ((guix utils) #:select (call-with-temporary-directory)) + #:use-module (ice-9 regex) #:use-module (srfi srfi-34) #:use-module (srfi srfi-64)) @@ -36,8 +37,10 @@ (test-assert "emacs-batch-script: raise &emacs-batch-error on failure" (guard (c ((emacs-batch-error? c) - (string-contains (emacs-batch-error-message c) - "Lisp error: (wrong-type-argument numberp \"three\")"))) + ;; The error message format changed between Emacs 27 and Emacs + ;; 28. + (string-match "[Ww]rong.*argument.*numberp.*\"three\"" + (emacs-batch-error-message c)))) (emacs-batch-script '(mapcar 'number-to-string (list 1 2 "three"))))) (call-with-temporary-directory |