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 }