(import (scheme base)
	(std test))

(import (zambyte meta json))

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

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

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

(include "run.scm")