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