add sagittarius test, and non-working tr7 test

6 files changed, 16 insertions, 4 deletions

diff --git a/README.md b/README.md
index edbf2b3..ff0764f 100644
--- a/README.md
+++ b/README.md
@@ -197,7 +197,8 @@ implementation to fix hygiene in their macro expander.)
 
 ### CHICKEN
 
-Just run `chicken-install cuprate`.
+Just run `chicken-install cuprate`. Because of a bug with compiled
+syntax-rules patterns, `define-test-application` has limited support.
 
 ### Foment
 
@@ -209,3 +210,7 @@ work out of the box. Test bodies cannot return multiple values.
 ### Chibi
 
 You will need `srfi-225`.
+
+### TR7
+
+I tried but there were some issues with loading sublibraries.
diff --git a/lib/cuprate.scm b/lib/cuprate-impl.scm
index 8265571..8265571 100644
--- a/lib/cuprate.scm
+++ b/lib/cuprate-impl.scm
diff --git a/lib/cuprate.sld b/lib/cuprate.sld
index abd1bc1..4123074 100644
--- a/lib/cuprate.sld
+++ b/lib/cuprate.sld
@@ -62,4 +62,4 @@
     (else (begin
             (define default-test-dto eqv-alist-dto)
             (define (alist->default-dictionary x) x))))
-  (include "cuprate.scm"))
\ No newline at end of file
+  (include "cuprate-impl.scm"))
\ No newline at end of file
diff --git a/tests/run.scm b/tests/run.scm
index 7f28673..7b3fac7 100644
--- a/tests/run.scm
+++ b/tests/run.scm
@@ -2,6 +2,7 @@
   (chicken-5 (import r7rs))
   (else))
 
-(import (cuprate) (srfi 225) (cuprate rewriters))
-  (include "impl.scm")
+(import (scheme base) (cuprate) (srfi 225) (cuprate rewriters))
+(test-set! 'verbose? #t)
+(include "impl.scm")
 
diff --git a/tests/sagittarius.sh b/tests/sagittarius.sh
new file mode 100755
index 0000000..827f33e
--- /dev/null
+++ b/tests/sagittarius.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+sash -L../compat/srfi-225 -L../lib run.scm
diff --git a/tests/tr7.sh b/tests/tr7.sh
new file mode 100755
index 0000000..2aad823
--- /dev/null
+++ b/tests/tr7.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+TR7_EXT_PATH=".sld" TR7_LIB_PATH="../lib:../compat/srfi-225" tr7i run.scm