aboutsummaryrefslogtreecommitdiffstats
path: root/csc/compare-test.csc
diff options
context:
space:
mode:
Diffstat (limited to 'csc/compare-test.csc')
-rw-r--r--csc/compare-test.csc76
1 files changed, 38 insertions, 38 deletions
diff --git a/csc/compare-test.csc b/csc/compare-test.csc
index 6df177f..68ea5e6 100644
--- a/csc/compare-test.csc
+++ b/csc/compare-test.csc
@@ -9,13 +9,13 @@
(test diff-list
(assert-equal
- " (
- 1
- -2
- 3
- +3.5
- 4
- )
+ " (
+ 1
+ - 2
+ 3
+ + 3.5
+ 4
+ )
"
(diff '(1 2 3 4) '(1 3 3.5 4))))
@@ -30,53 +30,53 @@
(test diff-record
(assert-equal
- " (
- (a .
- 5
- )
- (b .
- -5
- +6
- )
- (type .
- <test-type>
+ " (
+ (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
+ " (
+ (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
+ " (
+ (type .
+ vector
+ )
+ (value .
+ (
+ 1
+ - 2
+ 3
+ )
)
)
- )
"
(diff #(1 2 3) #(1 3))))