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