tests/bugs/modalg_4/bug673

   1 puts "TODO OCC12345 ALL: Faulty OCC673: function SPLITSHAPE works wrongly"
   2
   3 puts "================"
   4 puts "OCC673"
   5 puts "================"
   6 puts ""
   7 #######################################################
   8 ## Exception is raised during splitting face by a wire laying on the face boundary.
   9 #######################################################
  10
  11 restore [locate_data_file OCC673a.brep] a
  12 checkshape a
  13
  14 restore [locate_data_file OCC673b.brep] b
  15 checkshape b
  16
  17 if [catch {spliteshape result a a b} catch_result] {
  18     puts "Faulty OCC673: function SPLITSHAPE works wrongly"
  19 } else {
  20     puts "OCC673 OK : function SPLITSHAPE works OK"
  21     checkprops result -s 0
  22 checkshape result
  23     checkview -display result -2d -path ${imagedir}/${test_image}.png
  24 }
  25
  26
  27