tests/bugs/modalg_6/bug21624

   1 puts "=========="
   2 puts "OCC21624"
   3 puts "=========="
   4 puts ""
   5 ##############################################
   6 # BRepFeat_SplitShape produce invalid shape
   7 ##############################################
   8
   9 restore [locate_data_file bug21624_splitBug.brep] cc
  10 explode cc
  11 splitshape result cc_1 cc_1 cc_2 cc_1 cc_3
  12
  13 set info [ checkshape result f ]
  14
  15 if { [regexp {The Shape result looks OK} $info] } {
  16   puts "OK: Splitshape produces valid shape"
  17 } else {
  18   puts "Error: Splitshape produces invalid shape"
  19 }
  20
  21 checkview -display result -2d -path ${imagedir}/${test_image}.png