tests/bugs/modalg_5/bug24696

   1 puts "========="
   2 puts "OCC24696"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Lower performance of the new Edge/Edge intersection algorithm
   7 ###########################################################
   8
   9 pload QAcommands
  10
  11 dchrono h reset
  12 dchrono h start
  13
  14 restore [locate_data_file bug24696_cx_e1200_nurbs.brep] cx
  15
  16 bclearobjects
  17 bcleartools
  18
  19 set edges [explode cx e]
  20 set nbe [llength $edges]
  21 for {set i 1} {$i <= $nbe} {incr i} {baddobjects cx_$i}
  22 bfillds
  23 bbuild result
  24
  25 dchrono h stop
  26 set q [dchrono h show]
  27
  28 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
  29 puts "$z"
  30
  31 if { [regexp {Debug mode} [dversion]] } {
  32   if { [regexp {Windows} [dversion]] } {
  33     set max_time 100.0
  34   } else {
  35     set max_time 200.0
  36   }
  37 } else {
  38   if { [regexp {Windows} [dversion]] } {
  39     set max_time 20.0
  40   } else {
  41     set max_time 40.0
  42   }
  43 }
  44
  45 if { [regexp {Mac OS X} [dversion]] } {
  46   set max_time 100.0
  47 }
  48
  49 if { $z > ${max_time} } {
  50     puts "Elapsed time is more than ${max_time} seconds - Faulty"
  51 } else {
  52     puts "Elapsed time is less than ${max_time} seconds - OK"
  53 }
  54
  55 set 2dviewer 1