tests/bugs/moddata_2/bug6862_7

   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
  25 set resstr [bopargcheck ff b2_6 -F /RTVEIP]
  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
  33 checkview -display result -2d -path ${imagedir}/${test_image}.png
  34
  35