tests/bugs/modalg_7/bug23925

   1 puts "============"
   2 puts "OCC23925"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # BRepFeat_SplitShape produces invalid shape
   7 #######################################################################
   8
   9 restore [locate_data_file bug23925_E.brep] e
  10 restore [locate_data_file bug23925_F.brep] f
  11
  12 splitshape result f f e
  13
  14 set nb_F [ llength [explode result F] ]
  15
  16 if { ${nb_F} == 2 } {
  17    puts "OK: BRepFeat_SplitShape produces good shape"
  18 } else {
  19    puts "Error: BRepFeat_SplitShape produces invalid shape"
  20 }
  21
  22 checkview -display result -2d -path ${imagedir}/${test_image}.png