3b630af6f9
moved internal modules to schemeunit/private moved tests to tests/schemeunig added schemeunit/gui drscheme: fixed bug in show-backtrace-window svn: r18243
21 lines
565 B
Scheme
21 lines
565 B
Scheme
;; Here we check the standalone (not within a test-suite)
|
|
;; semantics of checks. These tests are not part of the
|
|
;; standard test suite and must be run separately.
|
|
|
|
#lang scheme/base
|
|
|
|
(require schemeunit/private/check
|
|
schemeunit/private/test-case)
|
|
|
|
;; These tests should succeeds
|
|
(test-begin (check-eq? 1 1))
|
|
(test-case "succeed" (check-eq? 1 1))
|
|
|
|
;; These should raise errors
|
|
(test-begin (error "Outta here!"))
|
|
(test-case "error" (error "Outta here!"))
|
|
|
|
;; Thesse should raise failures
|
|
(test-begin (check-eq? 1 2))
|
|
(test-case "failure" (check-eq? 1 2))
|