diff options
author | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:10:20 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-11-30 16:10:20 (GMT) |
commit | fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2 (patch) | |
tree | 8bcfa6fea1ccdf1c10edbcd55a70269fa893739e /tests/fileName.test | |
parent | 7e7cc4ff29c7c60467e3c3c61c861c2df30c5e78 (diff) | |
download | tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.zip tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.tar.gz tcl-fa3bc4b41a79a1a27827362ae3a174b5bb85b3f2.tar.bz2 |
Stop [glob] complaining about empty list result. Continue support for
a no-op -nocomplain option, but don't document it. Old script support only.
Diffstat (limited to 'tests/fileName.test')
-rw-r--r-- | tests/fileName.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/fileName.test b/tests/fileName.test index 51f00d1..2dac0df 100644 --- a/tests/fileName.test +++ b/tests/fileName.test @@ -696,9 +696,9 @@ test filename-10.24 {Tcl_TranslateFileName} -body { testtranslatefilename ~ouster/foo } -result {/home/ouster/foo} -constraints {nonPortable testtranslatefilename} -test filename-11.1 {Tcl_GlobCmd} -returnCodes error -body { +test filename-11.1 {Tcl_GlobCmd} -body { glob -} -result {no files matched glob patterns ""} +} -result {} test filename-11.2 {Tcl_GlobCmd} -returnCodes error -body { glob -gorp } -result {bad option "-gorp": must be -directory, -join, -nocomplain, -path, -tails, -types, or --} @@ -714,9 +714,9 @@ test filename-11.5 {Tcl_GlobCmd} -returnCodes error -body { test filename-11.6 {Tcl_GlobCmd} -returnCodes error -body { glob ~xyqrszzz } -result {user "xyqrszzz" doesn't exist} -test filename-11.7 {Tcl_GlobCmd} -returnCodes error -body { +test filename-11.7 {Tcl_GlobCmd} -body { glob -- -nocomplain -} -result {no files matched glob pattern "-nocomplain"} +} -result {} test filename-11.8 {Tcl_GlobCmd} -body { glob -nocomplain -- -nocomplain } -result {} @@ -1085,7 +1085,7 @@ test filename-12.1 {simple globbing} {unixOrPc} { } {.} test filename-12.1.1 {simple globbing} -constraints {unixOrPc} -body { glob -types f {} -} -returnCodes error -result {no files matched glob pattern ""} +} -result {} test filename-12.1.2 {simple globbing} {unixOrPc} { glob -types d {} } {.} @@ -1247,10 +1247,10 @@ test filename-14.20 {asterisks, question marks, and brackets} { } {} test filename-14.21 {asterisks, question marks, and brackets} -body { glob globTest/*/gorp -} -returnCodes error -result {no files matched glob pattern "globTest/*/gorp"} +} -result {} test filename-14.22 {asterisks, question marks, and brackets} -body { glob goo/* x*z foo?q -} -returnCodes error -result {no files matched glob patterns "goo/* x*z foo?q"} +} -result {} test filename-14.23 {slash globbing} {unix} { glob / } / |