3b630af6f9
moved internal modules to schemeunit/private moved tests to tests/schemeunig added schemeunit/gui drscheme: fixed bug in show-backtrace-window svn: r18243
58 lines
1.2 KiB
Scheme
58 lines
1.2 KiB
Scheme
#lang scheme/base
|
|
|
|
(require schemeunit/private/base
|
|
schemeunit/private/check
|
|
schemeunit/private/test-case
|
|
schemeunit/private/test-suite
|
|
schemeunit/private/result)
|
|
|
|
(provide test-case-tests)
|
|
|
|
(define test-case-tests
|
|
(test-suite
|
|
"test-case-tests"
|
|
|
|
(test-case
|
|
"test-begin terminates when sub-expression fails"
|
|
(let ([fail? #f])
|
|
(delay-test
|
|
(run-test
|
|
(test-begin
|
|
(check-eq? 'a 'b)
|
|
(set! fail? #t)))
|
|
(check-false fail?))))
|
|
|
|
(test-case
|
|
"test-case terminates when sub-expression fails"
|
|
(let ([fail? #f])
|
|
(delay-test
|
|
(run-test
|
|
(test-case
|
|
"foo"
|
|
(check-eq? 'a 'b)
|
|
(set! fail? #t)))
|
|
(check-false fail?))))
|
|
|
|
(test-case
|
|
"define allowed within test-begin"
|
|
(check-pred
|
|
test-success?
|
|
(delay-test
|
|
(car (run-test
|
|
(test-begin
|
|
(define yes #t)
|
|
(check-true yes)))))))
|
|
|
|
(test-case
|
|
"define allowed within test-case"
|
|
(check-pred
|
|
test-success?
|
|
(delay-test
|
|
(car (run-test
|
|
(test-case
|
|
"dummy"
|
|
(define yes #t)
|
|
(check-true yes)))))))
|
|
|
|
))
|