tests/bugs/modalg_5/bug24706

   1 puts "========"
   2 puts "CR24706"
   3 puts "========"
   4 puts ""
   5 #########################################
   6 ## Solids produced by BOP do not have flag Closed set in shells
   7 #########################################
   8
   9 box b 10 10 10
  10 psphere s 2
  11 bcut r b s
  12
  13 explode r sh
  14 set info [whatis r_1]
  15 if { [regexp {Closed} ${info}] } {
  16     puts "OK : Flag CLOSED is set for closed shells created during perform of Boolean Operation"
  17 } else {
  18     puts "Faulty : Flag CLOSED is not set for closed shells created during perform of Boolean Operation"
  19 }