blob: 9c91d4a2880c3ad2573ef594f402c6306c90e95a (
plain) (
blame)
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
|
(define-library (csc sort-test)
(import (scheme base)
(only (csc testing)
assert-equal
test)
(csc sort))
(begin
(test sort-ten-elem
(assert-equal
'(-2 0 2 3 4 4 5 6 9 100)
(sort < '(9 4 5 100 3 2 4 6 0 -2))))
(test sort-empty
(assert-equal '() (sort < '())))
(test sort-singleton
(assert-equal '(1) (sort < '(1))))
(test sort-two
(assert-equal '(1 2) (sort < '(2 1))))
(test sort-reversed
(assert-equal
'(1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20)
(sort < '(20 19 18 17 16 15 14 13 12 11 10 9 8 7 6 5 4 3 2 1))))
(test sort-already-sorted
(assert-equal
'(1 2 3 4 5 6 7 8 9 10)
(sort < '(1 2 3 4 5 6 7 8 9 10))))))
|
