mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
94f16a8961
Construction of TCollection_ExtendedString from plain C string is fixed to consider input string as UTF-8 in several places (identified as described in notes to #31113). Message_MsgFile is corrected to load resource file as UTF-8 (unless it has BOM indicating use of UTF-16). Added tests for use of Unicode in some DRAW commands (bugs demo bug14673_*)
29 lines
809 B
Plaintext
29 lines
809 B
Plaintext
puts "# ============================================================"
|
|
puts "# 0014673: Provide true support for Unicode symbols"
|
|
puts "# ============================================================"
|
|
puts ""
|
|
puts "# Check that non-Ascii text strings can be saved and restored in OCAF"
|
|
|
|
puts "# Prepare OCAF document with text strings in different languages"
|
|
set strings [list "test" "l'épreuve" "опыт" "테스트" "größten 市"]
|
|
|
|
pload OCAF
|
|
NewDocument D XmlOcaf
|
|
set i 0
|
|
foreach str $strings {
|
|
SetName D 0:[incr i] $str
|
|
}
|
|
|
|
puts "# Save it and load back, then check the strings"
|
|
SaveAs D $imagedir/${casename}.xml
|
|
Close D
|
|
Open $imagedir/${casename}.xml D
|
|
|
|
set i 0
|
|
foreach str $strings {
|
|
set res [GetName D 0:[incr i]]
|
|
if { $res != $str } {
|
|
puts "Error: string $str was restored as $res"
|
|
}
|
|
}
|