puts "============"
puts "OCC27085"
puts "============"
puts ""
###############################
## ShapeUpgrade_UnifySameDomain very large performance difference for seemingly similar shapes
###############################

restore [locate_data_file bug27085_fused_primitive.fast.brep] fp

dchrono h reset
dchrono h start

unifysamedom res fp

dchrono h stop
set q [dchrono h show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
puts "$z"

set max_time 5

if { $z > ${max_time} } {                                         
    puts "Elapsed time is more than ${max_time} seconds - Faulty"
} else {
    puts "Elapsed time is less than ${max_time} seconds - OK"
}
