tests/bugs/modalg_1/buc60463

   1 puts "============="
   2 puts "BUC60463"
   3 puts "============="
   4 puts "Section"
   5 puts ""
   6 cpulimit 1400
   7 restore [locate_data_file buc60463a.brep] a
   8 checkshape a
   9 restore [locate_data_file buc60463b.brep] b
  10 checkshape b
  11 bsection result a b
  12
  13 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
  14 if { $cs != 0 } {
  15     puts "Faulty : Section is incorrect"
  16 }
  17
  18 checkprops result -l 520.961
  19 checkshape result
  20 checkview -display result -2d -path ${imagedir}/${test_image}.png
  21