tests/bugs/modalg_6/bug26674

   1 puts "========"
   2 puts "OCC26674"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # Performance regression in BRepExtrema_DistShapeShape in OCCT 6.9.0 in compare with OCCT 6.7.1
   7 #################################################
   8
   9 set max_time 1
  10
  11 restore [locate_data_file OCC26674-face.brep] a1
  12 restore [locate_data_file OCC26674-shell.brep] a2
  13
  14 dchrono cr reset
  15 dchrono cr start
  16
  17 distmini dd a1 a2
  18
  19 dchrono cr stop
  20
  21 set log [dchrono cr show]
  22
  23 regexp {CPU user time: ([-0-9.+eE]+) seconds} $log full z
  24 puts "$z"
  25
  26 if { $z > ${max_time} } {
  27     puts "Elapsed time of BRepExtrema_DistShapeShape is more than ${max_time} seconds - Error"
  28 } else {
  29     puts "Elapsed time of BRepExtrema_DistShapeShape is less than ${max_time} seconds - OK"
  30 }
  31
  32 regexp {([-0-9.+eE]+)$} [dump dd_val] full dist
  33
  34 set expected_dist 0.0
  35 set tol_abs_dist 1.0e-07
  36 set tol_rel_dist 0.0
  37 checkreal "Dump of dd_val" ${dist} ${expected_dist} ${tol_abs_dist} ${tol_rel_dist}