From c9a3fe68ec143866c96e17f4b0efa46e754a467d Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Thu, 15 Nov 2018 17:10:03 +0100 Subject: [PATCH] test: Use write instead of display. * module/mes/test.scm (seq?, sequal?, seq2?, sless?, sequal2?): Use write for expected, actual. --- module/mes/test.scm | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/module/mes/test.scm b/module/mes/test.scm index f33b5843..a066095b 100644 --- a/module/mes/test.scm +++ b/module/mes/test.scm @@ -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))) @@ -103,24 +103,24 @@ (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)