~ chicken-core (chicken-5) 2ea25153cd75ae06a3e7d75fcb39d01b0ce42419

commit 2ea25153cd75ae06a3e7d75fcb39d01b0ce42419
Author:     felix <felix@y.(none)>
AuthorDate: Sun Mar 7 00:00:46 2010 +0100
Commit:     felix <felix@y.(none)>
CommitDate: Sun Mar 7 00:00:46 2010 +0100

    added a few more tests

diff --git a/tests/test-glob.scm b/tests/test-glob.scm
index c7dad78d..a5732384 100644
--- a/tests/test-glob.scm
+++ b/tests/test-glob.scm
@@ -6,7 +6,10 @@
 (assert (string-match (glob->regexp "foo.bar") "foo.bar"))
 (assert (string-match (glob->regexp "foo*") "foo.bar"))
 (assert (string-match (glob->regexp "foo/*") "foo/bar"))
+(assert (not (string-match (glob->regexp "foo/*") "foo/bar/baz")))
+(assert (string-match (glob->regexp "foo/*/*") "foo/bar/baz"))
 (assert (not (string-match (glob->regexp "foo/*") "foo/.bar")))
+(assert (string-match (glob->regexp "*foo") "xyzfoo"))
 (assert (not (string-match (glob->regexp "*foo") ".foo")))
 (assert (not (string-match (glob->regexp "*foo*") "a.fooxxx/yyy")))
 (assert (string-match (glob->regexp "*foo*") "fooxxx"))