Add test suite to makefile
This commit is contained in:
parent
e310d9ce21
commit
7ba64111ba
@ -1,4 +1,4 @@
|
|||||||
SOURCES = d-.scm
|
SOURCES = d-.scm d-/test.scm
|
||||||
|
|
||||||
GOBJECTS = $(SOURCES:%.scm=%.go)
|
GOBJECTS = $(SOURCES:%.scm=%.go)
|
||||||
GUILD = @GUILD@
|
GUILD = @GUILD@
|
||||||
|
@ -1,7 +1,7 @@
|
|||||||
(define-module (d- test)
|
(define-module (d- test)
|
||||||
#:use-module (ice-9 format)
|
#:use-module (ice-9 format)
|
||||||
#:use-module (ice-9 control)
|
#:use-module (ice-9 control)
|
||||||
#:export (define-test-suite assert))
|
#:export (define-test-suite))
|
||||||
|
|
||||||
(define (assert expected actual eq? fail)
|
(define (assert expected actual eq? fail)
|
||||||
(when (not (eq? expected actual))
|
(when (not (eq? expected actual))
|
||||||
|
Loading…
Reference in New Issue
Block a user