[occt.git] / tests / bugs / caf / bug24852

puts "=========="
puts "OCC24852"
puts "=========="
puts ""
########################################################
# Crash on storage of an Ocaf document in XML file format
########################################################

NewDocument D XmlOcaf

set File ${imagedir}/bug24852_test.xml

if { [catch {set res [SaveAs D ${File}]}] != 0 } {
  puts "Error : Crash on storage of an Ocaf document in XML file format"
} else {
  puts "OK : Storage of an Ocaf document in XML file format is good"
  file delete ${File}
}
Commit	Line	Data
bf4bf038	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	}