OCCT

restore [locate_data_file bug29481_ex1.brep] s
explode s f

removefeatures result s s_4
checkshape result
checkprops result -s 462.815 -v 195.248 -deps 1.e-7
checknbshapes result -vertex 30 -edge 47 -wire 22 -face 19 -shell 1 -solid 1
CheckIsFeatureRemoved s_4 {v e f}

# get history of the operation
savehistory rf_hist

# check modification of the top face
modified m1 rf_hist s_1
checkprops m1 -s 169.122
checknbshapes m1 -vertex 11 -edge 11 -wire 3 -face 1

# check modification of the side faces
modified m3 rf_hist s_3
modified m5 rf_hist s_5

if {![regexp "same shapes" [compare m3 m5]]} {
  puts "Error: incorrect feature removal"
}

checkprops m3 -s 9.75
checknbshapes m3 -vertex 6 -edge 6 -wire 1 -face 1

explode s_3 e
explode s_5 e
modified m3_4 rf_hist s_3_4
modified m5_2 rf_hist s_5_2

if {![regexp "same shapes" [compare m3_4 m5_2]]} {
  puts "Error: incorrect feature removal"
}

checkprops m3_4 -l 9.5

checkview -display result -2d -path ${imagedir}/${test_image}.png