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

fix missing newline in test line wrapping output

Browse source
This commit is contained in:
Alex Shinn 2022-02-24 22:43:49 +09:00
parent e587881c2c
commit c5cfc5cded
1 changed files with 19 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
lib/chibi/test.scm
View file

@ -689,25 +689,6 @@
(cond ((current-test-group) (cond ((current-test-group)
=> test-group-indent-width) => test-group-indent-width)
(else 0))))) (else 0)))))
;; update group info
(cond
((current-test-group)
=> (lambda (group)
(if (not (eq? 'SKIP status))
(test-group-inc! group 'count))
(test-group-inc! group status)
;; maybe wrap long status lines
(let ((width (max (- (current-column-width)
(test-group-indent-width group))
(current-group-indent)))
(column
(+ (string-length (test-group-name group))
(test-group-ref group 'count 0)
1)))
(if (and (zero? (modulo column width))
(not (test-group-ref group 'verbose)))
(display
(string-copy indent (current-group-indent))))))))
;; update global failure count for exit status ;; update global failure count for exit status
(cond (cond
((or (eq? status 'FAIL) (eq? status 'ERROR)) ((or (eq? status 'FAIL) (eq? status 'ERROR))
@ -730,6 +711,25 @@
(test-group-push! group 'failures (list indent status info))))) (test-group-push! group 'failures (list indent status info)))))
(cond ((current-test-group) (cond ((current-test-group)
=> (lambda (group) (test-group-set! group 'trailing #t)))))) => (lambda (group) (test-group-set! group 'trailing #t))))))
;; update group info
(cond
((current-test-group)
=> (lambda (group)
(if (not (eq? 'SKIP status))
(test-group-inc! group 'count))
(test-group-inc! group status)
;; maybe wrap long status lines
(let ((width (max (- (current-column-width)
(test-group-indent-width group))
(current-group-indent)))
(column
(+ (string-length (test-group-name group))
(test-group-ref group 'count 0)
1)))
(when (and (zero? (modulo column width))
(not (test-group-ref group 'verbose)))
(newline)
(display (string-copy indent (current-group-indent))))))))
(flush-output-port) (flush-output-port)
status) status)