*** unixInit.test	Tue Nov  9 13:05:00 1999
--- unixInit.test.new	Tue Nov  9 13:03:47 1999
***************
*** 162,175 ****
      set enc
  } {iso8859-1}
  test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} {
!     set env(LANG) japanese
  
      set f [open "|[list $::tcltest::tcltest]" w+]
      fconfigure $f -buffering none
      puts $f {puts [encoding system]; exit}
      set enc [gets $f]
      close $f
!     unset env(LANG)
  
      switch $tcl_platform(os) {
  	HP-UX {set expectedEncoding shiftjis}
--- 162,175 ----
      set enc
  } {iso8859-1}
  test unixInit-3.2 {TclpSetInitialEncodings} {unixOnly installedTcl} {
!     set env(LC_ALL) japanese
  
      set f [open "|[list $::tcltest::tcltest]" w+]
      fconfigure $f -buffering none
      puts $f {puts [encoding system]; exit}
      set enc [gets $f]
      close $f
!     unset env(LC_ALL)
  
      switch $tcl_platform(os) {
  	HP-UX {set expectedEncoding shiftjis}