Diff

Differences From Artifact [19da5ec8b9]:

To Artifact [995899b7e1]:


1
2
3
4
5
6





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






+
+
+
+
+







#! /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"