0029807: [Regression to 7.0.0] Impossible to cut cone from prism
[occt.git] / tests / bugs / modalg_5 / bug24492
CommitLineData
ceaa5e27 1puts "==========="
2puts "OCC24492"
3puts "==========="
4puts ""
5##############################################################
6# The command bopargcheck produces wrong results for cases
7##############################################################
8
9box x1 10 10 10
10vertex x2 3 3 3
11compound x1 x2 b1
6d368502 12
ceaa5e27 13set info [bopargcheck b1 #f]
ceaa5e27 14
15if { [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}