diff options
Diffstat (limited to 'test/src')
| -rw-r--r-- | test/src/fns-tests.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/test/src/fns-tests.el b/test/src/fns-tests.el index 3d1a8b37b4e..d6cc99e8e33 100644 --- a/test/src/fns-tests.el +++ b/test/src/fns-tests.el | |||
| @@ -161,7 +161,10 @@ | |||
| 161 | '(9 . "ppp") '(8 . "ttt") '(8 . "eee") '(9 . "fff")) | 161 | '(9 . "ppp") '(8 . "ttt") '(8 . "eee") '(9 . "fff")) |
| 162 | (lambda (x y) (< (car x) (car y)))) | 162 | (lambda (x y) (< (car x) (car y)))) |
| 163 | [(8 . "xxx") (8 . "bbb") (8 . "ttt") (8 . "eee") | 163 | [(8 . "xxx") (8 . "bbb") (8 . "ttt") (8 . "eee") |
| 164 | (9 . "aaa") (9 . "zzz") (9 . "ppp") (9 . "fff")]))) | 164 | (9 . "aaa") (9 . "zzz") (9 . "ppp") (9 . "fff")])) |
| 165 | ;; Bug#34104 | ||
| 166 | (should (equal (should-error (sort "cba" #'<) :type 'wrong-type-argument) | ||
| 167 | '(wrong-type-argument list-or-vector-p "cba")))) | ||
| 165 | 168 | ||
| 166 | (ert-deftest fns-tests-collate-sort () | 169 | (ert-deftest fns-tests-collate-sort () |
| 167 | (skip-unless (fns-tests--collate-enabled-p)) | 170 | (skip-unless (fns-tests--collate-enabled-p)) |