tests/bugs/heal/bug22

   1 puts "======="
   2 puts "OCC22"
   3 puts "======="
   4 puts ""
   5 #####################################################################
   6 ##Locations are not correctly processed by ShapeBuild_ReShape (and base class BRepTools_ReShape)
   7 #####################################################################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file OCC21.brep] shape
  12 explode shape f
  13 compound shape_1 shape_2 compoundToBeDivided
  14
  15 # Case A of the bug is reproduced. Resulting shape must have 5 faces instead of 3
  16
  17 if [catch { OCC22 result shape compoundToBeDivided 0 } ] {
  18     puts "OCC22 ERROR; (case 1)"
  19 } else {
  20     puts "OCC22 OK; (case 1)"
  21 }
  22
  23 regexp {([-0-9.+eE]+)\s FACE} [statshape result] full nbFaces
  24 if {$nbFaces != 5} {
  25     puts "OCC22 FAULTY: Initial shape was not splitted"
  26 }
  27
  28 # Case B of the bug is reproduced. Result must be valid
  29 if [catch { OCC22 res shape compoundToBeDivided 1 } ] {
  30     puts "OCC22 ERROR; (case 2)"
  31 } else {
  32     puts "OCC22 OK; (case 2)"
  33 }
  34
  35 set 2dviewer 0
  36