b0deeecf |
1 | puts "==========" |
2 | puts "OCC21624" |
3 | puts "==========" |
4 | puts "" |
5 | ############################################## |
6 | # BRepFeat_SplitShape produce invalid shape |
7 | ############################################## |
8 | |
9 | restore [locate_data_file bug21624_splitBug.brep] cc |
10 | explode cc |
11 | splitshape result cc_1 cc_1 cc_2 cc_1 cc_3 |
12 | |
13 | set info [ checkshape result f ] |
14 | |
15 | if { [regexp {The Shape result looks OK} $info] } { |
16 | puts "OK: Splitshape produces valid shape" |
17 | } else { |
18 | puts "Error: Splitshape produces invalid shape" |
19 | } |
20 | |
5747059b |
21 | checkview -display result -2d -path ${imagedir}/${test_image}.png |