61c421bf |
1 | puts "================" |
2 | puts "OCC1724" |
3 | puts "OCC2707" |
4 | puts "================" |
5 | puts "" |
6 | ####################################################################################### |
7 | # BinOcaf: portability of binary file between platforms |
8 | ####################################################################################### |
61c421bf |
9 | |
10 | set QA_DUP 0 |
11 | |
12 | set SetIntegerAttribute 100 |
13 | set SetRealAttribute 123.45 |
14 | set aFrom1 1 |
15 | set aTo1 2 |
16 | set SetReal1 3.21 |
17 | set SetReal2 4.56 |
18 | set aFrom2 11 |
19 | set aTo2 12 |
20 | set SetInteger1 3 |
21 | set SetInteger2 4 |
22 | set aLabel 0:2 |
23 | |
24 | |
25 | #### FOR PREPARING TEST ONLY #### |
26 | #### # Create testing document |
27 | #### NewDocument Doc BinOcaf |
28 | #### UndoLimit Doc 100 |
29 | #### NewCommand Doc |
30 | #### |
31 | #### # Set an integer attribute |
32 | #### SetInteger Doc ${aLabel} ${SetIntegerAttribute} |
33 | #### |
34 | #### # Set a real attribute |
35 | #### SetReal Doc ${aLabel} ${SetRealAttribute} |
36 | #### |
37 | #### # Set a real array attribute |
38 | #### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2} |
39 | #### |
40 | #### # Set an integer array attribute |
41 | #### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2} |
42 | #### |
43 | #### NewCommand Doc |
44 | #### |
45 | #### # Save the document |
46 | #### set OS $tcl_platform(os) |
47 | #### if { ${OS} == "SunOS" } { |
48 | #### puts "SunOS" |
49 | #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf |
50 | #### } else { |
51 | #### puts "WNT" |
52 | #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf |
53 | #### } |
54 | #### puts "aFile=${aFile}" |
55 | #### catch {exec rm -f ${aFile}} |
56 | #### catch {SaveAs Doc ${aFile}} |
57 | #### if { ![file exists ${aFile}] } { |
58 | #### puts "There is not ${aFile} file; SaveAs command: Error" |
59 | #### puts "OCC1724: ERROR (case 1)" |
60 | #### } |
61 | #### catch {exec chmod 777 ${aFile}} |
62 | #### Close Doc |
63 | #### FOR PREPARING TEST ONLY #### |
64 | |
65 | set IsGood 1 |
66 | |
67 | Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc |
68 | |
69 | # Get a value of integer attribute |
70 | set GetIntegerAttribute "" |
71 | set IsDone [catch {set GetIntegerAttribute [GetInteger DDoc ${aLabel}]} message] |
72 | if { ${IsDone} != 0 || |
73 | ${SetIntegerAttribute}!=${GetIntegerAttribute} } { |
74 | puts ${message} |
75 | puts "SetIntegerAttribute=${SetIntegerAttribute} GetIntegerAttribute=${GetIntegerAttribute}" |
76 | puts "Get a value of TDataStd_Integer attribute from restoring document: Error" |
77 | puts "OCC1724: ERROR (case 3)" |
78 | set IsGood 0 |
79 | } else { |
80 | puts "Get a value of TDataStd_Integer attribute from restoring document: OK" |
81 | } |
82 | |
83 | # Get a value of real attribute |
84 | set GetRealAttribute "" |
85 | set IsDone [catch {set GetRealAttribute [GetReal DDoc ${aLabel}]} message] |
86 | if { ${IsDone} != 0 || |
87 | ${SetRealAttribute}!=${GetRealAttribute} } { |
88 | puts ${message} |
89 | puts "SetRealAttribute=${SetRealAttribute} GetRealAttribute=${GetRealAttribute}" |
90 | puts "Get a value of TDataStd_Real attribute from restoring document: Error" |
91 | puts "OCC1724: ERROR (case 4)" |
92 | set IsGood 0 |
93 | } else { |
94 | puts "Get a value of TDataStd_Real attribute from restoring document: OK" |
95 | } |
96 | |
97 | # Get a value of real array attribute |
98 | set GetRealArrayAttribute "" |
99 | set IsDone [catch {set GetRealArrayAttribute [GetRealArray DDoc ${aLabel}]} message] |
100 | if { ${IsDone} != 0 } { |
101 | puts ${message} |
102 | puts "Get a value of TDataStd_RealArray attribute from restoring document: Error" |
103 | puts "OCC1724: ERROR (case 5)" |
104 | set IsGood 0 |
105 | } |
106 | set aRealArrayLength [llength ${GetRealArrayAttribute}] |
107 | if { ${aRealArrayLength} != [expr ${aTo1} - ${aFrom1} + 1] } { |
108 | puts "aRealArrayLength=${aRealArrayLength}" |
109 | puts "Get a value of TDataStd_RealArray attribute from restoring document: Error" |
110 | puts "OCC1724: ERROR (case 6)" |
111 | set IsGood 0 |
112 | } |
113 | set GetReal1 [lindex ${GetRealArrayAttribute} 0] |
114 | if { ${SetReal1} != ${GetReal1} } { |
115 | puts "GetReal1=${GetReal1}" |
116 | puts "Get a value of TDataStd_RealArray attribute from restoring document: Error" |
117 | puts "OCC1724: ERROR (case 7)" |
118 | set IsGood 0 |
119 | } |
120 | set GetReal2 [lindex ${GetRealArrayAttribute} 1] |
121 | if { ${SetReal2} != ${GetReal2} } { |
122 | puts "GetReal2=${GetReal2}" |
123 | puts "Get a value of TDataStd_RealArray attribute from restoring document: Error" |
124 | puts "OCC1724: ERROR (case 8)" |
125 | set IsGood 0 |
126 | } else { |
127 | puts "Get a value of TDataStd_RealArray attribute from restoring document: OK" |
128 | } |
129 | |
130 | # Get a value of Integer array attribute |
131 | set GetIntegerArrayAttribute "" |
132 | set IsDone [catch {set GetIntegerArrayAttribute [GetIntArray DDoc ${aLabel}]} message] |
133 | if { ${IsDone} != 0 } { |
134 | puts ${message} |
135 | puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error" |
136 | puts "OCC1724: ERROR (case 9)" |
137 | set IsGood 0 |
138 | } |
139 | set aIntegerArrayLength [llength ${GetIntegerArrayAttribute}] |
140 | if { ${aIntegerArrayLength} != [expr ${aTo2} - ${aFrom2} + 1] } { |
141 | puts "aIntegerArrayLength=${aIntegerArrayLength}" |
142 | puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error" |
143 | puts "OCC1724: ERROR (case 10)" |
144 | set IsGood 0 |
145 | } |
146 | set GetInteger1 [lindex ${GetIntegerArrayAttribute} 0] |
147 | if { ${SetInteger1} != ${GetInteger1} } { |
148 | puts "GetInteger1=${GetInteger1}" |
149 | puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error" |
150 | puts "OCC1724: ERROR (case 11)" |
151 | set IsGood 0 |
152 | } |
153 | set GetInteger2 [lindex ${GetIntegerArrayAttribute} 1] |
154 | if { ${SetInteger2} != ${GetInteger2} } { |
155 | puts "GetInteger2=${GetInteger2}" |
156 | puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error" |
157 | puts "OCC1724: ERROR (case 12)" |
158 | set IsGood 0 |
159 | } else { |
160 | puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK" |
161 | } |
162 | |
163 | if { ${IsGood} == 1 } { |
164 | puts "OCC1724 OK" |
165 | } else { |
166 | puts "OCC1724 Error" |
167 | } |