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