3b630af6f9
moved internal modules to schemeunit/private moved tests to tests/schemeunig added schemeunit/gui drscheme: fixed bug in show-backtrace-window svn: r18243
25 lines
688 B
Scheme
25 lines
688 B
Scheme
#lang scheme/base
|
|
|
|
(require schemeunit
|
|
schemeunit/private/check-info
|
|
schemeunit/private/format)
|
|
|
|
(provide format-tests)
|
|
|
|
(define format-tests
|
|
(test-suite
|
|
"All tests for format"
|
|
|
|
(test-case
|
|
"display-check-info-stack"
|
|
(let ([p (open-output-string)])
|
|
(parameterize ([current-output-port p])
|
|
(check string=?
|
|
(begin (display-check-info-stack
|
|
(list (make-check-name "foo")
|
|
(make-check-actual 1)
|
|
(make-check-expected 2)))
|
|
(get-output-string p))
|
|
"name: \"foo\"\nactual: 1\nexpected: 2\n\n"))))
|
|
))
|