5 #######################################################################
6 # XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE and TDataXtd_CYLINDER.
7 #######################################################################
9 NewDocument Doc XmlOcaf
11 # set attributes not supported by geometry driver before this issue fix
13 SetGeometry Doc 0:2:1 spl
15 SetGeometry Doc 0:2:2 pln
17 SetGeometry Doc 0:2:3 cyl
19 set aFile ${imagedir}/bug25536_test.xml
23 # check attributes are correctly restored
26 set aType [GetGeometryType Doc2 0:2:1]
27 if {${aType} != "spl"} {
28 puts "Error: Restored Geometry Type '${aType}' is not stored 'spl'"
30 set aType [GetGeometryType Doc2 0:2:2]
31 if {${aType} != "pln"} {
32 puts "Error: Restored Geometry Type '${aType}' is not stored 'pln'"
34 set aType [GetGeometryType Doc2 0:2:3]
35 if {${aType} != "cyl"} {
36 puts "Error: Restored Geometry Type '${aType}' is not stored 'cyl'"