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