test/run.scm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

(import r7rs)

(cond-expand
  (chicken (import (prefix (mcgoron srfi 64)
                           mcgoron-)
                   (srfi 64))
           (test-runner-factory mcgoron-factory)
           (test-runner-current (mcgoron-factory))))

(load "../multisyntax/syntax-object.sld")
(load "syntax-object.sld")

(import (rename (multisyntax syntax-object test)
                (test test-syntax-object)))

(test-syntax-object)