tests/bugs/caf/bug1726

   1 puts "================"
   2 puts "OCC1726"
   3 puts "================"
   4 puts ""
   5 #######################################################################################
   6 # TDF_LabelNode::~TDF_LabelNode causes stack overflow
   7 #######################################################################################
   8
   9 puts "Info: Open the document with 80000 sublabels of the label 0:2"
  10 chrono h reset; chrono h start
  11 Open [locate_data_file OCC1726.cbf] D
  12 chrono h stop; chrono h show
  13
  14 set IsGood 1
  15 puts "Info: Close the document"
  16 chrono h reset; chrono h start
  17 if [catch {Close D} result] {
  18    set IsGood 0
  19 }
  20 chrono h stop; chrono h show
  21
  22 if { ${IsGood} == 0} {
  23   puts "Faulty OCC1726"
  24 } else {
  25   puts "OK OCC1726"
  26 }