diff options
| author | jenn <jenn> | 1999-08-23 17:54:59 (GMT) |
|---|---|---|
| committer | jenn <jenn> | 1999-08-23 17:54:59 (GMT) |
| commit | 5091b794329105b393227690593b14fbfa6e37bc (patch) | |
| tree | 0d2ef94dcb7e154f0633f0e6a6c0d977ebdad5a6 /tests/encoding.test | |
| parent | 4c6a266de934cd6b3f8f0f3b93b2b6130d9ba3fa (diff) | |
| download | tcl-5091b794329105b393227690593b14fbfa6e37bc.zip tcl-5091b794329105b393227690593b14fbfa6e37bc.tar.gz tcl-5091b794329105b393227690593b14fbfa6e37bc.tar.bz2 | |
* tests/tcltest.test: Added additional tests for -tmpdir, marked
all tests that use exec as unixOrPc.
* tests/encoding.test:
* tests/interp.test:
* tests/macFCmd.test:
* tests/parseOld.test:
* tests/regexp.test: Applied patches from Jim Ingham to add
encoding to a Mac only interp test, change an error message in
macFCmd.tet, put a comment in parseOld.test, fix tests using the
testencoding path command, and put unixOrPc constraints on tests
that use exec.
Diffstat (limited to 'tests/encoding.test')
| -rw-r--r-- | tests/encoding.test | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 9d79603..6ee06ff 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.5 1999/07/02 06:41:29 welch Exp $ +# RCS: @(#) $Id: encoding.test,v 1.6 1999/08/23 17:54:59 jenn Exp $ if {[lsearch [namespace children] ::tcltest] == -1} { package require tcltest @@ -62,7 +62,7 @@ test encoding-2.2 {Tcl_FreeEncoding: refcount != 0} {testencoding} { set system [encoding system] set path [testencoding path] encoding system jis0208 ;# incr ref count - testencoding path . + testencoding path [list [pwd]] set x [encoding convertto jis0208 \u4e4e] ;# old one found encoding system identity lappend x [catch {encoding convertto jis0208 \u4e4e} msg] $msg @@ -99,7 +99,7 @@ test encoding-4.1 {Tcl_GetEncodingNames} {testencoding} { foreach encoding [encoding names] { set encodings($encoding) 1 } - testencoding path . + testencoding path [list [pwd]] foreach encoding [encoding names] { if {![info exists encodings($encoding)]} { lappend x $encoding |