tests/bugs/modalg_7/bug23660

   1 puts "========"
   2 puts "OCC23660"
   3 puts "========"
   4 puts ""
   5 #####################################
   6 # 'bsection' produces result with gap
   7 #####################################
   8
   9 restore [locate_data_file bug23660_shell_537.brep] s
  10 restore [locate_data_file bug23660_face_537.brep] f
  11
  12 bsection result s f
  13
  14 checkmaxtol result -min_tol 0.001
  15 checkprops result -l 19.0858
  16
  17 if {[regexp "alone_5" [checksection result]]} {
  18   puts "Error: section with gap"
  19 }
  20
  21 checkview -display result -2d -path ${imagedir}/${test_image}.png