1b7ae951 |
1 | puts "============" |
2 | puts "OCC25597" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Invalid curve on surface in the result of General Fuse operation |
7 | ###################################################### |
8 | |
9 | restore [locate_data_file bug25597_c1ext.brep] b1 |
10 | restore [locate_data_file bug25597_c2ext.brep] b2 |
11 | |
12 | bclearobjects |
13 | bcleartools |
14 | baddobjects b1 |
15 | baddtools b2 |
16 | bfillds -s |
17 | bbuild r |
18 | |
19 | set info [bopargcheck r] |
20 | |
21 | if { [regexp "to be valid for BOP" ${info}] == 1 } { |
22 | puts "OK : Created curve is correct" |
23 | } else { |
24 | puts "Error : Created curve is not correct" |
25 | } |