~ chicken-core (master) c19dc0c73a205e6a8f76fa9a668eb516a4ca61da

commit c19dc0c73a205e6a8f76fa9a668eb516a4ca61da
Author:     Kristian Lein-Mathisen <kristianlein@gmail.com>
AuthorDate: Tue Sep 22 10:29:06 2026 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Tue Sep 22 12:43:16 2026 +0200

    tests: add tests for include-path
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/tests/include-path.scm b/tests/include-path.scm
new file mode 100644
index 00000000..af6cf438
--- /dev/null
+++ b/tests/include-path.scm
@@ -0,0 +1,7 @@
+(import (only (chicken platform) include-path))
+
+(include "test.scm")
+
+(test-assert "(include-path) default" (list? (include-path)))
+(include-path (list "./nowhere"))
+(test-equal "(include-path) changed" '("./nowhere") (include-path))
diff --git a/tests/runtests.sh b/tests/runtests.sh
index 5f879ef8..e3bceea7 100755
--- a/tests/runtests.sh
+++ b/tests/runtests.sh
@@ -495,6 +495,7 @@ echo "======================================== syntax-rules stress test ..."
 $time $interpret -bnq syntax-rule-stress-test.scm
 
 echo "======================================== include test ..."
+$interpret -s include-path.scm
 mkdir -p a/b
 echo > a/b/ok.scm
 echo '(include "a/b/ok.scm")' > a/b/include.scm