test: Use write instead of display.
authorJan Nieuwenhuizen <janneke@gnu.org>
Thu, 15 Nov 2018 16:10:03 +0000 (17:10 +0100)
committerJan Nieuwenhuizen <janneke@gnu.org>
Thu, 15 Nov 2018 16:10:03 +0000 (17:10 +0100)
* module/mes/test.scm (seq?, sequal?, seq2?, sless?, sequal2?): Use
write for expected, actual.

module/mes/test.scm

index f33b5843cece61c201d4b566b9a9cb5c5255566e..a066095b6bd4dd8aae9ddade4dd66de101233653 100644 (file)
@@ -81,9 +81,9 @@
         (display ": fail")
         (newline)
         (display "expected: ")
-        (display expect) (newline)
+        (write expect) (newline)
         (display "actual: ")
-        (display a)
+        (write a)
         (newline)
         #f)))
 
@@ -93,9 +93,9 @@
         (display ": fail")
         (newline)
         (display "expected: ")
-        (display expect) (newline)
+        (write expect) (newline)
         (display "actual: ")
-        (display a)
+        (write a)
         (newline)
         #f)))
 
   (or (eq? a expect)
       (begin
         (display ": fail") (newline)
-        (display "expected: ") (display expect) (newline)
-        (display "actual: ") (display a) (newline)
+        (display "expected: ") (write expect) (newline)
+        (display "actual: ") (write a) (newline)
         #f)))
 
 (define (sless? a expect)
   (or (< a expect)
       (begin
         (display ": fail") (newline)
-        (display "expected: ") (display expect) (newline)
-        (display "actual: ") (display a) (newline)
+        (display "expected: ") (write expect) (newline)
+        (display "actual: ") (write a) (newline)
         #f)))
 
 (define (sequal2? actual expect)
   (or (equal? actual expect)
       (begin
         (display ": fail") (newline)
-        (display "expected: ") (display expect) (newline)
-        (display "actual: ") (display actual) (newline)
+        (display "expected: ") (write expect) (newline)
+        (display "actual: ") (write actual) (newline)
         #f)))
 
 (define-macro (pass-if name t)