blob: 11748c7fec8f462a8181be46b829ced1dcc2faa3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(load "../common")
(mtest
(less #() #(a)) t
(greater #() #(a)) nil
(less #(0) #(1)) t
(greater #(0) #(1)) nil
(less #(1) #(0)) nil
(greater #(1) #(0)) t
(less #(0) #(0 0)) t
(less #(1) #(0 0)) nil
(less #(0 0) #(0 1)) t
(less #(0 0) #(0 0)) nil
(less #(0 0) #(0 0 0)) t)
(mtest
(less '() #()) t
(less '(0) #(0)) t
(less "a" #(#\a)) t
(less #() #b'') t
(less #(0) #b'00') t)
|