Make some tests select an encoding profile instead of relying on the default.

1 files changed, 4 insertions, 4 deletions

diff --git a/tests/ioCmd.test b/tests/ioCmd.test
index 1c06ba3..471659a 100644
--- a/tests/ioCmd.test
+++ b/tests/ioCmd.test
@@ -1367,7 +1367,7 @@ test iocmd-24.15 {chan write, EAGAIN means that writing is not allowed at this t
 
 test iocmd-25.1 {chan configure, cgetall, standard options} -match glob -body {
     set res {}
-    proc foo {args} {oninit; onfinal; track; note MUST_NOT_HAPPEN; return}
+    proc foo args {oninit; onfinal; track; note MUST_NOT_HAPPEN; return}
     set c [chan create {r w} foo]
     note [fconfigure $c]
     close $c
@@ -1376,7 +1376,7 @@ test iocmd-25.1 {chan configure, cgetall, standard options} -match glob -body {
 } -result {{-blocking 1 -buffering full -buffersize 4096 -encoding * -eofchar {} -profile * -translation {auto *}}}
 test iocmd-25.2 {chan configure, cgetall, no options} -match glob -body {
     set res {}
-    proc foo {args} {oninit cget cgetall; onfinal; track; return ""}
+    proc foo args {oninit cget cgetall; onfinal; track; return ""}
     set c [chan create {r w} foo]
     note [fconfigure $c]
     close $c
@@ -1385,9 +1385,9 @@ test iocmd-25.2 {chan configure, cgetall, no options} -match glob -body {
 } -result {{cgetall rc*} {-blocking 1 -buffering full -buffersize 4096 -encoding * -eofchar {} -profile * -translation {auto *}}}
 test iocmd-25.3 {chan configure, cgetall, regular result} -match glob -body {
     set res {}
-    proc foo {args} {
+    proc foo args {
 	oninit cget cgetall; onfinal; track
-	return "-bar foo -snarf x"
+	return {-bar foo -snarf x}
     }
     set c [chan create {r w} foo]
     note [fconfigure $c]