0014673: Provide true support for Unicode symbols
[occt.git] / tests / bugs / demo / bug14673_4
1 puts "# ============================================================"
2 puts "# 0014673: Provide true support for Unicode symbols"
3 puts "# ============================================================"
4 puts ""
5 puts "# Check that non-Ascii text strings can be saved and restored in OCAF"
6
7 puts "# Prepare OCAF document with text strings in different languages"
8 set strings [list "test" "l'épreuve" "опыт" "테스트" "größten 市"]
9
10 pload OCAF
11 NewDocument D XmlOcaf
12 set i 0
13 foreach str $strings {
14    SetName D 0:[incr i] $str
15 }
16
17 puts "# Save it and load back, then check the strings"
18 SaveAs D $imagedir/${casename}.xml
19 Close D
20 Open $imagedir/${casename}.xml D
21
22 set i 0
23 foreach str $strings {
24   set res [GetName D 0:[incr i]]
25   if { $res != $str } {
26     puts "Error: string $str was restored as $res"
27   }
28 }