mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-05-11 10:44:53 +03:00
72614a26ba
DEB_BUILDER replaces DEB pre-processor directive to eliminate extra output on setting a shape to a label. Small correction of test case
32 lines
713 B
Plaintext
Executable File
32 lines
713 B
Plaintext
Executable File
puts "TODO OCC12345 ALL: OCC267: Error"
|
|
|
|
puts "========"
|
|
puts "OCC267"
|
|
puts "========"
|
|
|
|
######################################################################
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D MDTV-Standard
|
|
file delete -force ${imagedir}/OCC267.std
|
|
catch { OCC267 D ${imagedir}/OCC267.std } status
|
|
|
|
set list [split ${status}]
|
|
set index [lsearch -exact ${list} "CDF_StoreStatus"]
|
|
|
|
if { ${index} == -1 } then {
|
|
puts "OCC267: Error"
|
|
puts ${status}
|
|
} else {
|
|
set CDF_StoreStatus [lindex ${list} [expr ${index} + 2] ]
|
|
if { ${CDF_StoreStatus} == "CDF_SS_OK" } then {
|
|
puts "OCC267: OK"
|
|
} else {
|
|
puts "OCC267: ERROR"
|
|
puts ${status}
|
|
puts "CDF_StoreStatus = ${CDF_StoreStatus}"
|
|
}
|
|
}
|
|
|