0025536: XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE...
[occt.git] / tests / bugs / caf / bug25536
1 puts "============"
2 puts "OCC25536"
3 puts "============"
4 puts ""
5 #######################################################################
6 # XmlMDataXtd_GeometryDriver doesn't support TDataXtd_SPLINE, TDataXtd_PLANE and TDataXtd_CYLINDER.
7 #######################################################################
8
9 NewDocument Doc XmlOcaf
10
11 # set attributes not supported by geometry driver before this issue fix
12 Label Doc 0:2:1
13 SetGeometry Doc 0:2:1 spl
14 Label Doc 0:2:2
15 SetGeometry Doc 0:2:2 pln
16 Label Doc 0:2:3
17 SetGeometry Doc 0:2:3 cyl
18
19 set aFile ${imagedir}/bug25536_test.xml
20 SaveAs Doc ${aFile}
21 Close Doc
22
23 # check attributes are correctly restored
24 Open ${aFile} Doc2
25
26 set aType [GetGeometryType Doc2 0:2:1]
27 if {${aType} != "spl"} {
28   puts "Error: Restored Geometry Type '${aType}' is not stored 'spl'"
29 }
30 set aType [GetGeometryType Doc2 0:2:2]
31 if {${aType} != "pln"} {
32   puts "Error: Restored Geometry Type '${aType}' is not stored 'pln'"
33 }
34 set aType [GetGeometryType Doc2 0:2:3]
35 if {${aType} != "cyl"} {
36   puts "Error: Restored Geometry Type '${aType}' is not stored 'cyl'"
37 }
38
39 Close Doc2
40