tests/bugs/modalg_5/bug25243

   1 puts "========"
   2 puts "OCC25243"
   3 puts "========"
   4 puts ""
   5 ##################################################################################
   6 # BRepFeat_SplitShape algorithm processes incorrect faces with degenerated edges
   7 ##################################################################################
   8
   9 restore [locate_data_file bug25243_Context.brep] a
  10 restore [locate_data_file bug25243_splitterEdge_1_1.brep] e
  11
  12 smallview
  13
  14 explode a
  15
  16 donly a_4 e
  17 fit
  18
  19 splitshape result a_4 a_4 e
  20
  21 set bug_info [checkshape result]
  22 if {[string compare $bug_info "This shape seems to be valid"] != 0} {
  23   puts "ERROR: OCC25243 is reproduced"
  24   puts "       shape result is invalid"
  25 }
  26
  27 set only_screen_axo 1