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 | # test possibility to merge edges |
12 | box b1 10 20 10 |
13 | box b2 20 10 10 |
14 | explode b1 e |
15 | explode b2 e |
16 | tcopy b2_10 ee2 |
17 | wire ww b2_10 ee2 |
18 | donl b1_10 ww |
19 | |
20 | decho off |
21 | set resstr [bopargcheck b1_10 ww -O /RFTVIP] |
22 | decho on |
23 | |
24 | if { $resstr=="Faulties, that can not be treated by BOP, are detected.\n" } { |
25 | puts "OK ${BugNumber}" |
26 | } else { |
27 | puts "Faulty ${BugNumber}" |
28 | } |
29 | |
30 | set 2dviewer 0 |