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 | # face verification |
12 | box b1 10 20 10 |
13 | box b2 20 10 10 |
14 | explode b1 f |
15 | explode b2 f |
16 | bcut r1 b1_6 b2_6 |
17 | bcommon r2 b1_6 b2_6 |
18 | explode r1 w |
19 | explode r2 w |
20 | mksurface gs b1_6 |
21 | mkface ff gs |
22 | add r1_1 ff |
23 | add r2_1 ff |
24 | |
61c421bf |
25 | set resstr [bopargcheck ff b2_6 -F /RTVEIP] |
61c421bf |
26 | |
27 | if {$resstr=="Faulties, that can not be treated by BOP, are detected.\n"} { |
28 | puts "OK ${BugNumber}" |
29 | } else { |
30 | puts "Faulty ${BugNumber}" |
31 | } |
32 | |
5747059b |
33 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
61c421bf |
34 | |
35 | |