diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-09 13:24:23 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2024-08-09 13:24:23 (GMT) |
| commit | ff1faad46be53c2889bf574c20096f4b27df310a (patch) | |
| tree | 71dcdc4efca3a7cbcfdb689798cd037db13ff4fd | |
| parent | be6b1b72d94b646928b74ea4cddcf50921c48f72 (diff) | |
| download | tcl-ff1faad46be53c2889bf574c20096f4b27df310a.zip tcl-ff1faad46be53c2889bf574c20096f4b27df310a.tar.gz tcl-ff1faad46be53c2889bf574c20096f4b27df310a.tar.bz2 | |
Tweak unixInit-3.2 to return encoding
| -rw-r--r-- | tests/unixInit.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/tests/unixInit.test b/tests/unixInit.test index 099dccb..29ff300 100644 --- a/tests/unixInit.test +++ b/tests/unixInit.test @@ -114,12 +114,13 @@ test unixInit-3.2 {TclpSetInitialEncodings} -setup { # reports that newer HP-UX systems report euc-jp like everybody else. lappend validEncodings shiftjis } - expr {$enc ni $validEncodings} + #expr {$enc ni $validEncodings} + set enc } -cleanup { unset -nocomplain env(LANG) env(LC_ALL) catch {set env(LC_ALL) $oldlc_all} catch {set env(TCL_LIBRARY) $oldtcl_library} -} -result 0 +} -result euc-jp test unixInit-4.1 {TclpSetVariables} {unix} { # just make sure they exist |