diff options
author | Ludovic Courtès <ludo@gnu.org> | 2011-12-18 21:14:33 +0100 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2011-12-18 21:18:38 +0100 |
commit | 1629429d63170b1c5a19e72e838cab331c7eba8b (patch) | |
tree | 1e35edf9fe448c019538f14f926666177377b403 /test-suite/tests/ftw.test | |
parent | af98fafabfa1a6d22688ff491fea63155665f2e5 (diff) | |
download | guile-1629429d63170b1c5a19e72e838cab331c7eba8b.tar.gz |
ftw: Add `scandir'.
Suggested by Nala Ginrut <nalaginrut@gmail.com>.
* module/ice-9/ftw.scm (scandir): New procedure.
* test-suite/tests/ftw.test ("scandir"): New test prefix.
* doc/ref/misc-modules.texi (File Tree Walk): Document `scandir'.
Diffstat (limited to 'test-suite/tests/ftw.test')
-rw-r--r-- | test-suite/tests/ftw.test | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/test-suite/tests/ftw.test b/test-suite/tests/ftw.test index 40e4c2a35..3db3302ca 100644 --- a/test-suite/tests/ftw.test +++ b/test-suite/tests/ftw.test @@ -166,3 +166,11 @@ expected))) (_ #f)) children))))) + +(with-test-prefix "scandir" + + (pass-if "test-suite" + (let ((select? (cut string-suffix? ".test" <>))) + (match (scandir (string-append %test-dir "/tests") select?) + (("." ".." "00-initial-env.test" (? select?) ...) + #t))))) |