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

puts "============"
puts "OCC27282"
puts "============"
puts ""
###############################
## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
###############################

restore [locate_data_file bug27282_cmpd.brep] a
explode a

bclearobjects
bcleartools
baddobjects a_1
baddtools a_2

bfillds

# CUT-operation
bbop result 2

set log [bopargcheck result #F]

if { [string compare -nocase $log "Shape(s) seem(s) to be valid for BOP.\n"] } {
  puts "ERROR. result is not valid for BOP"
}

checkshape result
checknbshapes result -solid 1 -face 4
checkprops result -v 2.96079e+007

checkview -display result -2d -path ${imagedir}/${test_image}.png
Commit	Line	Data
	1	puts "============"
	2	puts "OCC27282"
	3	puts "============"
	4	puts ""
	5	###############################
	6	## [Regression to 6.9.1] smesh/bugs_00/A6: Cut produces an empty shape
	7	###############################
	8
	9	restore [locate_data_file bug27282_cmpd.brep] a
	10	explode a
	11
	12	bclearobjects
	13	bcleartools
	14	baddobjects a_1
	15	baddtools a_2
	16
	17	bfillds
	18
	19	# CUT-operation
	20	bbop result 2
	21
	22	set log [bopargcheck result #F]
	23
	24	if { [string compare -nocase $log "Shape(s) seem(s) to be valid for BOP.\n"] } {
	25	puts "ERROR. result is not valid for BOP"
	26	}
	27
	28	checkshape result
	29	checknbshapes result -solid 1 -face 4
	30	checkprops result -v 2.96079e+007
	31
	32	checkview -display result -2d -path ${imagedir}/${test_image}.png