[occt.git] / tests / bugs / step / bug24024

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
Commit	Line	Data
e226a506	1	puts "=========="
	2	puts "OCC24024"
	3	puts "=========="
	4	puts ""
	5	######################################
	6	# Slow import of specific STEP data
	7	######################################
	8
8b1ad7e0	9	cpulimit 1700
	10	set ver [dversion]
	11	if { [regexp "Debug" $ver] != 1 } {
	12	set cpu_check 450
	13	} else {
	14	set cpu_check 1600
	15	}
	16
e226a506	17	dchrono h reset
	18	dchrono h start
	19	stepread [locate_data_file bug24024_slow_import.stp] a *
	20	dchrono h stop
	21
	22	tpcompound result
	23
	24	set info [dchrono h show]
	25	regexp {CPU user time: ([-0-9.+eE]+) seconds} $info full cpu_time
8b1ad7e0	26	if { $cpu_time > $cpu_check } {
e226a506	27	puts "Error: performance of import of data is low"
	28	} else {
	29	puts "OK: performance of import of data is high"
	30	}
	31
	32	set 2dviewer 1
	33