projects
/
jscl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
PAIRLIS
[jscl.git]
/
tests
/
list.lisp
diff --git
a/tests/list.lisp
b/tests/list.lisp
index
7969b0b
..
78cec44
100644
(file)
--- a/
tests/list.lisp
+++ b/
tests/list.lisp
@@
-44,6
+44,12
@@
(acons 1 2 (list (cons 3 4)))))
(test (equal (list (cons 1 2)) (acons 1 2 ())))
(acons 1 2 (list (cons 3 4)))))
(test (equal (list (cons 1 2)) (acons 1 2 ())))
+; PAIRLIS
+(test (equal (list (cons 1 3) (cons 0 2))
+ (pairlis '(0 1) '(2 3))))
+(test (equal (list (cons 1 2) (cons 'a 'b))
+ (pairlis '(1) '(2) (list (cons 'a 'b)))))
+
; SUBST
; Can't really test this until EQUAL works properly on lists
; SUBST
; Can't really test this until EQUAL works properly on lists