tests/bugs/heal/bug26871

   1 puts "======="
   2 puts "OCC26871"
   3 puts "======="
   4 puts ""
   5 #########################################################
   6 ## Projecting a curve hangs inside Approx_FitAndDivide2d
   7 #########################################################
   8
   9 pload QAcommands
  10
  11 set max_time 5
  12
  13 restore [locate_data_file bug26871_curve3d] c3d
  14 restore [locate_data_file bug26871_surface] surf
  15
  16 dchrono cr reset
  17 dchrono cr start
  18
  19 OCC24008 c3d surf
  20
  21 dchrono cr stop
  22
  23 set logTime [dchrono cr show]
  24
  25 regexp {CPU user time: ([-0-9.+eE]+) seconds} $logTime full z
  26 if { $z > ${max_time} } {
  27     puts "Elapsed time ($z) is more than ${max_time} seconds - Error"
  28 } else {
  29     puts "Elapsed time ($z) is less than ${max_time} seconds - OK"
  30 }