blob: 1388b1e62220d0a5937a93b62b08183f89e863d0 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
(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")
|
