tests/bugs/modalg_6/bug27569

   1 puts "============"
   2 puts "OCC27569"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # [Regression in 6.9.0] Projecting a curve hangs
   7 ######################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file bug27569.brep] aS
  12 explode aS
  13 mkcurve c aS_1
  14 mksurface s aS_2
  15
  16 # Performance check
  17 chrono h reset; chrono h start
  18 OCC24008 c s;
  19 chrono h stop; set q [dchrono h show]
  20 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full aTime
  21
  22 set MAX_TIME 1.0
  23
  24 if { $aTime > ${MAX_TIME} } {
  25     puts "Elapsed time is more than ${MAX_TIME} seconds - Faulty"
  26 } else {
  27     puts "Elapsed time is less than ${MAX_TIME} seconds - OK"
  28 }