puts "==========="
puts "OCC114"
puts "==========="

# Max number of iterations for computing memory leackage
set i_max 10
puts "Amount of iterations is $i_max"

NewDocument D BinOcaf
UndoLimit D 10

restore [locate_data_file OCC294.brep] s

set listmem {}
for {set i 1} {${i} <= ${i_max}} {incr i} {

    OpenCommand D
    SetShape D 0:1 s 
    AbortCommand D

    # check memory usage (with tolerance equal to half page size)
    lappend listmem [meminfo h]
    checktrend $listmem 50 50 "Memory leak detected"
}