diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 11:47:10 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-12-03 11:47:10 (GMT) |
| commit | a87c2925c5ff1caf3a88c8a249aae82699d7f5a0 (patch) | |
| tree | 897cb417189707ae97647340f9d251c02567595a /tests | |
| parent | 2c9a791c2fe6b087b0bee9b3c18fa51df58fe0ab (diff) | |
| download | tcl-a87c2925c5ff1caf3a88c8a249aae82699d7f5a0.zip tcl-a87c2925c5ff1caf3a88c8a249aae82699d7f5a0.tar.gz tcl-a87c2925c5ff1caf3a88c8a249aae82699d7f5a0.tar.bz2 | |
deprecate Tcl_Backslash, Tcl_GetDefaultEncodingDir and Tcl_SetDefaultEncodingDir
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/encoding.test | 12 | ||||
| -rw-r--r-- | tests/unixInit.test | 7 |
2 files changed, 0 insertions, 19 deletions
diff --git a/tests/encoding.test b/tests/encoding.test index 0374e2d..687887b 100644 --- a/tests/encoding.test +++ b/tests/encoding.test @@ -35,7 +35,6 @@ 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]] # TclInitEncodingSubsystem is tested by the rest of this file # TclFinalizeEncodingSubsystem is not currently tested @@ -570,17 +569,6 @@ foreach from {cp932 shiftjis euc-jp iso2022-jp} { } } -test encoding-26.0 {Tcl_GetDefaultEncodingDir} -constraints { - testgetdefenc -} -setup { - set origDir [testgetdefenc] - testsetdefenc slappy -} -body { - testgetdefenc -} -cleanup { - testsetdefenc $origDir -} -result slappy - file delete {*}[glob -directory [temporaryDirectory] *.chars *.tcltestout] # ===> Cut here <=== diff --git a/tests/unixInit.test b/tests/unixInit.test index 9ba9c11..4804d78 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -87,13 +87,6 @@ test unixInit-1.2 {initialisation: standard channel type deduction} {unix stdio} skip [concat [skip] unixInit-2.*] -test unixInit-2.0 {TclpInitLibraryPath: setting tclDefaultEncodingDir} { - set origDir [testgetdefenc] - testsetdefenc slappy - set path [testgetdefenc] - testsetdefenc $origDir - set path -} {slappy} test unixInit-2.1 {TclpInitLibraryPath: value of installLib, developLib} -setup { unset -nocomplain oldlibrary if {[info exists env(TCL_LIBRARY)]} { |