From 7b5b23503a652c55606a322a9984c9a2722d7dc9 Mon Sep 17 00:00:00 2001
From: hobbs <hobbs@noemail.net>
Date: Wed, 13 Oct 1999 00:32:29 +0000
Subject: 	* 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)

FossilOrigin-Name: dcf7902796cf1e77177af6e71670032775aba857
---
 tests/basic.test    |  6 +++---
 tests/encoding.test | 14 +++++++-------
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/tests/basic.test b/tests/basic.test
index 3ecb544..3d9588b 100644
--- a/tests/basic.test
+++ b/tests/basic.test
@@ -15,7 +15,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: basic.test,v 1.7 1999/06/26 03:54:10 jenn Exp $
+# RCS: @(#) $Id: basic.test,v 1.8 1999/10/13 00:32:29 hobbs Exp $
 #
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
@@ -494,10 +494,10 @@ test basic-39.1 {Tcl_CreateTrace, correct command and argc/argv arguments of tra
 } {{expr 14 + 16} {expr 14 + 16} {set stuff [expr 14 + 16]} {set stuff 30}}
 test basic-39.2 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {
     testcmdtrace tracetest {set stuff [info tclversion]}
-} {{info tclversion} {info tclversion} {set stuff [info tclversion]} {set stuff 8.2}}
+} {{info tclversion} {info tclversion} {set stuff [info tclversion]} {set stuff 8.3}}
 test basic-39.3 {Tcl_CreateTrace, correct command and argc/argv arguments of trace proc} {
     testcmdtrace deletetest {set stuff [info tclversion]}
-} 8.2
+} 8.3
 }
 
 test basic-40.1 {Tcl_DeleteTrace} {emptyTest} {
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
-- 
cgit v0.12