1puts "========"
2puts "OCC27746"
3puts "========"
4puts ""
5#################################################
6# Incomplete result of SECTION operation
7#################################################
8
9restore [locate_data_file bug27746_first.brep] b1
10restore [locate_data_file bug27746_second.brep] b2
11
12settolerance b2 1.e-7
13fixshape b2 b2
14
15bclearobjects
16bcleartools
17baddobjects b1
18baddtools b2
19bfillds
20bbop result 4
21
22regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
23if { $nbv > 6 } { puts "Error : Section is incorrect" }
24
25checkprops result -l 88.2082