Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +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)) (when (and indent (positive? indent))
(display (indent-string indent))) (display (indent-string indent)))
(test-print-name info (or indent 4)))))) (test-print-name info (or indent 4))))))
(define (stop-test status info) (define (stop-test status info)
(define indent (define indent
(indent-string (indent-string
@ -720,13 +721,10 @@
(test-group-inc! group 'count)) (test-group-inc! group 'count))
(test-group-inc! group status) (test-group-inc! group status)
;; maybe wrap long status lines ;; maybe wrap long status lines
(let ((width (max (- (current-column-width) (let* ((width (max (- (current-column-width)
(test-group-indent-width group)) (test-group-indent-width group))
(current-group-indent))) (current-group-indent)))
(column (column (test-group-ref group 'count 0)))
(+ (string-length (test-group-name group))
(test-group-ref group 'count 0)
1)))
(when (and (zero? (modulo column width)) (when (and (zero? (modulo column width))
(not (test-group-ref group 'verbose))) (not (test-group-ref group 'verbose)))
(newline) (newline)
@ -836,7 +834,10 @@
(close-group group)) (close-group group))
((group parent) ((group parent)
(display (test-group-line group 'open)) (display (test-group-line group 'open))
(newline)))) (if (test-group-ref group 'verbose)
(newline)
(display (indent-string (+ 1 (test-group-indent-width group)))))
)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; parameters ;; parameters