1
0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-03 17:56:21 +03:00
occt/tests/bugs/caf/bug25536
kgv 30fa5f6713 0032705: Test - name clashes within temporary files within bugs/caf/bug23766_X
Several test cases writing temporary files have been corrected.
2021-12-02 21:14:57 +03:00

38 lines
977 B
Plaintext

puts "============"
puts "OCC25536: XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE and TDataXtd_CYLINDER."
puts "============"
puts ""
NewDocument Doc XmlOcaf
# set attributes not supported by geometry driver before this issue fix
Label Doc 0:2:1
SetGeometry Doc 0:2:1 spl
Label Doc 0:2:2
SetGeometry Doc 0:2:2 pln
Label Doc 0:2:3
SetGeometry Doc 0:2:3 cyl
set aTmpFile ${imagedir}/${casename}.xml
SaveAs Doc ${aTmpFile}
Close Doc
# check attributes are correctly restored
Open ${aTmpFile} Doc2
file delete -force $aTmpFile
set aType [GetGeometryType Doc2 0:2:1]
if {${aType} != "spl"} {
puts "Error: Restored Geometry Type '${aType}' is not stored 'spl'"
}
set aType [GetGeometryType Doc2 0:2:2]
if {${aType} != "pln"} {
puts "Error: Restored Geometry Type '${aType}' is not stored 'pln'"
}
set aType [GetGeometryType Doc2 0:2:3]
if {${aType} != "cyl"} {
puts "Error: Restored Geometry Type '${aType}' is not stored 'cyl'"
}
Close Doc2