puts "=========="
puts "OCC24024"
puts "=========="
puts ""
######################################
# Slow import of specific STEP data
######################################

cpulimit 1700
set ver [dversion]
if { [regexp "Debug" $ver] != 1 } {
    set cpu_check 450
} else {
    set cpu_check 1600
}

dchrono h reset
dchrono h start
stepread [locate_data_file bug24024_slow_import.stp] a *
dchrono h stop

tpcompound result

set info [dchrono h show]
regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
if { $cpu_time > $cpu_check } {
    puts "Error: performance of import of data is low"
} else {
    puts "OK: performance of import of data is high"
}

set 2dviewer 1