21 lines
537 B
Scheme
21 lines
537 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 "check.ss"
|
|
"test-case.ss")
|
|
|
|
;; 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))
|