0028313: Extend Draw functionality with some new useful commands and features
[occt.git] / tests / bugs / moddata_2 / bug6862_9
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 donly b1_10 ww
19
20 set resstr [bopargcheck b1_10 ww -O /RFTVIP]
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 checkview -display result -2d -path ${imagedir}/${test_image}.png