(define (assert test-val pred)
(if (not (pred test-val))
(error "ASSERT FAILED: " test-val pred)))
(define (assert-equal test-val expected-val)
(if (not (equal? test-val expected-val))
(error "ASSERT-EQUAL FAILED: \n"
" Expected value: " expected-val "\n"
" Actual value: " test-val "\n")))
(define (assert-eqv test-val expected-val)
(if (not (eqv? test-val expected-val))
(error "ASSERT-EQV FAILED: \n"
" Expected value: " expected-val "\n"
" Actual value: " test-val "\n")))
(define (assert-eq test-val expected-val)
(if (not (eq? test-val expected-val))
(error "ASSERT-EQ FAILED: \n"
" Expected value: " expected-val "\n"
" Actual value: " test-val "\n")))
(define (assert= test-val expected-val)
(if (not (= test-val expected-val))
(error "ASSERT= FAILED: \n"
" Expected value: " expected-val "\n"
" Actual value: " test-val "\n")))
(define (assert-f test-val)
(if test-val
(error "ASSERT-F FAILED")))
(define (assert-t test-val)
(if (not test-val)
(error "ASSERT-T FAILED")))