Merge 9.0

2 files changed, 6 insertions, 6 deletions

diff --git a/tests/fileName.test b/tests/fileName.test
index 9538978..f2db5e0 100644
--- a/tests/fileName.test
+++ b/tests/fileName.test
@@ -1570,7 +1570,7 @@ test fileName-20.6 {Bug 2837800} -setup {
     cd $savewd
     removeDirectory ./~ $dd
     removeDirectory isolate
-    removeFile test ~
+    removeFile test [file home]
 } -result {}
 test fileName-20.7 {Bug 2806250} -setup {
     set savewd [pwd]
diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 82b3250..3ea62a3 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -698,12 +698,12 @@ test iocmd-21.1 {chan create, wrong#args, too many} {
     catch {chan create a b c} msg
     set msg
 } {wrong # args: should be "chan create mode cmdprefix"}
-test iocmd-21.2 {chan create, invalid r/w mode, empty} {
-    proc foo {} {}
-    catch {chan create {} foo} msg
+test iocmd-21.2 {chan create, r/w mode empty} {
+    proc foo {cmd args} { return {initialize finalize watch} }
+    set chan [chan create {} foo]
+    close $chan
     rename foo {}
-    set msg
-} {bad mode list: is empty}
+} {}
 test iocmd-21.3 {chan create, invalid r/w mode, bad string} {
     proc foo {} {}
     catch {chan create {c} foo} msg