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
67 lines
2.3 KiB
Plaintext
67 lines
2.3 KiB
Plaintext
if { [string compare $subgroup "ocaf_xml"] == 0 } {
|
|
puts "TODO ?OCC23768 ALL: Error : File is not valid"
|
|
puts "TODO ?OCC23768 ALL: Error at line"
|
|
}
|
|
|
|
set aTestName "caf001-I3"
|
|
puts ${aTestName}
|
|
|
|
set aTokList { :,}
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetX1 10
|
|
set aSetY1 20
|
|
set aSetZ1 30
|
|
set aSetDX1 -1
|
|
set aSetDY1 0
|
|
set aSetDZ1 0
|
|
|
|
plane aPlane1 ${aSetX1} ${aSetY1} ${aSetZ1} ${aSetDX1} ${aSetDY1} ${aSetDZ1}
|
|
|
|
set aDumpPlane1 [dump aPlane1]
|
|
|
|
regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anOriginX_Plane1 anOriginY_Plane1 anOriginZ_Plane1
|
|
regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane1} full anAxisDX_Plane1 anAxisDY_Plane1 anAxisDZ_Plane1
|
|
|
|
set aLabel 0:2
|
|
SetPlane D ${aLabel} aPlane1
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a value of the attribute
|
|
set IsDone [catch {GetPlane DD ${aLabel} aPlane5} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_Plane attribute from restoring document"
|
|
} else {
|
|
|
|
set aDumpPlane5 [dump aPlane5]
|
|
|
|
regexp {Origin[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anOriginX_Plane5 anOriginY_Plane5 anOriginZ_Plane5
|
|
regexp {Axis[ \t]*:([-0-9.+eE]+), ([-0-9.+eE]+), ([-0-9.+eE]+)} ${aDumpPlane5} full anAxisDX_Plane5 anAxisDY_Plane5 anAxisDZ_Plane5
|
|
|
|
if { ${anOriginX_Plane1} != ${anOriginX_Plane5} ||
|
|
${anOriginY_Plane1} != ${anOriginY_Plane5} ||
|
|
${anOriginZ_Plane1} != ${anOriginZ_Plane5} ||
|
|
${anAxisDX_Plane1} != ${anAxisDX_Plane5} ||
|
|
${anAxisDY_Plane1} != ${anAxisDY_Plane5} ||
|
|
${anAxisDZ_Plane1} != ${anAxisDZ_Plane5} } {
|
|
puts "anOriginX_Plane1=${anOriginX_Plane1} anOriginX_Plane5=${anOriginX_Plane5}"
|
|
puts "anOriginY_Plane1=${anOriginY_Plane1} anOriginY_Plane5=${anOriginY_Plane5}"
|
|
puts "anOriginZ_Plane1=${anOriginZ_Plane1} anOriginZ_Plane5=${anOriginZ_Plane5}"
|
|
puts "anAxisDX_Plane1=${anAxisDX_Plane1} anAxisDX_Plane5=${anAxisDX_Plane5}"
|
|
puts "anAxisDY_Plane1=${anAxisDY_Plane1} anAxisDY_Plane5=${anAxisDY_Plane5}"
|
|
puts "anAxisDZ_Plane1=${anAxisDZ_Plane1} anAxisDZ_Plane5=${anAxisDZ_Plane5}"
|
|
puts "Error : Get a value of TDataStd_Plane attribute from restoring document"
|
|
}
|
|
}
|