procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Add cl-adjoin tests

Browse source 
* test/automated/cl-lib-tests.el (cl-lib-adjoin-test): New tests.
This commit is contained in:
Przemysław Wojnowski 2015-04-30 23:48:49 +02:00 • committed by Stefan Monnier
parent 5b0b0ad830
commit 85eb934e96
1 changed files with 41 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

41
test/automated/cl-lib-tests.el
View file

@ -422,6 +422,47 @@
;; should return a copy
(should-not (eq (cl-ldiff l '()) l))))
(ert-deftest cl-lib-adjoin-test ()
(let ((nums '(1 2))
(myfn-p '=))
;; add non-existing item to the front
(should (equal '(3 1 2) (cl-adjoin 3 nums)))
;; just add - don't copy rest
(should (eq nums (cdr (cl-adjoin 3 nums))))
;; add only when not already there
(should (eq nums (cl-adjoin 2 nums)))
(should (equal '(2 1 (2)) (cl-adjoin 2 '(1 (2)))))
;; default test function is eql
(should (equal '(1.0 1 2) (cl-adjoin 1.0 nums)))
;; own :test function - returns true if match
(should (equal '(1.0 1 2) (cl-adjoin 1.0 nums :test nil))) ;defaults to eql
(should (eq nums (cl-adjoin 2 nums :test myfn-p))) ;match
(should (equal '(3 1 2) (cl-adjoin 3 nums :test myfn-p))) ;no match
;; own :test-not function - returns false if match
(should (equal '(1.0 1 2) (cl-adjoin 1.0 nums :test-not nil))) ;defaults to eql
(should (equal '(2 2) (cl-adjoin 2 '(2) :test-not myfn-p))) ; no match
(should (eq nums (cl-adjoin 2 nums :test-not myfn-p))) ; 1 matches
(should (eq nums (cl-adjoin 3 nums :test-not myfn-p))) ; 1 and 2 matches
;; according to CLTL2 passing both :test and :test-not should signal error
;;(should-error (cl-adjoin 3 nums :test 'myfn-p :test-not myfn-p))
;; own :key fn
(should (eq nums (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (1+ x) x)))))
(should (equal '(3 1 2) (cl-adjoin 3 nums :key (lambda (x) (if (evenp x) (+ 2 x) x)))))
;; convert using :key, then compare with :test
(should (eq nums (cl-adjoin 1 nums :key 'int-to-string :test 'string=)))
(should (equal '(3 1 2) (cl-adjoin 3 nums :key 'int-to-string :test 'string=)))
(should-error (cl-adjoin 3 nums :key 'int-to-string :test myfn-p)
:type 'wrong-type-argument)
;; convert using :key, then compare with :test-not
(should (eq nums (cl-adjoin 3 nums :key 'int-to-string :test-not 'string=)))
(should (equal '(1 1) (cl-adjoin 1 '(1) :key 'int-to-string :test-not 'string=)))
(should-error (cl-adjoin 1 nums :key 'int-to-string :test-not myfn-p)
:type 'wrong-type-argument)))
(ert-deftest cl-parse-integer ()
(should-error (cl-parse-integer "abc"))
(should (null (cl-parse-integer "abc" :junk-allowed t)))