csc/sort-test.csc


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

(import (scheme base)
        (only (csc testing)
          assert-equal
          test)
        (csc sort))


(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))))