1 puts "================"
4 puts "================"
6 #######################################################################################
7 # BinOcaf: portability of binary file between platforms
8 #######################################################################################
12 set SetIntegerAttribute 100
13 set SetRealAttribute 123.45
25 #### FOR PREPARING TEST ONLY ####
26 #### # Create testing document
27 #### NewDocument Doc BinOcaf
28 #### UndoLimit Doc 100
31 #### # Set an integer attribute
32 #### SetInteger Doc ${aLabel} ${SetIntegerAttribute}
34 #### # Set a real attribute
35 #### SetReal Doc ${aLabel} ${SetRealAttribute}
37 #### # Set a real array attribute
38 #### SetRealArray Doc ${aLabel} ${aFrom1} ${aTo1} ${SetReal1} ${SetReal2}
40 #### # Set an integer array attribute
41 #### SetIntArray Doc ${aLabel} ${aFrom2} ${aTo2} ${SetInteger1} ${SetInteger2}
45 #### # Save the document
46 #### set OS $tcl_platform(os)
47 #### if { ${OS} == "SunOS" } {
49 #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-SunOS.cbf
52 #### set aFile ${WorkDirectory}/OCC1724-[file tail [info script]]-WNT.cbf
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)"
61 #### catch {exec chmod 777 ${aFile}}
63 #### FOR PREPARING TEST ONLY ####
67 Open [locate_data_file OCC1724-M3-WNT.cbf] DDoc
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} } {
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)"
80 puts "Get a value of TDataStd_Integer attribute from restoring document: OK"
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} } {
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)"
94 puts "Get a value of TDataStd_Real attribute from restoring document: OK"
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 } {
102 puts "Get a value of TDataStd_RealArray attribute from restoring document: Error"
103 puts "OCC1724: ERROR (case 5)"
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)"
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)"
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)"
127 puts "Get a value of TDataStd_RealArray attribute from restoring document: OK"
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 } {
135 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: Error"
136 puts "OCC1724: ERROR (case 9)"
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)"
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)"
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)"
160 puts "Get a value of TDataStd_IntegerArray attribute from restoring document: OK"
163 if { ${IsGood} == 1 } {