[occt.git] / tests / bugs / xde / bug533

puts "========="
puts "OCC533"
puts "========="
puts ""

#######################################################
## XmlOcaf-Document is not stored in XDEDRAWEXE although stored in TCAF
#######################################################

file delete ${imagedir}/A.xml

set res 0
catch { NewDocument A XmlOcaf }
if [catch {SaveAs A ${imagedir}/A.xml}] {
    puts "OCC533 FAULTY"
} else {
    puts "OCC533 OK"
}
Commit	Line	Data
e54706ed	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