tests/bugs/modalg_5/bug24005

   1 puts "============"
   2 puts "OCC24005"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Intersecting a slightly off angle plane with a cylinder takes 7+ seconds
   7 ###############################
   8
   9 pload QAcommands
  10
  11 dchrono h reset
  12 dchrono h start
  13
  14 OCC24005 result
  15
  16 dchrono h stop
  17 set q [dchrono h show]
  18
  19 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
  20 puts "$z"
  21
  22 set max_time 0.4
  23 if { $z > ${max_time} } {
  24     puts "Elapsed time is more than ${max_time} seconds - Faulty"
  25 } else {
  26     puts "Elapsed time is less than ${max_time} seconds - OK"
  27 }
  28
  29 if { [regexp {Ellipse} [dump result]] == 1 } {
  30     puts "result is OK"
  31 } else {
  32     puts "result is Faulty"
  33 }
  34
  35 set 2dviewer 1