[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#22729: 25.0.50; cl-union ignores :test when lists are equal
From: |
Lars Ingebrigtsen |
Subject: |
bug#22729: 25.0.50; cl-union ignores :test when lists are equal |
Date: |
Tue, 23 Feb 2016 14:39:02 +1100 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.1.50 (gnu/linux) |
Nicolas Richard <youngfrog@members.fsf.org> writes:
> * cl-seq.el (cl-union): Do not ignore :test argument when lists are equal.
Thanks; applied.
> * test/automated/cl-seq-tests.el: New file.
The test fails:
(ert-test-failed
((should
(equal
(cl-union ... ... :test ...)
(list str1 str2)))
:form
(equal
("foo")
("foo" "foo"))
:value nil :explanation
(proper-lists-of-different-length 1 2
("foo")
("foo" "foo")
first-mismatch-at 1)))
And that's because the two "foo" strings are eql here. Apparently the
Emacs reader is being clever...
I've fixed that by using non-literal strings and applied.
--
(domestic pets only, the antidote for overdose, milk.)
bloggy blog: http://lars.ingebrigtsen.no