From d9a651a17e4abb63a24b764f6a850a0df74bd156 Mon Sep 17 00:00:00 2001
From: Rose Hogenson <rhogenson@google.com>
Date: Tue, 12 Jul 2022 22:55:12 -0700
Subject: Slightly improve diff formatting.

---
 csc/compare-test.csc | 76 ++++++++++++++++++++++++++--------------------------
 1 file changed, 38 insertions(+), 38 deletions(-)

(limited to 'csc/compare-test.csc')

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))))
-- 
cgit v1.3.1