61c421bf |
1 | puts "============" |
2 | puts "OCC6862" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # Tool for checking arguments of Boolean Operations |
7 | ####################################################################### |
8 | |
9 | set BugNumber OCC6862 |
10 | |
11 | # self-intersection test |
12 | restore [locate_data_file OCC497a.brep] a_1 |
13 | restore [locate_data_file OCC497b.brep] a_2 |
14 | |
15 | decho off |
16 | set resstr [bopargcheck a_2] |
17 | decho on |
18 | |
19 | if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} { |
20 | puts "OK ${BugNumber}" |
21 | } else { |
22 | puts "Faulty ${BugNumber}" |
23 | } |
24 | |
25 | set 2dviewer 0 |
26 | |