test/chibi.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14

(import (scheme base)
	(scheme case-lambda)
	(except (chibi test) test-equal)
	(srfi 2))

(import (zambyte meta json))

;-(
(define (test-equal name expected actual)
  (test-assert name (test-equal? expected actual)))

(test-begin "chibi")
(include "./test/run.scm")
(test-end "chibi")