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 checkprops result -l 37.6991
  19 checkshape result
  20 checksection result
  21 checknbshapes result -vertex 4 -edge 4 -wire 0 -face 0 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 9
  22 regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices
  23 set good_Vertices 0
  24 if { ${Vertices} != ${good_Vertices} } {
  25   puts "Faulty ${BugNumber}"
  26 } else {
  27   puts "OK ${BugNumber}"
  28 }
  29
  30 checkview -display result -2d -path ${imagedir}/${test_image}.png
  31