1puts "============"
2puts "OCC6862"
3puts "============"
4puts ""
5#######################################################################
6# Tool for checking arguments of Boolean Operations
7#######################################################################
8
9set BugNumber OCC6862
10
11# test possibility to merge edges
12box b1 10 20 10
13box b2 20 10 10
14explode b1 e
15explode b2 e
16tcopy b2_10 ee2
17wire ww b2_10 ee2
18donly b1_10 ww
19
20set resstr [bopargcheck b1_10 ww -O /RFTVIP]
21
22if {	$resstr=="Faulties, that can not be treated by BOP, are detected.\n" } {
23    puts "OK ${BugNumber}"
24} else {
25    puts "Faulty ${BugNumber}"
26}
27
28checkview -display result -2d -path ${imagedir}/${test_image}.png
29