tests/bugs/moddata_2/bug736

   1 puts "========"
   2 puts "OCC736"
   3 puts "========"
   4 puts ""
   5 ###################################################################################
   6 ## After restoring attached shape(face) it is obviously that there is
   7 ## selfintersecting wire. However BRepCheck gives reply that shape looks OK.
   8 ###################################################################################
   9
  10 restore [locate_data_file OCC736.brep] result
  11
  12 set che [checkshape result r]
  13
  14 if { [regexp {OK} $che ] == 1 } {
  15     puts "Faulty OCC736:  checkshape command works wrongly"
  16 } else {
  17     puts "OCC736 OK: checkshape command works PROPERLY"
  18 }
  19
  20 checkview -display result -2d -path ${imagedir}/${test_image}.png
  21