diff options
| author | Dmitry Gutov | 2015-11-10 02:47:46 +0200 |
|---|---|---|
| committer | Dmitry Gutov | 2015-11-10 02:47:46 +0200 |
| commit | 0be6fb8e17f708fe03430d0b1e701810ae51b5e3 (patch) | |
| tree | 03abad9d6697b70fbc6f26e5504c7c20ae070f3d /test | |
| parent | 3c3aad733522365a8fe729d7c92e64e98bc4ce92 (diff) | |
| parent | 1c72afb7aa48c2ea06103113ef70ccea0c1c961d (diff) | |
| download | emacs-0be6fb8e17f708fe03430d0b1e701810ae51b5e3.tar.gz emacs-0be6fb8e17f708fe03430d0b1e701810ae51b5e3.zip | |
Merge branch 'project-next'
Diffstat (limited to 'test')
| -rw-r--r-- | test/automated/cl-lib-tests.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/automated/cl-lib-tests.el b/test/automated/cl-lib-tests.el index b31622fdc33..9b230db99e4 100644 --- a/test/automated/cl-lib-tests.el +++ b/test/automated/cl-lib-tests.el | |||
| @@ -117,8 +117,8 @@ | |||
| 117 | (should (equal (cl-set-difference b b) e)) | 117 | (should (equal (cl-set-difference b b) e)) |
| 118 | ;; Note: this test (and others) is sensitive to the order of the | 118 | ;; Note: this test (and others) is sensitive to the order of the |
| 119 | ;; result, which is not documented. | 119 | ;; result, which is not documented. |
| 120 | (should (equal (cl-set-difference a b) (list c2 "x" "" nil 'a))) | 120 | (should (equal (cl-set-difference a b) (list 'a nil "" "x" c2))) |
| 121 | (should (equal (cl-set-difference b a) (list 'x 'y))) | 121 | (should (equal (cl-set-difference b a) (list 'y 'x))) |
| 122 | 122 | ||
| 123 | ;; We aren't testing whether this is really using `eq' rather than `eql'. | 123 | ;; We aren't testing whether this is really using `eq' rather than `eql'. |
| 124 | (should (equal (cl-set-difference e e :test 'eq) e)) | 124 | (should (equal (cl-set-difference e e :test 'eq) e)) |
| @@ -128,8 +128,8 @@ | |||
| 128 | (should (equal (cl-set-difference b e :test 'eq) b)) | 128 | (should (equal (cl-set-difference b e :test 'eq) b)) |
| 129 | (should (equal (cl-set-difference e b :test 'eq) e)) | 129 | (should (equal (cl-set-difference e b :test 'eq) e)) |
| 130 | (should (equal (cl-set-difference b b :test 'eq) e)) | 130 | (should (equal (cl-set-difference b b :test 'eq) e)) |
| 131 | (should (equal (cl-set-difference a b :test 'eq) (list c2 "x" "" nil 'a))) | 131 | (should (equal (cl-set-difference a b :test 'eq) (list 'a nil "" "x" c2))) |
| 132 | (should (equal (cl-set-difference b a :test 'eq) (list 'x 'y))) | 132 | (should (equal (cl-set-difference b a :test 'eq) (list 'y 'x))) |
| 133 | 133 | ||
| 134 | (should (equal (cl-union e e) e)) | 134 | (should (equal (cl-union e e) e)) |
| 135 | (should (equal (cl-union a e) a)) | 135 | (should (equal (cl-union a e) a)) |