tests/bugs/xde/bug533

   1 puts "========="
   2 puts "OCC533"
   3 puts "========="
   4 puts ""
   5
   6 #######################################################
   7 ## XmlOcaf-Document is not stored in XDEDRAWEXE although stored in TCAF
   8 #######################################################
   9
  10 file delete ${imagedir}/A.xml
  11
  12 set res 0
  13 catch { NewDocument A XmlOcaf }
  14 if [catch {SaveAs A ${imagedir}/A.xml}] {
  15     puts "OCC533 FAULTY"
  16 } else {
  17     puts "OCC533 OK"
  18 }
  19