5 ###########################################################################################
6 # BRepBuilderAPI_Copy (and possibly other similar tools) create new shape in Frozen state
7 ###########################################################################################
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."
15 set bug_info [whatis b]
16 if {[lindex $bug_info 6] == "Free"} {
17 puts "ERROR: OCC21727 is reproduced. Shape b has flag FREE."
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."