puts "================"
puts "OCC5023"
puts "================"
puts ""
######################################################
# Performance regression in opening OCAF file
######################################################

set aFile [locate_data_file OCC5023.std]

puts "Info: Restore the document"

if [info exists DD] {
    catch {Close DD}; unset DD
}

dchrono h reset
dchrono h start

Open ${aFile} DD
dchrono h stop
set list [dchrono h show]
Close DD

regexp {CPU user time: +([-0-9.+eE]+)} $list full CPU_user_time

set Good_CPU_user_time 2.

set CPU_user_time_percent [expr (${CPU_user_time} - ${Good_CPU_user_time}) / ${Good_CPU_user_time} * 100.]
set percent_max 0.1

puts "CPU_user_time = ${CPU_user_time}"
puts "Good_CPU_user_time = ${Good_CPU_user_time}"
puts "CPU_user_time_percent = ${CPU_user_time_percent}"

if {${CPU_user_time_percent} > ${percent_max}} {
    puts "Faulty OCC5023 : CPU user time is wrong"
}

