tests/bugs/modalg_1/buc60462_1

   1 #puts "TODO OCC27024 ALL: Error : The length of result shape is"
   2
   3 puts "============="
   4 puts "BUC60462"
   5 puts "============="
   6 puts "Section"
   7 puts ""
   8
   9 restore [locate_data_file buc60462a.brep] a
  10 checkshape a
  11 restore [locate_data_file buc60462b.brep] b
  12 checkshape b
  13 bsection result a b
  14
  15 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full cs
  16
  17 if { $cs != 0 } {
  18     puts "Faulty : Section is incorrect"
  19 }
  20
  21 checkprops result -l 282.421
  22 checkshape result
  23 checksection result
  24 checkview -display result -2d -path ${imagedir}/${test_image}.png