blob: 68ea5e62c359841f9bad643822817f11a8137ebc (
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
|
(import (scheme base)
(only (csc match)
define-match-record-type)
(only (csc testing)
assert-equal
test)
(csc compare))
(test diff-list
(assert-equal
" (
1
- 2
3
+ 3.5
4
)
"
(diff '(1 2 3 4) '(1 3 3.5 4))))
(define-match-record-type <test-type>
(make-test-type a b)
test-type?
%test-type
(a test-type-a)
(b test-type-b))
(test diff-record
(assert-equal
" (
(a .
5
)
(b .
- 5
+ 6
)
(type .
<test-type>
)
)
"
(diff (make-test-type 5 5) (make-test-type 5 6) (cons test-type? %test-type))))
(test diff-multiline-string
(assert-equal
" (
(type .
string
)
(value .
(
line-one
- line-two
line-three
)
)
)
"
(diff "line-one\nline-two\nline-three" "line-one\nline-three")))
(test diff-vector
(assert-equal
" (
(type .
vector
)
(value .
(
1
- 2
3
)
)
)
"
(diff #(1 2 3) #(1 3))))
|
