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