61c421bf |
1 | puts "TODO OCC12345 ALL: OCC1919 Error" |
2 | |
3 | puts "================" |
4 | puts "OCC1919" |
5 | puts "================" |
6 | puts "" |
7 | ####################################################################################### |
8 | # Incorrect locale management in XmlDrivers_DocumentRetrievalDriver::Read() |
9 | ####################################################################################### |
10 | |
11 | pload QAcommands |
12 | |
13 | set USA_Label 0:10 |
14 | set Italian_Label 0:20 |
15 | set USA_Real 123.456 |
16 | set Italian_Real 123,456 |
17 | #set aFile ${filedir}/OCC1919-[file tail [info script]].xml |
18 | set IsGood 1 |
19 | |
20 | # Create document |
21 | NewDocument D XmlOcaf |
22 | UndoLimit D 100 |
23 | NewCommand D |
24 | |
25 | Label D ${USA_Label} |
26 | Label D ${Italian_Label} |
27 | |
28 | # Set USA locale |
29 | OCC1919_set en_US |
30 | set en_US_local [lindex [OCC1919_get] 2] |
31 | if { ${en_US_local} != "en_US" } { |
32 | puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted" |
33 | set IsGood 0 |
34 | } |
35 | |
36 | SetReal D ${USA_Label} ${USA_Real} |
37 | |
38 | # Get a value of the attribute |
39 | set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message] |
40 | if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${USA_Real} } { |
41 | puts ${message} |
42 | puts "USA_Real=${USA_Real} new_USA_Real=${new_USA_Real} " |
43 | puts "OCC1919 Error : Get bad value of TDataStd_Real attribute" |
44 | set IsGood 0 |
45 | } |
46 | |
47 | # Set italian locale |
48 | OCC1919_set it |
49 | set it_local [lindex [OCC1919_get] 2] |
50 | if { ${it_local} != "it" } { |
51 | puts "OCC1919 Error : Italian locale not seted" |
52 | set IsGood 0 |
53 | } |
54 | |
55 | OCC1919_real D ${Italian_Label} ${Italian_Real} |
56 | |
57 | # Get a value of the attribute |
58 | set Italian_IsDone [catch {set new_Italian_Real [GetReal D ${Italian_Label}]} message] |
59 | if { ${Italian_IsDone} != 0 || ${new_Italian_Real}!=${Italian_Real} } { |
60 | puts ${message} |
61 | puts "Italian_Real=${Italian_Real} new_Italian_Real=${new_Italian_Real}" |
62 | puts "OCC1919 Error : Get bad value of TDataStd_Real attribute" |
63 | set IsGood 0 |
64 | } |
65 | |
66 | # Get a value of the attribute |
67 | set USA_IsDone [catch {set new_USA_Real [GetReal D ${USA_Label}]} message] |
68 | if { ${USA_IsDone} != 0 || ${new_USA_Real}!=${Italian_Real} } { |
69 | puts ${message} |
70 | puts "Italian_Real=${Italian_Real} new_USA_Real=${new_USA_Real}" |
71 | puts "OCC1919 Error : Get bad value of TDataStd_Real attribute" |
72 | set IsGood 0 |
73 | } |
74 | |
75 | # Store the document |
30fa5f67 |
76 | set aTmpFile ${imagedir}/${casename}.xml |
77 | file delete $aTmpFile |
78 | SaveAs D $aTmpFile |
79 | if { ![file exists $aTmpFile] } { |
61c421bf |
80 | puts "OCC1919 Error : There is not file" |
81 | set IsGood 0 |
82 | } |
61c421bf |
83 | Close D |
84 | |
85 | # Set en_US locale |
86 | OCC1919_set en_US |
87 | set en_US_local [lindex [OCC1919_get] 2] |
88 | if { ${en_US_local} != "en_US" } { |
89 | puts "OCC1919 Error : USA - English (ISO-8859-1) locale not seted" |
90 | set IsGood 0 |
91 | } |
92 | |
93 | # Restore the document |
30fa5f67 |
94 | Open $aTmpFile DD |
95 | file delete -force $aTmpFile |
61c421bf |
96 | |
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} } { |
101 | puts ${message} |
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" |
105 | set IsGood 0 |
106 | } |
107 | |
108 | if { ${IsGood} == 1 } { |
109 | puts "OCC1919 OK" |
110 | } else { |
111 | puts "OCC1919 Error" |
112 | } |
113 | |
114 | set make_photo 0 |