[occt.git] / tests / bugs / modalg_5 / bug24492

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"
}
Commit	Line	Data
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
	12	decho off
	13	set info [bopargcheck b1 #f]
	14	decho on
	15
	16	if { [regexp "Faulties for FIRST shape found : 1" $info] != 1 } {
	17	puts "Error : command bopargcheck produces wrong result"
	18	} else {
	19	puts "OK : command bopargcheck produces correct result"
	20	}
	21
	22