summaryrefslogtreecommitdiff
path: root/test/gauche.scm
diff options
context:
space:
mode:
Diffstat (limited to 'test/gauche.scm')
-rw-r--r--test/gauche.scm19
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")