diff options
| author | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-11-17 11:53:19 (GMT) |
|---|---|---|
| committer | aspect <aspect+tclcore@abstracted-spleen.org> | 2017-11-17 11:53:19 (GMT) |
| commit | f81c2ae72421a94e27139ec158ac8822ad6beb5c (patch) | |
| tree | 18839a87932274dbba285a522606d70e7d5813cf /tests | |
| parent | 7c1f63bb60215a26625aa1f5a7ad3074d83d4898 (diff) | |
| download | tcl-f81c2ae72421a94e27139ec158ac8822ad6beb5c.zip tcl-f81c2ae72421a94e27139ec158ac8822ad6beb5c.tar.gz tcl-f81c2ae72421a94e27139ec158ac8822ad6beb5c.tar.bz2 | |
fix [glob] handling of leading //
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/zipfs.test | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/tests/zipfs.test b/tests/zipfs.test index b14aa7d..97dc463 100644 --- a/tests/zipfs.test +++ b/tests/zipfs.test @@ -55,14 +55,18 @@ test zipfs-0.5 {zipfs basics: glob} -constraints zipfs -body { } -result [list $tcl_library/http $tcl_library/http1.0] test zipfs-0.6 {zipfs basics: glob} -constraints zipfs -body { + lsort [glob $tcl_library/http*] +} -result [list $tcl_library/http $tcl_library/http1.0] + +test zipfs-0.7 {zipfs basics: glob} -constraints zipfs -body { lsort [glob -tails -dir $tcl_library http*] } -result {http http1.0} -test zipfs-0.7 {zipfs basics: glob} -constraints zipfs -body { +test zipfs-0.8 {zipfs basics: glob} -constraints zipfs -body { lsort [glob -nocomplain -tails -types d -dir $tcl_library http*] } -result {http http1.0} -test zipfs-0.8 {zipfs basics: glob} -constraints zipfs -body { +test zipfs-0.9 {zipfs basics: glob} -constraints zipfs -body { lsort [glob -nocomplain -tails -types f -dir $tcl_library http*] } -result {} |