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 line wrapping in chibi test

Browse source
This commit is contained in:
Alex Shinn 2024-03-17 10:39:27 +09:00
parent 19c7d4fec2
commit 5b27b01f91
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lib/chibi/test.scm
View file

@ -682,6 +682,7 @@
(when (and indent (positive? indent))
(display (indent-string indent)))
(test-print-name info (or indent 4))))))
(define (stop-test status info)
(define indent
(indent-string
@ -720,13 +721,10 @@
(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)))
(let* ((width (max (- (current-column-width)
(test-group-indent-width group))
(current-group-indent)))
(column (test-group-ref group 'count 0)))
(when (and (zero? (modulo column width))
(not (test-group-ref group 'verbose)))
(newline)
@ -836,7 +834,10 @@
(close-group group))
((group parent)
(display (test-group-line group 'open))
(newline))))
(if (test-group-ref group 'verbose)
(newline)
(display (indent-string (+ 1 (test-group-indent-width group)))))
)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; parameters