implemented Storage#purge_type!(t)

CHANGELOG.txt

@@ -3,6 +3,7 @@
 
 == ruote - 2.1.4          not yet released
 
+- implemented Storage#purge_type!(t)
 - Engine#add_service now returning just bound service
 
 

TODO.txt

@@ -169,6 +169,7 @@
 [o] add_branches : pass message to concurrent_iterator like a command expression
 [o] clean up persists present in #apply
 [o] maybe cancel should have a safely / redo_reply thing
+[o] implement Storage#clear!(type)
 
 [ ] exp : exp (restricted form of eval ?)
 [ ] exp : case (is it necessary ?)
@@ -286,5 +287,4 @@
 
 [ ] shell ? irb ? Shell.new(storage)
 [ ] focus on fulldup or json.dup (via fulldup ?)
-[ ] implement Storage#clear!(type)
 

lib/ruote/storage/fs_storage.rb

@@ -82,6 +82,11 @@ def purge!
     def add_type (type)
     end
 
+    def purge_type! (type)
+
+      @cloche.purge_type!(type)
+    end
+
     def dump (type)
 
       s = "=== #{type} ===\n"

lib/ruote/storage/hash_storage.rb

@@ -154,6 +154,11 @@ def add_type (type)
       @h[type] = {}
     end
 
+    def purge_type! (type)
+
+      @h[type] = {}
+    end
+
     def dump (type)
 
       s = "=== #{type} ===\n"

test/unit/ut_17_storage.rb

@@ -134,5 +134,12 @@ def test_put_gone
 
     assert_equal true, @s.put(h)
   end
+
+  def test_purge_type
+
+    @s.purge_type!('dogfood')
+
+    assert_equal 0, @s.get_many('dogfood').size
+  end
 end