tests/bugs/fclasses/bug24931

   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 FilePath ${imagedir}/bug24931_testdocument.xml
  12
  13 file delete -force ${FilePath}
  14 set info [OCC24931 ${FilePath}]
  15
  16 if { [regexp "OK" $info] != 1 } {
  17   puts "Error: Stack is overflow"
  18 } else {
  19   puts "OK: Stack is good"
  20 }