mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +03:00
8418c61723
Fix for #23273 issue. Fix for #23273 issue (boolean/013/R9). Modifications of tests according to #23260 issue. Attempt to protect against hang-ups due to waiting for standard input change of behaviour of offset/shape_type_i/D7 case. Attempt to protect against hang-ups during initialization of menu in batch mode. increase cpulimit for parallel incmesh. #23260 is fixed. count_parallel is not needed anymore. Deleted unused code. change of behaviour of offset/shape_type_i/D7 case. The fix was incorrect. Second attempt to protect against hang-ups during initialization of menu in batch mode correction of tests in order to awoid instability. Elapsed time changed to CPU user time is performance tests. Processing of errors on Windows. Stop cpulimit killer if armed by test, after the test is completed
108 lines
2.6 KiB
Plaintext
Executable File
108 lines
2.6 KiB
Plaintext
Executable File
#INTERFACE CAF
|
|
puts "================"
|
|
puts "OCC1228"
|
|
puts "================"
|
|
puts ""
|
|
|
|
# NamedShape
|
|
#
|
|
# Testing attribute: TNaming_NamedShape
|
|
#
|
|
# Testing command: GetShape
|
|
#
|
|
|
|
# ANALOG: puts "caf002-C1"
|
|
|
|
# Create a new document and set UndoLimit
|
|
NewDocument Doc BinOcaf
|
|
UndoLimit Doc 100
|
|
|
|
# Open a transaction
|
|
NewCommand Doc
|
|
|
|
# Create a box
|
|
set aSetX1 10
|
|
set aSetY1 20
|
|
set aSetZ1 30
|
|
set aSetDX1 100
|
|
set aSetDY1 200
|
|
set aSetDZ1 300
|
|
|
|
box aBox1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
|
|
|
|
set aBoundingBox1 [bounding aBox1]
|
|
set X1_Box1 [lindex ${aBoundingBox1} 0]
|
|
set Y1_Box1 [lindex ${aBoundingBox1} 1]
|
|
set Z1_Box1 [lindex ${aBoundingBox1} 2]
|
|
set X2_Box1 [lindex ${aBoundingBox1} 3]
|
|
set Y2_Box1 [lindex ${aBoundingBox1} 4]
|
|
set Z2_Box1 [lindex ${aBoundingBox1} 5]
|
|
|
|
# Create a label
|
|
set aLabel 0:2
|
|
Label Doc ${aLabel}
|
|
|
|
# Close/Open transaction
|
|
NewCommand Doc
|
|
|
|
# Set a shape to the label
|
|
SetShape Doc ${aLabel} aBox1
|
|
|
|
# Close/Open transaction
|
|
NewCommand Doc
|
|
|
|
# Save the document
|
|
set aFile ${imagedir}/OCC1228-[file tail [info script]].cbf
|
|
file delete ${aFile}
|
|
catch {SaveAs Doc ${aFile}}
|
|
#catch {exec chmod 777 ${aFile}}
|
|
if { ![file exists ${aFile}] } {
|
|
puts "There is not ${aFile} file; SaveAs command: Error"
|
|
puts "OCC1228: ERROR (case 1)"
|
|
}
|
|
|
|
# Restore the document
|
|
Close Doc
|
|
catch {Open ${aFile} DDoc}
|
|
|
|
# Get a shape from the label
|
|
set IsDone [catch {GetShape DDoc ${aLabel} aBox3} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${aResult}
|
|
puts "Get a value of TNaming_NamedShape attribute from restoring document: Error"
|
|
puts "OCC1228: ERROR (case 2)"
|
|
}
|
|
|
|
catch {set aBoundingBox3 [bounding aBox3]}
|
|
set X1_Box3 0
|
|
set Y1_Box3 0
|
|
set Z1_Box3 0
|
|
set X2_Box3 0
|
|
set Y2_Box3 0
|
|
set Z2_Box3 0
|
|
catch {set X1_Box3 [lindex ${aBoundingBox3} 0]}
|
|
catch {set Y1_Box3 [lindex ${aBoundingBox3} 1]}
|
|
catch {set Z1_Box3 [lindex ${aBoundingBox3} 2]}
|
|
catch {set X2_Box3 [lindex ${aBoundingBox3} 3]}
|
|
catch {set Y2_Box3 [lindex ${aBoundingBox3} 4]}
|
|
catch {set Z2_Box3 [lindex ${aBoundingBox3} 5]}
|
|
|
|
if { ${X1_Box1} != ${X1_Box3} ||
|
|
${Y1_Box1} != ${Y1_Box3} ||
|
|
${Z1_Box1} != ${Z1_Box3} ||
|
|
${X2_Box1} != ${X2_Box3} ||
|
|
${Y2_Box1} != ${Y2_Box3} ||
|
|
${Z2_Box1} != ${Z2_Box3} } {
|
|
puts "X1_Box1=${X1_Box1} X1_Box3=${X1_Box3}"
|
|
puts "Y1_Box1=${Y1_Box1} Y1_Box3=${Y1_Box3}"
|
|
puts "Z1_Box1=${Z1_Box1} Z1_Box3=${Z1_Box3}"
|
|
puts "X2_Box1=${X2_Box1} X2_Box3=${X2_Box3}"
|
|
puts "Y2_Box1=${Y2_Box1} Y2_Box3=${Y2_Box3}"
|
|
puts "Z2_Box1=${Z2_Box1} Z2_Box3=${Z2_Box3}"
|
|
puts "Get a value of TNaming_NamedShape attribute from restoring document: Error"
|
|
puts "OCC1228: ERROR (case 3)"
|
|
} else {
|
|
puts "Get a value of TNaming_NamedShape attribute from restoring document: OK"
|
|
puts "OCC1228: OK"
|
|
}
|