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
