resyntax/default-recommendations/keep-sorted-suggestions-test.rkt at 688b3e7f1ee745ecc45d0e0c9b4db999f2e9ffa6 · jackfirth/resyntax · GitHub

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
#lang resyntax/test


require: resyntax/default-recommendations/keep-sorted-suggestions keep-sorted-suggestions


header:
--------------------
#lang racket/base
(require resyntax/keep-sorted)
(define apple 'apple)
(define banana 'banana)
(define mango 'mango)
(define orange 'orange)
(define zebra 'zebra)
--------------------


test: "unsorted marked list should be resorted"
------------------------------
(void (keep-sorted (list apple orange banana)))
==============================
(void (keep-sorted (list apple banana orange)))
------------------------------


test: "unsorted marked set should be resorted"
------------------------------
(require racket/set)
(void (keep-sorted (set orange apple banana)))
==============================
(require racket/set)
(void (keep-sorted (set apple banana orange)))
------------------------------


test: "unsorted marked vector should be resorted"
------------------------------
(void (keep-sorted (vector zebra apple mango)))
==============================
(void (keep-sorted (vector apple mango zebra)))
------------------------------


no-change-test: "already sorted marked list should not be changed"
------------------------------
(void (keep-sorted (list apple banana orange)))
------------------------------


no-change-test: "unmarked unsorted list should not be changed"
------------------------------
(void (list orange apple banana))
------------------------------