tests/bugs/modalg/bug60865

   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 puts [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
  19 set nb_info [nbshapes result]
  20 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
  21
  22 if {  $ed == 5 } {
  23     puts  " BUC60865 : SECTION operation was made properly"
  24 } else {
  25     puts "Faulty BUC60865: SECTION operation was made wrongly"
  26 }
  27 set length 4.5
  28 set 2dviewer 0
  29