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