Attachment "encoding.test.diff" to
ticket [549610ffff]
added by
kennykb
2002-04-28 05:25:42.
Index: tests/encoding.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/encoding.test,v
retrieving revision 1.11
diff -u -r1.11 encoding.test
--- tests/encoding.test 8 Apr 2002 09:02:19 -0000 1.11
+++ tests/encoding.test 27 Apr 2002 22:18:34 -0000
@@ -372,7 +372,7 @@
gets $f
}
close $f
- exec [list $::tcltest::tcltest] iso2022.tcl
+ exec $::tcltest::tcltest iso2022.tcl
} {}
test encoding-24.2 {EscapeFreeProc on open channels} {exec} {
@@ -384,7 +384,7 @@
exit
}
close $f
- viewable [exec [list $::tcltest::tcltest] iso2022.tcl]
+ viewable [exec $::tcltest::tcltest iso2022.tcl]
} "ab\x1b\$B8C\x1b\$(DD%\x1b(Bg (ab\\u001b\$B8C\\u001b\$(DD%\\u001b(Bg)"
test encoding-24.3 {EscapeFreeProc on open channels} {exec} {