tests/sewing/fast/A6

   1 if { [regexp {Debug mode} [dversion]] } {
   2   if { [regexp {Windows} [dversion]] } {
   3     set max_time 9
   4   } else {
   5     set max_time 9
   6   }
   7 } else {
   8   if { [regexp {Windows} [dversion]] } {
   9     set max_time 3
  10   } else {
  11     set max_time 3
  12   }
  13 }
  14
  15 restore [locate_data_file Pipe_Full.brep] a
  16
  17 dchrono ch reset
  18 dchrono ch start
  19 puts [fastsewing result -tol 5.0e-4 a]
  20 dchrono ch stop
  21
  22 set q [dchrono ch show]
  23
  24 regexp {CPU user time: ([-0-9.+eE]+) seconds} $q full z
  25 puts "$z"
  26
  27 if { $z > ${max_time} } {
  28     puts "Elapsed time is more than ${max_time} seconds - Error"
  29 } else {
  30     puts "Elapsed time is less than ${max_time} seconds - OK"
  31 }
  32
  33 donly result
  34 checkshape result
  35
  36 set nbshapes_expected "
  37 Number of shapes in shape
  38  VERTEX    : 5327
  39  EDGE      : 10656
  40  WIRE      : 5326
  41  FACE      : 5326
  42  SHELL     : 1
  43  SOLID     : 0
  44  COMPSOLID : 0
  45  COMPOUND  : 1
  46  SHAPE     : 26637
  47 "
  48
  49 checknbshapes result -ref "${nbshapes_expected}" -t -m "Partition of 2 shapes"