~ chicken-core (chicken-5) 8dd2cd3ee3a6307aab95b4205c757096dec72336

commit 8dd2cd3ee3a6307aab95b4205c757096dec72336
Author:     Mario Domenech Goulart <mario.goulart@gmail.com>
AuthorDate: Thu May 24 15:11:16 2012 -0300
Commit:     Mario Domenech Goulart <mario.goulart@gmail.com>
CommitDate: Thu May 24 15:11:16 2012 -0300

    path-tests.scm: add a simple test to check if make-pathname barfs when given a list of non-strings

diff --git a/tests/path-tests.scm b/tests/path-tests.scm
index 6582cdee..45893485 100644
--- a/tests/path-tests.scm
+++ b/tests/path-tests.scm
@@ -78,3 +78,4 @@
 (test "x/y/z.q" (make-pathname "x/y\\" "z.q"))
 (test "x//y/z.q" (make-pathname "x//y/" "z.q"))
 (test "x\\y/z.q" (make-pathname "x\\y" "z.q"))
+(test 'error (handle-exceptions _ 'error (make-pathname '(#f) "foo")))