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"
}