5 ############################################################################################
6 # Add a flag to bopcheck command to provide possibility to disable Face/Face intersection
7 ############################################################################################
13 set info1 [bopcheck c]
14 set info2 [bopcheck c 4]
15 set info3 [bopcheck c 3]
17 if { [regexp "x23" $info1] != 1 } {
18 puts "Error : bopcheck c works wrong"
20 puts "OK: bopcheck c works properly"
23 if { [regexp "x11" $info2] != 1 || [regexp "F/F:x12," $info2] != 0 } {
24 puts "Error : bopcheck c 4 works wrong"
26 puts "OK: bopcheck c 4 works properly"
29 if { [regexp "This shape seems to be OK" $info3] != 1 } {
30 puts "Error : bopcheck c 3 works wrong"
32 puts "OK: bopcheck c 3 works properly"