0031587: Modeling Data - add BRepTools::RemoveInternals() removing internal sub-shape...
[occt.git] / tests / bugs / moddata_3 / bug25202_4
1 puts "========"
2 puts "CR25202"
3 puts "========"
4 puts ""
5 #########################################
6 ## Incorrect value of IsClosed flag in shapes produced by some algorithms
7 #########################################
8
9 circle cc 0 100 0 20
10 mkedge ee cc
11 wire ww ee
12 mkplane ff ww
13 revol result ff 0 0 0 1 0 0 90
14
15 set info [whatis result]
16 if { [regexp {Closed} ${info}] != 1 } {
17     puts "OK : value of IsClosed flag is correct"
18 } else {
19     puts "Error : value of IsClosed flag is not correct"
20 }
21
22 checkview -display result -2d -path ${imagedir}/${test_image}.png