[occt.git] / tests / bugs / modalg_7 / bug27224

puts "========"
puts "OCC27224"
puts "========"
puts ""
############################################################################
# Incorrect result of boolean operation in boolean bcut_complex Q1 test case
############################################################################

restore [locate_data_file buc60290a.rle] sol1
restore [locate_data_file buc60290b.rle] sol2

explode sol1 f
explode sol2 f

bsection result sol2_1 sol1_1

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv

if { $nbv != 0 } { 
  puts "Error : Incorrect result of boolean operation" 
} else {
  puts "OK : Correct result of boolean operation" 
}

smallview
donly result
fit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
340054e1	1	puts "========"
	2	puts "OCC27224"
	3	puts "========"
	4	puts ""
	5	############################################################################
	6	# Incorrect result of boolean operation in boolean bcut_complex Q1 test case
	7	############################################################################
	8
	9	restore [locate_data_file buc60290a.rle] sol1
	10	restore [locate_data_file buc60290b.rle] sol2
	11
	12	explode sol1 f
	13	explode sol2 f
	14
	15	bsection result sol2_1 sol1_1
	16
	17	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
	18
	19	if { $nbv != 0 } {
	20	puts "Error : Incorrect result of boolean operation"
	21	} else {
	22	puts "OK : Correct result of boolean operation"
	23	}
	24
	25	smallview
	26	donly result
	27	fit
	28
	29	checkview -screenshot -2d -path ${imagedir}/${test_image}.png