tests/bugs/modalg_5/bug24213

   1 puts "============"
   2 puts "OCC24213"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # bopargcheck complains on sphere
   7 ######################################################
   8
   9 psphere s 10
  10
  11 set info [bopargcheck s #F]
  12
  13 if { [regexp "to be valid for BOP" ${info}] != 1 } {
  14    puts "Error : complain of bopargcheck command is not correct"
  15 } else {
  16    puts "OK : bopargcheck command work properly"
  17 }