tests/bugs/modalg_6/bug26420_2

   1 puts "========"
   2 puts "OCC26420"
   3 puts "========"
   4 puts ""
   5 ######################################################
   6 # BOPAlgo_Builder resets "Closed" flag in the result
   7 ######################################################
   8
   9 polyline pp 0 4 0 7 4 0 7 6 0 0 6 0 0 4 0
  10 mkplane ff pp
  11 vertex v0 5 4 0
  12 vertex v1 4 6 0
  13 bclearobjects
  14 bcleartools
  15 baddobjects v0 v1 ff
  16 bfillds
  17 bbuild r
  18 explode r w
  19 set bug_info [whatis r_1]
  20 if {[lindex $bug_info 8] != "Closed"} {
  21   puts "ERROR: OCC26420 is reproduced. Flag CLOSED is not set."
  22 }