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 }