Differences From Artifact [302e0dfbb0]:

• File build/test/tests/05-locale.tcl — part of check-in [b180e9a80f] at 2010-09-26 04:46:10 on branch trunk — Added internal testing script (user: rkeene, size: 193) [annotate] [blame] [check-ins using]

To Artifact [19da5ec8b9]:

• File build/test/tests/05-locale.tcl — part of check-in [205ad8c75e] at 2010-09-26 04:48:25 on branch trunk — Updated to create tests log with PASS/FAIL

  Added additional information to Locale test (user: rkeene, size: 252) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7
8
9
10



11
12

#! /usr/bin/env tclsh

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

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




exit 1

>
>
>

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

#! /usr/bin/env tclsh

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

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

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

exit 1