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