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 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