0024213: bopargcheck complains on sphere
[occt.git] / 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 }