diff options
| -rw-r--r-- | test/lisp/abbrev-tests.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test/lisp/abbrev-tests.el b/test/lisp/abbrev-tests.el index aaf1d4a5b5c..288ea1ae987 100644 --- a/test/lisp/abbrev-tests.el +++ b/test/lisp/abbrev-tests.el @@ -69,8 +69,9 @@ (define-abbrev ert-test-abbrevs "sys" "system abbrev" nil :system t) (should (equal (mapcar #'symbol-name (abbrev--table-symbols 'ert-test-abbrevs)) '("a-e-t"))) - (should (equal (mapcar #'symbol-name (abbrev--table-symbols 'ert-test-abbrevs t)) - '("a-e-t" "sys"))))) + (let ((syms (abbrev--table-symbols 'ert-test-abbrevs t))) + (should (equal (sort (mapcar #'symbol-name syms) #'string<) + '("a-e-t" "sys")))))) (ert-deftest abbrev-table-get-put-test () (let ((table (make-abbrev-table))) |