(import (scheme base)
	(prefix (gauche test) g:))

(import (zambyte meta json))

(define-syntax test
  (syntax-rules ()
    ((_ name expected actual)
     (g:test name expected (lambda () actual) equal?))))

(define-syntax test-assert
  (syntax-rules ()
    ((_ name expr)
     (g:test name #t (lambda () expr) eq?))))

(define-syntax test-not
  (syntax-rules ()
    ((_ name expr)
     (g:test name #f (lambda () expr) eq?))))

(include "run.scm")