blob: b38d226f6f403d06fb72bcd5d755fa507eb10fdf (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
(load "../common")
(test (append "abc" "d") "abcd")
(test (append "abc" #(#\d)) "abcd")
(test (append '(1 2 . "abc") #(#\d)) (1 2 . "abcd"))
(test (append 3 4) :error)
(test (append '(1) 2) (1 . 2))
(test (append '(1 . 2) 2) :error)
(test (append '(1 . #(3 4 5)) "d") (1 . #(3 4 5 #\d)))
(test (build (add 1) (add 2) (pend (get))) (1 2 1 2))
(test (build (add 1) (add 2) (pend* (get))) (1 2 1 2))
(test (build (add 1) (add 2) (pend (get) (get))) (1 2 1 2 1 2))
(test (build (add 1) (add 2) (pend* (get) (get))) (1 2 1 2 1 2))
(set *print-circle* t)
(stest (build (add 1) (add 2) (ncon (get))) "#1=(1 2 . #1#)")
(stest (build (add 1) (add 2) (ncon* (get))) "#1=(1 2 . #1#)")
(test (mapcar (lambda (. args) (list . args)) '#(1 2 3) '#(4 5 6))
#((1 4) (2 5) (3 6)))
(test [window-map 2 '(x x) list '(a b c d e f g)]
((x x a b c) (x a b c d) (a b c d e)
(b c d e f) (c d e f g) (d e f g nil)
(e f g nil nil)))
(test [window-map 2 '(x x y y) list '(a b c d e f g)]
((x x a b c) (x a b c d) (a b c d e)
(b c d e f) (c d e f g) (d e f g y)
(e f g y y)))
(test [window-map 2 nil list '(a b c d e f g)]
((nil nil a b c) (nil a b c d) (a b c d e)
(b c d e f) (c d e f g)
(d e f g nil) (e f g nil nil)))
(test [window-map 2 :wrap list '(a b c d e f g)]
((f g a b c) (g a b c d) (a b c d e) (b c d e f)
(c d e f g) (d e f g a) (e f g a b)))
(test [window-map 2 :reflect list '(a b c d e f g)]
((b a a b c) (a a b c d) (a b c d e) (b c d e f)
(c d e f g) (d e f g g) (e f g g f)))
(test [window-map 7 :wrap list '(a b c)]
((c a b c a b c a b c a b c a b)
(a b c a b c a b c a b c a b c)
(b c a b c a b c a b c a b c a)))
(test [window-map 7 :reflect list '(a b c)]
((a c b a c b a a b c c b a c b)
(c b a c b a a b c c b a c b a)
(b a c b a a b c c b a c b a c)))
|
