diff options
Diffstat (limited to 'csc/compare-test.csc')
| -rw-r--r-- | csc/compare-test.csc | 76 |
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)))) |
