tests/bugs/caf/bug114

   1 puts "==========="
   2 puts "OCC114"
   3 puts "==========="
   4
   5 # Max number of iterations for computing memory leackage
   6 set i_max 20
   7 puts "Amount of iterations is $i_max"
   8
   9 NewDocument D MDTV-Standard
  10 UndoLimit D 10
  11
  12 restore [locate_data_file OCC114.brep] s
  13
  14 set listmem {}
  15 for {set i 1} {${i} <= ${i_max}} {incr i} {
  16
  17     OpenCommand D
  18     SetShape D 0:1 s
  19     AbortCommand D
  20
  21     # check memory usage (with tolerance equal to half page size)
  22     lappend listmem [expr [meminfo w] / 1024]
  23     if { [checktrend $listmem 0 1 "Memory leak detected"] } {
  24         puts "No memory leak, $i iterations"
  25         break
  26     }
  27 }