puts "============"
puts "OCC26339"
puts "============"
puts ""
#######################################################################
# [Regression in 6.9.0] Projecting a curve hangs
#######################################################################

if { [regexp {Debug mode} [dversion]] } {
  if { [regexp {Windows} [dversion]] } {
    set max_time 10
  } else {
    set max_time 10
  }
} else {
  if { [regexp {Windows} [dversion]] } {
    set max_time 3
  } else {
    set max_time 3
  }
}

restore [locate_data_file bug26339_a_1886.brep] f

dchrono h reset
dchrono h start

fixshape r f 1e-5

dchrono h stop
set q [dchrono h show]

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

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