pattern testing

1 files changed, 11 insertions, 6 deletions

diff --git a/test/run.scm b/test/run.scm
index 0b0e9d9..521b2cf 100644
--- a/test/run.scm
+++ b/test/run.scm
@@ -1,11 +1,11 @@
-(import r7rs)
-
 (cond-expand
-  (chicken (import (prefix (mcgoron srfi 64)
+  (chicken (import r7rs
+                   (prefix (mcgoron srfi 64)
                            mcgoron-)
                    (srfi 64))
            (test-runner-factory mcgoron-factory)
-           (test-runner-current (mcgoron-factory))))
+           (test-runner-current (mcgoron-factory)))
+  (else (import (srfi 64))))
 
 (load "../multisyntax/utils.sld")
 (load "../multisyntax/syntax-object.sld")
@@ -14,10 +14,15 @@
 (import (rename (multisyntax syntax-object test)
                 (test test-syntax-object)))
 
-(test-syntax-object)
+#;(test-syntax-object)
 
 (load "../multisyntax/pattern/internal.sld")
 (load "../multisyntax/pattern/matcher.sld")
 (load "pattern/matcher.sld")
 (import (multisyntax pattern matcher test))
-(test-patterns)
+#;(test-patterns)
+
+(load "../multisyntax/pattern/producer.sld")
+(load "pattern/producer.sld")
+(import (multisyntax pattern producer test))
+(test-producers)