tests/bugs/modalg_5/bug24029

   1 puts "============"
   2 puts "OCC24029"
   3 puts "============"
   4 puts ""
   5 ############################################################################################
   6 # Add a flag to bopcheck command to provide possibility to disable Face/Face intersection
   7 ############################################################################################
   8
   9 box b1 10 10 10
  10 box b2 5 5 5 10 10 10
  11 compound b1 b2 c
  12
  13 set info1 [bopcheck c]
  14 set info2 [bopcheck c 4]
  15 set info3 [bopcheck c 3]
  16
  17 if { [regexp "x35" $info1] != 1 } {
  18     puts "Error : bopcheck c works wrong"
  19 } else {
  20     puts "OK: bopcheck c works properly"
  21 }
  22
  23 if { [regexp "x13" $info2] != 1 || [regexp "x39" $info2] != 1 } {
  24     puts "Error : bopcheck c 4 works wrong"
  25 } else {
  26     puts "OK: bopcheck c 4 works properly"
  27 }
  28
  29 if { [regexp "This shape seems to be OK" $info3] != 1 } {
  30     puts "Error : bopcheck c 3 works wrong"
  31 } else {
  32     puts "OK: bopcheck c 3 works properly"
  33 }