[occt.git] / tests / bugs / modalg_6 / bug27746_3

puts "========"
puts "OCC27746"
puts "========"
puts ""
#################################################
# Incomplete result of SECTION operation
#################################################

restore [locate_data_file bug27746_first.brep] b1
restore [locate_data_file bug27746_second.brep] b2

explode b1 f; compound b1_60 b1_61 b1
explode b2 f; compound b2_21 b2_37 b2
donly b1 b2

bclearobjects
bcleartools
baddobjects b1
baddtools b2
bfillds
bbop result 4

regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
if { $nbv != 2 } { puts "Error : Section is incorrect" }

checkprops result -l 4.39869
Commit	Line	Data
a4785842	1	puts "========"
	2	puts "OCC27746"
	3	puts "========"
	4	puts ""
	5	#################################################
	6	# Incomplete result of SECTION operation
	7	#################################################
	8
	9	restore [locate_data_file bug27746_first.brep] b1
	10	restore [locate_data_file bug27746_second.brep] b2
	11
	12	explode b1 f; compound b1_60 b1_61 b1
	13	explode b2 f; compound b2_21 b2_37 b2
	14	donly b1 b2
	15
	16	bclearobjects
	17	bcleartools
	18	baddobjects b1
	19	baddtools b2
	20	bfillds
	21	bbop result 4
	22
	23	regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
	24	if { $nbv != 2 } { puts "Error : Section is incorrect" }
	25
	26	checkprops result -l 4.39869