diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-12 16:04:12 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-12 16:04:12 (GMT) |
commit | 4addfd1f1e4fe9475c50be231c97bea3ffb086f1 (patch) | |
tree | b9a023d0223c39d7a8e00e805b7dc759024f1c6f /tests/fCmd.test | |
parent | 58462852c61eded2afb750f4941bb033a5d51f3e (diff) | |
download | tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.zip tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.tar.gz tcl-4addfd1f1e4fe9475c50be231c97bea3ffb086f1.tar.bz2 |
Extract TIP #637 implementation from "novem" branch
Diffstat (limited to 'tests/fCmd.test')
-rw-r--r-- | tests/fCmd.test | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/fCmd.test b/tests/fCmd.test index 811beb3..93793d1 100644 --- a/tests/fCmd.test +++ b/tests/fCmd.test @@ -829,12 +829,12 @@ test fCmd-7.4 {FileForceOption: bad option} -constraints {notRoot} -setup { } -result {bad option "-tf1": must be -force or --} test fCmd-7.5 {FileForceOption: multiple times through loop} -setup { cleanup -} -constraints {notRoot} -returnCodes error -body { +} -constraints {notRoot} -body { createfile -- createfile -force file delete -force -force -- -- -force glob -- -- -force -} -result {no files matched glob patterns "-- -force"} +} -result {} test fCmd-8.1 {FileBasename: basename of ~user: argc == 1 && *path == ~} \ -constraints {unix notRoot knownBug tildeexpansion} -body { @@ -994,9 +994,9 @@ test fCmd-9.10 {file rename: comprehensive: file to new name and dir} -setup { testchmod 0o444 tf2 file rename tf1 [file join td1 tf3] file rename tf2 [file join td1 tf4] - list [catch {glob tf*}] [lsort [glob -directory td1 t*]] \ + list [glob tf*] [lsort [glob -directory td1 t*]] \ [file writable [file join td1 tf3]] [file writable [file join td1 tf4]] -} -result [subst {1 {[file join td1 tf3] [file join td1 tf4]} 1 0}] +} -result [subst {{} {[file join td1 tf3] [file join td1 tf4]} 1 0}] test fCmd-9.11 {file rename: comprehensive: dir to new name and dir} -setup { cleanup } -constraints {notRoot testchmod} -body { |