mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
607a96d42a
Removing XML Validator Improvements of begin and TODO's in testing cases small correction in begin file to provide normal behavior of tests if Java is not installed
74 lines
1.9 KiB
Plaintext
74 lines
1.9 KiB
Plaintext
set aTestName "caf002-C1"
|
|
puts ${aTestName}
|
|
|
|
# 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 D ${aLabel}
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Set a shape to the label
|
|
SetShape D ${aLabel} aBox1
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a shape from the label
|
|
set IsDone [catch {GetShape DD ${aLabel} aBox3} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts ${aResult}
|
|
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
|
|
} else {
|
|
set aBoundingBox3 [bounding aBox3]
|
|
set X1_Box3 [lindex ${aBoundingBox3} 0]
|
|
set Y1_Box3 [lindex ${aBoundingBox3} 1]
|
|
set Z1_Box3 [lindex ${aBoundingBox3} 2]
|
|
set X2_Box3 [lindex ${aBoundingBox3} 3]
|
|
set Y2_Box3 [lindex ${aBoundingBox3} 4]
|
|
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 "Error : Get a value of TNaming_NamedShape attribute from restoring document"
|
|
}
|
|
}
|
|
|