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

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

pload QAcommands

set info [OCC24931]

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
	11	set info [OCC24931]
	12
	13	if { [regexp "OK" $info] != 1 } {
	14	puts "Error: Stack is overflow"
	15	} else {
	16	puts "OK: Stack is good"
	17	}