andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

test: Use write instead of display. 

* module/mes/test.scm (seq?, sequal?, seq2?, sless?, sequal2?): Use
write for expected, actual.
This commit is contained in:
Jan Nieuwenhuizen 2018-11-15 17:10:03 +01:00
parent 75655793d4
commit c9a3fe68ec
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
module/mes/test.scm
View 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)))
@ -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)