05-locale.tcl at [12600639d9]

File build/test/tests/05-locale.tcl artifact 19da5ec8b9 part of check-in 12600639d9


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