tests/bugs/modalg_1/buc60946

   1
   2 puts "============"
   3 puts "BUC60946"
   4 puts "============"
   5
   6 restore [locate_data_file BUC60946_prism.brep] c
   7 explode c
   8 checkshape c_1
   9 checkshape c_2
  10
  11 renamevar c_1 sh
  12 renamevar c_2 pr
  13 bsection result sh pr
  14
  15 set nb_info [nbshapes result]
  16 regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full nb_vertices
  17 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full nb_edges
  18
  19 if { $nb_vertices != $nb_edges } {
  20     puts "Section is opened: Faulty shape"
  21 } else {
  22     puts "Section is closed: OK"
  23 }
  24 checkprops result -l 52.5057
  25 checkshape result
  26 checksection result
  27 checkview -display result -2d -path ${imagedir}/${test_image}.png