[occt.git] / tests / bugs / fclasses / bug24931

puts "=========="
puts "OCC24931"
puts "=========="
puts ""
####################################################
# Stack overflow when writing large shapes to XML
####################################################

pload QAcommands

set FilePath ${imagedir}/bug24931_testdocument.xml

file delete -force ${FilePath}
set info [OCC24931 ${FilePath}]

if { [regexp "OK" $info] != 1 } {
  puts "Error: Stack is overflow"
} else {
  puts "OK: Stack is good"
}
Commit	Line	Data
70167e69 RL	1	puts "=========="
	2	puts "OCC24931"
	3	puts "=========="
	4	puts ""
	5	####################################################
	6	# Stack overflow when writing large shapes to XML
	7	####################################################
	8
	9	pload QAcommands
	10
7a7e8cf1	11	set FilePath ${imagedir}/bug24931_testdocument.xml
	12
	13	file delete -force ${FilePath}
	14	set info [OCC24931 ${FilePath}]
70167e69 RL	15
	16	if { [regexp "OK" $info] != 1 } {
	17	puts "Error: Stack is overflow"
	18	} else {
	19	puts "OK: Stack is good"
	20	}