~ chicken-core (chicken-5) e1d5924215e95880c9fd2e75f59df206ff23187d

commit e1d5924215e95880c9fd2e75f59df206ff23187d
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Mon Feb 15 13:06:21 2010 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Mon Feb 15 13:06:21 2010 +0100

    test-suite fixes

diff --git a/tests/private-repository-test.scm b/tests/private-repository-test.scm
new file mode 100644
index 00000000..930027b6
--- /dev/null
+++ b/tests/private-repository-test.scm
@@ -0,0 +1,12 @@
+;;;; private-repository-test.scm
+
+
+(use files)
+
+(define repo (normalize-pathname (repository-path)))
+(define dir (normalize-pathname (get-environment-variable "REPO_DIR")))
+
+(print (list dir repo))
+
+(assert (string=? repo dir))
+
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 805231f2..ea00c1e7 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -218,6 +218,13 @@ echo "======================================== embedding (2) ..."
 $compile -e embedded2.scm
 ./a.out
 
+echo "======================================== private repository test ..."
+mkdir -p tmp
+$compile private-repository-test.scm -private-repository -o tmp/xxx
+REPO_DIR=$PWD tmp/xxx
+REPO_DIR=$PWD PATH=$PWD/tmp:$PATH xxx
+REPO_DIR=$PWD PATH=$PATH:$PWD/tmp xxx
+
 echo "======================================== timing compilation ..."
 time $compile compiler.scm -O5 -debug pb -v -C -Wa,-W
 echo "executing ..."
diff --git a/tests/symbolgc-tests.scm b/tests/symbolgc-tests.scm
index fde27820..210247bf 100644
--- a/tests/symbolgc-tests.scm
+++ b/tests/symbolgc-tests.scm
@@ -19,9 +19,10 @@
 (print "recovering ...")
 
 (let loop ()
-  (gc #t)
   (let ((n (vector-ref (##sys#symbol-table-info) 2)))
-    (print n)
-    (unless (= *count1* n) (loop))))
+    (print* n " ")
+    (unless (< (- n *count1*) 200)     ; allow some
+      (gc #t)
+      (loop))))
 
-(print "done.")
+(print "\ndone.")