diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-12 14:31:17 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-05-12 14:31:17 (GMT) |
commit | cb4e793d3cde6208d1c12686b85a52f48deec156 (patch) | |
tree | 8e9cdff8fe52ffb423b938a88a0afc9043dd4ae2 /tests/encoding.test | |
parent | 53c066e2314b0166a9fe30fd1f0026bb48f0d1f3 (diff) | |
download | tcl-cb4e793d3cde6208d1c12686b85a52f48deec156.zip tcl-cb4e793d3cde6208d1c12686b85a52f48deec156.tar.gz tcl-cb4e793d3cde6208d1c12686b85a52f48deec156.tar.bz2 |
Don't test Tcl_GetDefaultEncodingDir() any more (which is obsolete), test Tcl_GetEncodingSearchPath() in stead.
Diffstat (limited to 'tests/encoding.test')
-rw-r--r-- | tests/encoding.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 4dddbb5..d9ba072 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -35,7 +35,7 @@ proc runtests {} { # Some tests require the testencoding command testConstraint testencoding [llength [info commands testencoding]] testConstraint exec [llength [info commands exec]] -testConstraint testgetdefenc [llength [info commands testgetdefenc]] +testConstraint testgetencpath [llength [info commands testgetencpath]] # TclInitEncodingSubsystem is tested by the rest of this file # TclFinalizeEncodingSubsystem is not currently tested @@ -570,15 +570,15 @@ foreach from {cp932 shiftjis euc-jp iso2022-jp} { } } -test encoding-26.0 {Tcl_GetDefaultEncodingDir} -constraints { - testgetdefenc +test encoding-26.0 {Tcl_GetEncodingSearchPath} -constraints { + testgetencpath } -setup { - set origDir [testgetdefenc] - testsetdefenc slappy + set origPath [testgetencpath] + testsetencpath slappy } -body { - testgetdefenc + testgetencpath } -cleanup { - testsetdefenc $origDir + testsetencpath $origPath } -result slappy file delete {*}[glob -directory [temporaryDirectory] *.chars *.tcltestout] |