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