1puts "============" 2puts "OCC14780" 3puts "============" 4puts "" 5###################################################### 6# Boolean operations (section, fuse, common, cut) give incorrect result 7###################################################### 8 9set BugNumber OCC14780 10 11restore [locate_data_file OCC14780_part1.brep] s1 12restore [locate_data_file OCC14780_part2.brep] s2 13 14bop s1 s2 15bopsection result 16 17regexp {nb alone Vertices +: +([-0-9.+eE]+)} [checksection result] full Vertices 18 19set good_Vertices 0 20if { ${Vertices} != ${good_Vertices} } { 21 puts "Faulty ${BugNumber}" 22} else { 23 puts "OK ${BugNumber}" 24} 25 26checkprops result -l 171.289 27checkshape result 28checksection result 29checkview -display result -2d -path ${imagedir}/${test_image}.png 30 31 32