puts "TODO ?OCC12345 ALL: Elapsed time is more then 20.0 seconds - Faulty"
puts "TODO ?OCC12345 ALL: Faulty OCC1454"

puts "===== OCC1454 ====="
#######################################################################################
# Improve performance of TDF_Label::FindChild
#######################################################################################

puts "Info: Open the document with 80000 sublabels of the label 0:2"
chrono h reset; chrono h start
Open [locate_data_file OCC1726.std] D
chrono h stop; set TimeList [chrono h show]

set ElapsedTime_min [lindex ${TimeList} 4]
set ElapsedTime_sec [lindex ${TimeList} 6]
set CPUusertime [lindex ${TimeList} 11]
set CPUsystemtime [lindex ${TimeList} 16]
puts "ElapsedTime = ${ElapsedTime_min} min ${ElapsedTime_sec} sec CPUusertime = ${CPUusertime} CPUsystemtime = ${CPUsystemtime}"

if { ${ElapsedTime_sec} > 20.0 || ${ElapsedTime_min} != 0 } {
  puts "Elapsed time is more then 20.0 seconds - Faulty"
  puts "Faulty OCC1454"
} elseif { ${CPUusertime} > 12 } {
    puts "CPUusertime is more then 12 seconds - Faulty"
    puts "Faulty OCC1454"
} elseif { ${CPUsystemtime} > 0.6 } { 
    puts "CPUsystemtime is more then 0.6 seconds"
    puts "Faulty OCC1454"
} else {
    puts "Elapsed time is less then 20 seconds - OK"
    puts "CPU user time is less then 12 seconds - OK"
    puts "CPU system time is less then 0.6 seconds - OK"
    puts "OK for OCC1454"
}
