tests/bugs/caf/bug24852

   1 puts "=========="
   2 puts "OCC24852"
   3 puts "=========="
   4 puts ""
   5 ########################################################
   6 # Crash on storage of an Ocaf document in XML file format
   7 ########################################################
   8
   9 NewDocument D XmlOcaf
  10
  11 set File ${imagedir}/bug24852_test.xml
  12
  13 if { [catch {set res [SaveAs D ${File}]}] != 0 } {
  14   puts "Error : Crash on storage of an Ocaf document in XML file format"
  15 } else {
  16   puts "OK : Storage of an Ocaf document in XML file format is good"
  17   file delete ${File}
  18 }