Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #942 from dpk/newlines-in-verbose-test-output

Browse source 
`(chibi test)`: Put newlines after test results etc in verbose mode
This commit is contained in:
Alex Shinn 2023-11-07 14:17:17 +09:00 • committed by GitHub
commit af41e2b01d
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 9 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lib/chibi/test.scm
View file

@ -701,7 +701,8 @@
(if (not (eq? status 'ERROR)) (display " ")) ; pad
(display (test-status-message status))
(display "]")
(test-print-failure indent status info))
(test-print-failure indent status info)
(newline))
((eq? status 'SKIP))
(else
(display (test-status-code status))
@ -816,7 +817,8 @@
(display (plural " subgroup" subgroups-pass))
(display " passed.")))
(when (test-group-ref group 'verbose)
(display (test-group-line group #f)))
(display (test-group-line group #f))
(newline))
(cond
((test-group-ref group 'parent)
=> (lambda (parent)
@ -830,8 +832,11 @@
(define test-default-group-reporter
(case-lambda
((group) (close-group group))
((group parent) (display (test-group-line group 'open)))))
((group)
(close-group group))
((group parent)
(display (test-group-line group 'open))
(newline))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; parameters