61c421bf |
1 | puts "TODO OCC111111 ALL: Faulty OCC6862" |
2 | |
3 | puts "============" |
4 | puts "OCC6862" |
5 | puts "============" |
6 | puts "" |
7 | ####################################################################### |
8 | # Tool for checking arguments of Boolean Operations |
9 | ####################################################################### |
10 | |
11 | set BugNumber OCC6862 |
12 | |
13 | # test small edges |
14 | restore [locate_data_file OCC651a.brep] a |
15 | restore [locate_data_file OCC651b.brep] b |
16 | |
17 | puts "Checking shapes: bopargcheck a b /FTVEIP ..." |
18 | decho off |
19 | set resstr [bopargcheck a b /FTVEIP] |
20 | decho on |
21 | |
22 | if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} { |
23 | puts "OK ${BugNumber}" |
24 | } else { |
25 | puts "Faulty ${BugNumber}" |
26 | } |
27 | |
28 | set 2dviewer 0 |
29 | |
30 | |