summaryrefslogtreecommitdiffstats
path: root/tests
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
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')
-rw-r--r--tests/basic.test6
-rw-r--r--tests/encoding.test14
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