1 puts "TODO OCC12345 ALL: OCC1919 Error : Italian locale not seted"
2 puts "TODO OCC12345 ALL: OCC1919 Error"
4 puts "================"
6 puts "================"
8 #######################################################################################
9 # Incorrect locale management in XmlDrivers_DocumentRetrievalDriver::Read()
10 #######################################################################################
15 set Italian_Label 0:20
17 set Italian_Real 123,456
18 #set aFile ${filedir}/OCC1919-[file tail [info script]].xml
27 Label D ${Italian_Label}
31 set en_US_local [lindex [OCC1919_get] 2]
32 if { ${en_US_local} != "en_US" } {
33 puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
37 SetReal D ${USA_Label} ${USA_Real}
39 # Get a value of the attribute
40 set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
41 if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${USA_Real} } {
43 puts "USA_Real=${USA_Real} new_USA_Real=${new_USA_Real} "
44 puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
50 set it_local [lindex [OCC1919_get] 2]
51 if { ${it_local} != "it" } {
52 puts "OCC1919 Error : Italian locale not seted"
56 OCC1919_real D ${Italian_Label} ${Italian_Real}
58 # Get a value of the attribute
59 set Italian_IsDone [catch {set new_Italian_Real [GetReal D ${Italian_Label}]} message]
60 if { ${Italian_IsDone} != 0 || ${new_Italian_Real}!=${Italian_Real} } {
62 puts "Italian_Real=${Italian_Real} new_Italian_Real=${new_Italian_Real}"
63 puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
67 # Get a value of the attribute
68 set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message]
69 if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${Italian_Real} } {
71 puts "Italian_Real=${Italian_Real} new_USA_Real=${new_USA_Real}"
72 puts "OCC1919 Error : Get bad value of TDataStd_Real attribute"
77 file delete ${imagedir}/OCC1919-M6.xml
78 SaveAs D ${imagedir}/OCC1919-M6.xml
79 if { ![file exists ${imagedir}/OCC1919-M6.xml] } {
80 puts "OCC1919 Error : There is not file"
83 catch {exec chmod 777 ${imagedir}/OCC1919-M6.xml}
88 set en_US_local [lindex [OCC1919_get] 2]
89 if { ${en_US_local} != "en_US" } {
90 puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted"
94 # Restore the document
95 Open ${imagedir}/OCC1919-M6.xml DD
97 # Get a value of the attribute
98 set USA_IsDone [catch {set new_USA_Real [GetReal DD ${USA_Label}]} message]
99 set Italian_IsDone [catch {set new_Italian_Real [GetReal DD ${Italian_Label}]} message]
100 if { ${USA_IsDone} != 0 || ${Italian_IsDone} != 0 || ${new_USA_Real}!=${new_Italian_Real} || ${new_Italian_Real}!=${USA_Real} } {
102 puts "USA_Real=${USA_Real} Italian_Real=${Italian_Real}"
103 puts "new_USA_Real=${new_USA_Real} new_Italian_Real=${new_Italian_Real}"
104 puts "OCC1919 Error : Get bad value of TDataStd_Real attribute from restoring document"
108 if { ${IsGood} == 1 } {