tests/bugs/modalg_6/bug27085_1

   1 puts "============"
   2 puts "OCC27085"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## ShapeUpgrade_UnifySameDomain very large performance difference for seemingly similar shapes
   7 ###############################
   8
   9 restore [locate_data_file bug27085_fused_primitive.fast.brep] fp
  10
  11 dchrono h reset
  12 dchrono h start
  13
  14 unifysamedom res fp
  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 5
  23
  24 if { $z > ${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 }