checknbshapes result -vertex 8 -edge 12 -wire 6 -face 6 -shell 1 -solid 1
CheckIsFeatureRemoved features {v e f}
+# get history of the operation
+savehistory rf_hist
+
# check modification of the top face
-rfmodified m5 s_5
+modified m5 rf_hist s_5
checkprops m5 -s 1102.76
checknbshapes m5 -vertex 4 -edge 4 -wire 1 -face 1
# check modification of the bottom face
-rfmodified m3 s_3
+modified m3 rf_hist s_3
checkprops m3 -equal m5
checknbshapes m5 -vertex 4 -edge 4 -wire 1 -face 1
# check modification of the side faces
-rfmodified m10 s_10
-rfmodified m14 s_14
+modified m10 rf_hist s_10
+modified m14 rf_hist s_14
if {![regexp "same shapes" [compare m10 m14]]} {
puts "Error: incorrect feature removal"
checknbshapes m10 -vertex 4 -edge 4 -wire 1 -face 1
-rfmodified m22 s_22
+modified m22 rf_hist s_22
checkprops m22 -equal s_22
-rfmodified m9 s_9
-rfmodified m23 s_23
+modified m9 rf_hist s_9
+modified m23 rf_hist s_23
if {![regexp "same shapes" [compare m9 m23]]} {
puts "Error: incorrect feature removal"
checknbshapes m9 -vertex 4 -edge 4 -wire 1 -face 1
-rfmodified m15 s_15
-rfmodified m21 s_21
+modified m15 rf_hist s_15
+modified m21 rf_hist s_21
if {![regexp "same shapes" [compare m15 m21]]} {
puts "Error: incorrect feature removal"