tests/bugs/modalg_2/bug23

   1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty"
   2 puts "TODO OCC12345 ALL: Error : The length of result shape is"
   3 puts "================"
   4 puts "OCC23"
   5 puts "================"
   6 puts ""
   7 ##########################################################################################################
   8 ## Checkshape gives result that there is a selfintersection on wire, but there are no intersection on it.
   9 ##########################################################################################################
  10
  11 restore [locate_data_file OCC23.brep] sh
  12
  13 checkshape sh
  14
  15 explode sh f
  16 explode sh_2 w
  17
  18 renamevar sh_2_1 result
  19
  20 checkprops result -l 0
  21 checkshape result
  22 checksection result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png