54 lines
1.2 KiB
Racket
54 lines
1.2 KiB
Racket
#lang racket/base
|
|
|
|
(require rackunit
|
|
"check-test.rkt"
|
|
"check-info-test.rkt"
|
|
"format-test.rkt"
|
|
"test-case-test.rkt"
|
|
"test-suite-test.rkt"
|
|
"base-test.rkt"
|
|
"location-test.rkt"
|
|
"result-test.rkt"
|
|
"test-test.rkt"
|
|
"util-test.rkt"
|
|
"text-ui-test.rkt"
|
|
"monad-test.rkt"
|
|
"hash-monad-test.rkt"
|
|
"counter-test.rkt"
|
|
"text-ui-util-test.rkt")
|
|
|
|
(provide all-rackunit-tests
|
|
failure-tests)
|
|
|
|
(define all-rackunit-tests
|
|
(test-suite
|
|
"All RackUnit Tests"
|
|
check-tests
|
|
base-tests
|
|
check-info-tests
|
|
test-case-tests
|
|
test-suite-tests
|
|
test-suite-define-provide-test
|
|
location-tests
|
|
result-tests
|
|
test-tests
|
|
util-tests
|
|
text-ui-tests
|
|
monad-tests
|
|
hash-monad-tests
|
|
counter-tests
|
|
text-ui-util-tests
|
|
format-tests
|
|
))
|
|
|
|
(define failure-tests
|
|
(test-suite
|
|
"Failures"
|
|
(test-case "Intended to fail" (fail))
|
|
(test-case "Also intended to fail" (check-eq? 'apples 'orange))
|
|
(test-equal? "Yet again intended to fail" "apples" "oranges")
|
|
(test-case "Intended to throw error" (error 'testing "<<This is an error message>>"))
|
|
(test-case "Error within a check" (check error 'foo 'bar))
|
|
))
|
|
|