1 puts "================"
3 puts "================"
5 ######################################################
6 # Performance regression in opening OCAF file
7 ######################################################
9 set aFile [locate_data_file OCC5023.cbf]
11 puts "Info: Restore the document"
14 catch {Close DD}; unset DD
22 set list [dchrono h show]
25 regexp {CPU user time: +([-0-9.+eE]+)} $list full CPU_user_time
27 set Good_CPU_user_time 2.
29 set CPU_user_time_percent [expr (${CPU_user_time} - ${Good_CPU_user_time}) / ${Good_CPU_user_time} * 100.]
32 puts "CPU_user_time = ${CPU_user_time}"
33 puts "Good_CPU_user_time = ${Good_CPU_user_time}"
34 puts "CPU_user_time_percent = ${CPU_user_time_percent}"
36 if {${CPU_user_time_percent} > ${percent_max}} {
37 puts "Faulty OCC5023 : CPU user time is wrong"