Artifact 995899b7e18c9a77952c717198350e7924e5d760:

• File build/test/tests/05-locale.tcl — part of check-in [7c572fd6a8] at 2010-09-26 04:49:40 on branch trunk — Updated to support running Win32 tests under WINE (user: rkeene, size: 359) [annotate] [blame] [check-ins using]

#! /usr/bin/env tclsh

# Tcl 8.4 doesn't support fetching the system encoding from the environment
if {$tcl_version == "8.4"} {
	exit 0
}

# This test does not yet support when using Win32
if {$::tcl_platform(platform) == "windows"} {
	exit 0
}

if {[encoding system] == "utf-8"} {
	exit 0
}

puts "Locale:   [encoding system]"
puts "Expected: utf-8"

exit 1