Index: tests/zipfs.test ================================================================== --- tests/zipfs.test +++ tests/zipfs.test @@ -57,36 +57,36 @@ } -result 1 test zipfs-0.3 {zipfs basics: glob} -constraints zipfslib -setup { set pwd [pwd] } -body { cd $tcl_library - expr { "./http" in [glob -dir . http*] } + lsort [glob -dir . http*] } -cleanup { cd $pwd -} -result 1 +} -result {./http} test zipfs-0.4 {zipfs basics: glob} -constraints zipfslib -setup { set pwd [pwd] } -body { cd $tcl_library - expr { "$tcl_library/http" in [glob -dir [pwd] http*] } + lsort [glob -dir [pwd] http*] } -cleanup { cd $pwd -} -result 1 +} -result [list $tcl_library/http] test zipfs-0.5 {zipfs basics: glob} -constraints zipfslib -body { - expr { "$tcl_library/http" in [glob -dir $tcl_library http*] } -} -result 1 + lsort [glob -dir $tcl_library http*] +} -result [list $tcl_library/http] test zipfs-0.6 {zipfs basics: glob} -constraints zipfslib -body { - expr { "$tcl_library/http" in [glob $tcl_library/http*] } -} -result 1 + lsort [glob $tcl_library/http*] +} -result [list $tcl_library/http] test zipfs-0.7 {zipfs basics: glob} -constraints zipfslib -body { - expr { "http" in [glob -tails -dir $tcl_library http*] } -} -result 1 + lsort [glob -tails -dir $tcl_library http*] +} -result {http} test zipfs-0.8 {zipfs basics: glob} -constraints zipfslib -body { - expr { "http" in [glob -nocomplain -tails -types d -dir $tcl_library http*] } -} -result 1 + lsort [glob -nocomplain -tails -types d -dir $tcl_library http*] +} -result {http} test zipfs-0.9 {zipfs basics: glob} -constraints zipfslib -body { - glob -nocomplain -tails -types f -dir $tcl_library http* + lsort [glob -nocomplain -tails -types f -dir $tcl_library http*] } -result {} test zipfs-0.10 {zipfs basics: join} -constraints {zipfs zipfslib} -body { file join [zipfs root] bar baz } -result "[zipfs root]bar/baz" test zipfs-0.11 {zipfs basics: join} -constraints {zipfs zipfslib} -body {