Commit | Line | Data |
---|---|---|
d9ca2e0c | 1 | proc CheckIsFeatureRemoved {theFeature types} { |
4f7d41ea | 2 | savehistory rf_hist |
d9ca2e0c | 3 | upvar $theFeature TheFeature |
4 | compound TheFeature TheFeatureC | |
5 | foreach t $types { | |
6 | foreach s [explode TheFeatureC $t] { | |
4f7d41ea | 7 | set log [isdeleted rf_hist $s] |
8 | if {$log != "Deleted."} { | |
d9ca2e0c | 9 | puts "Error: Feature is not removed" |
10 | } | |
11 | } | |
12 | } | |
13 | } |