tests/bugs/modalg_6/bug26098

   1 puts "============"
   2 puts "OCC26098"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## The result of General Fuse operation is self-interfered shape
   7 ###############################
   8
   9 restore [locate_data_file bug26098_c.brep ] c
  10
  11 explode c
  12
  13 bclearobjects
  14 bcleartools
  15 baddobjects c_1
  16 baddtools c_2 c_3 c_4 c_5
  17
  18 bfillds
  19 bbuild result
  20
  21 set info [bopcheck result]
  22
  23 if { [regexp "This shape seems to be OK" ${info}] != 1 } {
  24     puts "Error : The result of General Fuse operation is self-interfered shape"
  25 }
  26
  27 checkprops result -s 173.444
  28 checkshape result
  29
  30 set nbshapes_expected "
  31 Number of shapes in shape
  32  VERTEX    : 230
  33  EDGE      : 400
  34  WIRE      : 196
  35  FACE      : 185
  36  SHELL     : 20
  37  SOLID     : 20
  38  COMPSOLID : 0
  39  COMPOUND  : 1
  40  SHAPE     : 1052
  41 "
  42
  43 checknbshapes result -ref ${nbshapes_expected} -t -m "Result obtained by General Fuse operator"
  44 checkview -display result -3d -path ${imagedir}/${test_image}.png