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

puts "========"
puts "OCC26420"
puts "========"
puts ""
######################################################
# BOPAlgo_Builder resets "Closed" flag in the result
######################################################

polyline pp 0 4 0 7 4 0 7 6 0 0 6 0 0 4 0
mkplane ff pp
vertex v0 5 4 0
vertex v1 4 6 0
bclearobjects
bcleartools
baddobjects v0 v1 ff
bfillds
bbuild r
explode r w
set bug_info [whatis r_1]
if {[lindex $bug_info 8] != "Closed"} {
  puts "ERROR: OCC26420 is reproduced. Flag CLOSED is not set."
}
Commit	Line	Data
c5d8782c	1	puts "========"
	2	puts "OCC26420"
	3	puts "========"
	4	puts ""
	5	######################################################
	6	# BOPAlgo_Builder resets "Closed" flag in the result
	7	######################################################
	8
	9	polyline pp 0 4 0 7 4 0 7 6 0 0 6 0 0 4 0
	10	mkplane ff pp
	11	vertex v0 5 4 0
	12	vertex v1 4 6 0
	13	bclearobjects
	14	bcleartools
	15	baddobjects v0 v1 ff
	16	bfillds
	17	bbuild r
	18	explode r w
	19	set bug_info [whatis r_1]
	20	if {[lindex $bug_info 8] != "Closed"} {
	21	puts "ERROR: OCC26420 is reproduced. Flag CLOSED is not set."
	22	}