~ chicken-core (chicken-5) 72b62a8ca427926ed78796a4d56ff281fa2f2960

commit 72b62a8ca427926ed78796a4d56ff281fa2f2960
Author:     felix <felix@z.(none)>
AuthorDate: Sat Mar 5 01:17:21 2011 +0100
Commit:     felix <felix@z.(none)>
CommitDate: Sat Mar 5 01:17:21 2011 +0100

    updated meta-syntax-tests with code from sjamaan

diff --git a/tests/meta-syntax-test.scm b/tests/meta-syntax-test.scm
index 80b53bcc..b9905abe 100755
--- a/tests/meta-syntax-test.scm
+++ b/tests/meta-syntax-test.scm
@@ -1,10 +1,19 @@
 ;;;; meta-syntax-test.scm
 
 
-(module foo (bar)
+(module foo (bar listify)
   (import scheme chicken)
   (begin-for-syntax
    (define (baz x) 
      (list (cadr x))))
   (define-syntax (bar x r c)
-    `(,(r 'list) (baz (list 1 ,(cadr x))))))
+    `(,(r 'list) (baz (list 1 ,(cadr x)))))
+  (begin-for-syntax
+   (define-syntax call-it-123
+     (syntax-rules ()
+       ((_ x)
+        '(x 'x 1 2 3)))))
+  (define-syntax listify
+    (lambda (e r c)
+      (call-it-123 list))))
+
diff --git a/tests/runtests.sh b/tests/runtests.sh
index e544c7d9..4f6677d4 100644
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -127,10 +127,10 @@ $compile syntax-tests-2.scm
 ./a.out
 
 echo "======================================== meta-syntax tests ..."
-$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))"
+$interpret -bnq meta-syntax-test.scm -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))"
 $compile_s meta-syntax-test.scm -j foo
 $compile_s foo.import.scm
-$interpret -bnq -e '(require-library meta-syntax-test)' -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))"
+$interpret -bnq -e '(require-library meta-syntax-test)' -e '(import foo)' -e "(assert (equal? '((1)) (bar 1 2)))" -e "(assert (equal? '(list 1 2 3) (listify)))"
 
 echo "======================================== reexport tests ..."
 $interpret -bnq reexport-tests.scm
@@ -158,6 +158,7 @@ $compile_s foo.import.scm -o foo.import.so
 $interpret -s import-library-test2.scm
 $compile import-library-test2.scm
 ./a.out
+rm -f foo.import.*
 
 echo "======================================== optionals test ..."
 $interpret -s test-optional.scm