puts "======="
puts "OCC26871"
puts "======="
puts ""
#########################################################
## Projecting a curve hangs inside Approx_FitAndDivide2d
#########################################################

pload QAcommands

set max_time 5

restore [locate_data_file bug26871_curve3d] c3d
restore [locate_data_file bug26871_surface] surf

dchrono cr reset
dchrono cr start

OCC24008 c3d surf

dchrono cr stop

set logTime [dchrono cr show]

regexp {CPU user time: ([-0-9.+eE]+) seconds} $logTime full z
if { $z > ${max_time} } {
    puts "Elapsed time ($z) is more than ${max_time} seconds - Error"
} else {
    puts "Elapsed time ($z) is less than ${max_time} seconds - OK"
}
