7 ##########################
8 ## Section gives duplicate edges.
9 ##########################
11 restore [locate_data_file BUC60865_sh6.brep] sh
14 plane pl 1.1 0.99999 1 0 1 0
19 set nb_info [nbshapes result]
20 regexp {EDGE +: +([-0-9.+eE]+)} $nb_info full ed
23 puts " BUC60865 : SECTION operation was made properly"
25 puts "Faulty BUC60865: SECTION operation was made wrongly"