diff options
Diffstat (limited to 'test/gauche.scm')
-rw-r--r-- | test/gauche.scm | 19 |
1 files changed, 3 insertions, 16 deletions
diff --git a/test/gauche.scm b/test/gauche.scm index 1388b1e..929ea6a 100644 --- a/test/gauche.scm +++ b/test/gauche.scm @@ -1,21 +1,8 @@ (import (scheme base) - (prefix (gauche test) g:)) + (srfi 64)) (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?)))) - +(test-begin "gauche") (include "run.scm") +(test-end "gauche") |