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
88 lines
2.4 KiB
Plaintext
88 lines
2.4 KiB
Plaintext
set aTestName "caf004-B3"
|
|
puts ${aTestName}
|
|
|
|
# Create two new documents Doc1, Doc2
|
|
set FileFormat "MDTV-Standard"
|
|
if { $FileSuffix == "xml" } {
|
|
set FileFormat "XmlOcaf"
|
|
}
|
|
NewDocument Doc1 $FileFormat
|
|
NewDocument Doc2 $FileFormat
|
|
|
|
# Set UndoLimit for them
|
|
UndoLimit Doc1 100
|
|
UndoLimit Doc2 100
|
|
|
|
# Set a shape in Doc1 to label 'SLabel'
|
|
set aLabel1 0:2
|
|
Label Doc1 ${aLabel1}
|
|
SetName Doc1 ${aLabel1} SLabel
|
|
|
|
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]
|
|
|
|
SetShape Doc1 ${aLabel1} aBox1
|
|
|
|
# Create a new label 'TLabel1' in Doc1
|
|
set aLabel2 0:3
|
|
Label Doc1 ${aLabel2}
|
|
SetName Doc1 ${aLabel2} TLabel1
|
|
|
|
# Open transaction in Doc1
|
|
NewCommand Doc1
|
|
|
|
# Copy 'SLabel' to the label 'TLabel1' with link
|
|
CopyWithLink Doc1 ${aLabel2} Doc1 ${aLabel1}
|
|
|
|
# Close/Open transaction
|
|
NewCommand Doc1
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile Doc1 $aFile
|
|
|
|
# Restore the document
|
|
Close Doc1
|
|
Open ${aFile} Doc2
|
|
|
|
# Get a shape from 'TLabel1' of restoring document
|
|
set IsDone [catch {GetShape Doc2 ${aLabel2} aBox2} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TNaming_NamedShape attribute from restoring document"
|
|
} else {
|
|
set aBoundingBox2 [bounding aBox2]
|
|
set X1_Box2 [lindex ${aBoundingBox2} 0]
|
|
set Y1_Box2 [lindex ${aBoundingBox2} 1]
|
|
set Z1_Box2 [lindex ${aBoundingBox2} 2]
|
|
set X2_Box2 [lindex ${aBoundingBox2} 3]
|
|
set Y2_Box2 [lindex ${aBoundingBox2} 4]
|
|
set Z2_Box2 [lindex ${aBoundingBox2} 5]
|
|
|
|
if { ${X1_Box1} != ${X1_Box2} ||
|
|
${Y1_Box1} != ${Y1_Box2} ||
|
|
${Z1_Box1} != ${Z1_Box2} ||
|
|
${X2_Box1} != ${X2_Box2} ||
|
|
${Y2_Box1} != ${Y2_Box2} ||
|
|
${Z2_Box1} != ${Z2_Box2} } {
|
|
puts "X1_Box1=${X1_Box1} Y1_Box1=${Y1_Box1} Z1_Box1=${Z1_Box1} X2_Box1=${X2_Box1} Y2_Box1=${Y2_Box1} Z2_Box1=${Z2_Box1}"
|
|
puts "X1_Box2=${X1_Box2} Y1_Box2=${Y1_Box2} Z1_Box2=${Z1_Box2} X2_Box2=${X2_Box2} Y2_Box2=${Y2_Box2} Z2_Box2=${Z2_Box2}"
|
|
puts "Error : Get a link between attributes of the same document from restoring document"
|
|
}
|
|
}
|
|
|