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