0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug21727
1 puts "========"
2 puts "OCC21727"
3 puts "========"
4 puts ""
5 ###########################################################################################
6 # BRepBuilderAPI_Copy (and possibly other similar tools) create new shape in Frozen state
7 ###########################################################################################
8
9 box b 10 10 10
10 set bug_info [whatis b]
11 if {[lindex $bug_info 6] != "Free"} {
12   puts "ERROR: OCC21727 is reproduced. Shape b does not have flag FREE."
13 }
14 compound b c
15 set bug_info [whatis b]
16 if {[lindex $bug_info 6] == "Free"} {
17   puts "ERROR: OCC21727 is reproduced. Shape b has flag FREE."
18 }
19 tcopy b q
20 set bug_info [whatis q]
21 if {[lindex $bug_info 6] != "Free"} {
22   puts "ERROR: OCC21727 is reproduced. Shape q does not have flag FREE."
23 }