summaryrefslogtreecommitdiffstats
path: root/tests/encoding.test
diff options
context:
space:
mode:
authorhobbs <hobbs>1999-10-13 00:32:29 (GMT)
committerhobbs <hobbs>1999-10-13 00:32:29 (GMT)
commit67604b787a8c97063919f609033bc87ac4d62995 (patch)
tree84877e401aed2503b906254b917fee04d5f4ad73 /tests/encoding.test
parentc732fecaa0babcee5b1a681696d9366d226d6849 (diff)
downloadtcl-67604b787a8c97063919f609033bc87ac4d62995.zip
tcl-67604b787a8c97063919f609033bc87ac4d62995.tar.gz
tcl-67604b787a8c97063919f609033bc87ac4d62995.tar.bz2
* tests/basic.test: updated test cases for 8.3
* tests/encoding.test: fixed test case that change system encoding to a double-byte one (this causes a bogus mem read error for purify)
Diffstat (limited to 'tests/encoding.test')
-rw-r--r--tests/encoding.test14
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/encoding.test b/tests/encoding.test
index 6ee06ff..bd45f15 100644
--- a/tests/encoding.test
+++ b/tests/encoding.test
@@ -8,7 +8,7 @@
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
-# RCS: @(#) $Id: encoding.test,v 1.6 1999/08/23 17:54:59 jenn Exp $
+# RCS: @(#) $Id: encoding.test,v 1.7 1999/10/13 00:32:29 hobbs Exp $
if {[lsearch [namespace children] ::tcltest] == -1} {
package require tcltest
@@ -61,24 +61,24 @@ test encoding-2.1 {Tcl_FreeEncoding: refcount == 0} {
test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {testencoding} {
set system [encoding system]
set path [testencoding path]
- encoding system jis0208 ;# incr ref count
+ encoding system shiftjis ;# incr ref count
testencoding path [list [pwd]]
- set x [encoding convertto jis0208 \u4e4e] ;# old one found
+ set x [encoding convertto shiftjis \u4e4e] ;# old one found
encoding system identity
- lappend x [catch {encoding convertto jis0208 \u4e4e} msg] $msg
+ lappend x [catch {encoding convertto shiftjis \u4e4e} msg] $msg
encoding system identity
testencoding path $path
encoding system $system
set x
-} {8C 1 {unknown encoding "jis0208"}}
+} "\u008c\u00c1 1 {unknown encoding \"shiftjis\"}"
test encoding-3.1 {Tcl_GetEncodingName, NULL} {
set old [encoding system]
- encoding system jis0208
+ encoding system shiftjis
set x [encoding system]
encoding system $old
set x
-} {jis0208}
+} {shiftjis}
test encoding-3.2 {Tcl_GetEncodingName, non-null} {
set old [fconfigure stdout -encoding]
fconfigure stdout -encoding jis0208