tests/bugs/modalg_1/bug15850_4

   1 puts "TODO OCC12345 ALL: Error :  is WRONG because number of "
   2 puts "============"
   3 puts "OCC15850"
   4 puts "============"
   5 puts ""
   6 #######################################################################
   7 # Regression in BOP - wrong results for simple shapes with Bspline geometry
   8 #######################################################################
   9
  10 set BugNumber OCC15850
  11
  12 restore [locate_data_file OCC15850_bb.brep] bb
  13 restore [locate_data_file OCC15850_bc.brep] bc
  14
  15 bop bb bc
  16 bopsection result
  17
  18 set length 37.6991
  19 checknbshapes result -vertex 4 -edge 4 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 9
  20 regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
  21 set good_Vertices 0
  22 if { ${Vertices} != ${good_Vertices} } {
  23   puts "Faulty ${BugNumber}"
  24 } else {
  25   puts "OK ${BugNumber}"
  26 }
  27
  28 set 2dviewer 0
  29