tests/bugs/modalg_5/bug23906

   1 puts "============"
   2 puts "OCC23906"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Performance of the projection algorithm in some cases became lower after integration of the fix for the bug 0022610
   7 ###############################
   8
   9 restore [locate_data_file bug23906_f.brep] f
  10
  11 point p 3.5527136788005e-015 100 100
  12
  13 dchrono h reset
  14 dchrono h start
  15
  16 projponf f p -min -t
  17
  18 dchrono h stop
  19 set q2 [dchrono h show]
  20
  21 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q2 full z
  22 puts "$z"
  23 if { [string compare $tcl_platform(platform) "windows"] == 0 }  {
  24    puts "OS = Windows NT"
  25    set max_time 0.5
  26 } else {
  27    puts "OS = Linux"
  28    set max_time 0.1
  29 }
  30 if { $z > ${max_time} } {
  31     puts "Elapsed time is more than ${max_time} seconds - Faulty"
  32 } else {
  33     puts "Elapsed time is less than ${max_time} seconds - OK"
  34 }