0024706: Solids produced by BOP do not have flag Closed set in shells
[occt.git] / 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 }