tests/bugs/modalg/buc60865

   1
   2 puts "============"
   3 puts "BUC60865"
   4 puts "BUC60864"
   5 puts "============"
   6 puts ""
   7 ##########################
   8 ## Section gives duplicate edges.
   9 ##########################
  10
  11 restore [locate_data_file BUC60865_sh6.brep] sh
  12 checkshape sh
  13
  14 plane pl 1.1 0.99999 1 0 1 0
  15 mkface f pl
  16 bsection result sh f
  17
  18 set nb_info [nbshapes result]
  19 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
  20
  21 if {  $ed == 5 } {
  22     puts  " BUC60865 : SECTION operation was made properly"
  23 } else {
  24     puts "Faulty BUC60865: SECTION operation was made wrongly"
  25 }
  26 set length 4.5
  27 set 2dviewer 0
  28