Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-08 05:27:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

printing test vars on fail/error when provided

Browse source
This commit is contained in:
Alex Shinn 2013-03-08 19:12:02 +09:00
parent 671b037270
commit 4d6d56f002
1 changed files with 21 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
lib/chibi/test.scm
View file

@ -140,11 +140,11 @@
((_ (vars ...) n expect expr ((key . val) ...)) ((_ (vars ...) n expect expr ((key . val) ...))
(test-run (lambda () expect) (test-run (lambda () expect)
(lambda () expr) (lambda () expr)
(cons (cons 'name n) `((name . ,n)
'((source . expr) (source . expr)
;;(var-names . (vars ...)) (var-names . (vars ...))
;;(var-values . ,(list vars)) (var-values . ,(list vars ...))
(key . val) ...)))))) (key . val) ...)))))
;;> @subsubsubsection{@scheme{(test-exit)}} ;;> @subsubsubsection{@scheme{(test-exit)}}
@ -456,7 +456,22 @@
((eq? status 'FAIL) ((eq? status 'FAIL)
(display indent) (display indent)
(display "expected ") (write (assq-ref info 'expected)) (display "expected ") (write (assq-ref info 'expected))
(display " but got ") (write (assq-ref info 'result)) (newline)))) (display " but got ") (write (assq-ref info 'result)) (newline)))
;; print variables
(cond
((and (memq status '(FAIL ERROR)) (assq-ref info 'var-names))
=> (lambda (names)
(let ((values (assq-ref info 'var-values)))
(if (and (pair? names)
(pair? values)
(= (length names) (length values)))
(let ((indent2
(string-append indent (make-string 2 #\space))))
(for-each
(lambda (name value)
(display indent2) (write name) (display ": ")
(write value) (newline))
names values))))))))
(define (test-print-source indent status info) (define (test-print-source indent status info)
(case status (case status