puts "============"
puts "OCC24213"
puts "============"
puts ""
######################################################
# bopargcheck complains on sphere
######################################################

psphere s 10

set info [bopargcheck s #F]

if { [regexp "to be valid for BOP" ${info}] != 1 } {
   puts "Error : complain of bopargcheck command is not correct"
} else {
   puts "OK : bopargcheck command work properly"
}
