0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26420_3
1 puts "========"
2 puts "OCC26420"
3 puts "========"
4 puts ""
5 ######################################################
6 # BOPAlgo_Builder resets "Closed" flag in the result
7 ######################################################
8
9 box bb 0 0 0 5 5 5
10 explode bb sh
11 polyline pp -1 -1 2 -1 6 2 6 6 2 6 -1 2 -1 -1 2
12 mkplane pl pp
13 baddobjects pl bb_1
14 bfillds
15 bbuild r
16 explode r sh
17 set bug_info [whatis r_1]
18 if {[lindex $bug_info 8] != "Closed"} {
19   puts "ERROR: OCC26420 is reproduced. Flag CLOSED is not set."
20 }