(import (scheme base)
	(std test))

(import (zambyte meta json))

(define-syntax test-equal
  (syntax-rules ()
    ((_ name expected actual)
     (test-case name (check-equal? actual expected)))))

(define-syntax test-assert
  (syntax-rules ()
    ((_ name actual)
     (test-case name (check-predicate actual values)))))

(define suite
  (test-suite
   "gerbil"
   (include "run.scm")))

(run-test-suite! suite)