tests/bugs/modalg_5/bug24492

   1 puts "==========="
   2 puts "OCC24492"
   3 puts "==========="
   4 puts ""
   5 ##############################################################
   6 # The command bopargcheck produces wrong results for cases
   7 ##############################################################
   8
   9 box x1 10 10 10
  10 vertex x2 3 3 3
  11 compound x1 x2 b1
  12
  13 set info [bopargcheck b1 #f]
  14
  15 if { [regexp "Faulties for FIRST  shape found : 1" $info] != 1 } {
  16     puts "Error : command bopargcheck produces wrong result"
  17 } else {
  18     puts "OK : command bopargcheck produces correct result"
  19 }