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