2f360ddb34
Test framework and tests in Scheme, and portable. Work in progress. Expect commits for more tests. Testing framework is stable, more or less. Add more tests Add tests layer and layerMask. test Item methods More tests, selection Test memory, vector in TS. More tests char functions sharp expr tests
52 lines
1.3 KiB
Scheme
52 lines
1.3 KiB
Scheme
; test the testing framework
|
|
|
|
; assert stmt
|
|
|
|
|
|
; a result that is #t passes
|
|
(assert #t)
|
|
|
|
; other truthy results pass
|
|
(assert 1)
|
|
|
|
; 0 is truthy and passes
|
|
(assert 0)
|
|
|
|
; If you really want to assert that exactly #t is the result,
|
|
; you should eval a topmost predicate that yields only #t or #f
|
|
; For example, where eq? is equality of pointers:
|
|
(assert '(not (eq? 0 #t)))
|
|
|
|
; a symbol defined outside an assert is visible
|
|
; when you backquote and unquote it.
|
|
(define aTrue #t)
|
|
(assert `,aTrue)
|
|
|
|
; Here
|
|
; backquote passes the following expression as data without evaluating it
|
|
; singlequote makes a list literal instead of a function call
|
|
; unquote i.e. comma evaluates the following symbol before backquote passes expression as data
|
|
(assert `(car '(,aTrue)))
|
|
|
|
|
|
|
|
; assert-error statment
|
|
|
|
; assert-error tests for error messages
|
|
; assert-error omits the "Error: " prefix printed by the REPL
|
|
|
|
; case: Error1 called with pointer to errant atom
|
|
; symbol aFalse is not bound
|
|
(assert-error 'aFalse
|
|
"eval: unbound variable:")
|
|
|
|
; assert-error currently omits the suffix <repr of errant code>
|
|
; printed by the usual error mechanism.
|
|
; (Since I think error hook mechanism is broken.)
|
|
|
|
; case: Error0 called with null pointer
|
|
; numeric literal 1 is not a function
|
|
(assert-error '(1)
|
|
"illegal function")
|
|
|
|
|