kissifer-hash-persistent 0.0.3 → 0.1.1

data/VERSION

@@ -1 +1 @@
-0.0.3
+0.1.1

data/hash-persistent.gemspec

@@ -2,11 +2,11 @@
 
 Gem::Specification.new do |s|
   s.name = %q{hash-persistent}
-  s.version = "0.0.3"
+  s.version = "0.1.1"
 
   s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
   s.authors = ["kissifer"]
-  s.date = %q{2009-05-22}
+  s.date = %q{2009-05-27}
   s.email = %q{tierneydrchris@gmail.com}
   s.extra_rdoc_files = [
     "LICENSE",
@@ -21,10 +21,10 @@ Gem::Specification.new do |s|
      "VERSION",
      "hash-persistent.gemspec",
      "lib/hash-persistent.rb",
-     "lib/hash-persistent/basic.rb",
-     "lib/hash-persistent/counting.rb",
-     "spec/basic_spec.rb",
-     "spec/counting_spec.rb",
+     "lib/hash-persistent/counter.rb",
+     "lib/hash-persistent/resource.rb",
+     "spec/counter_spec.rb",
+     "spec/resource_spec.rb",
      "spec/spec.opts",
      "spec/spec_helper.rb"
   ]
@@ -34,8 +34,8 @@ Gem::Specification.new do |s|
   s.rubygems_version = %q{1.3.3}
   s.summary = %q{Library of base classes to simplify persisting objects in a moneta store}
   s.test_files = [
-    "spec/basic_spec.rb",
-     "spec/counting_spec.rb",
+    "spec/counter_spec.rb",
+     "spec/resource_spec.rb",
      "spec/spec_helper.rb"
   ]
 

data/lib/hash-persistent/counter.rb

@@ -0,0 +1,22 @@
+module HashPersistent  
+  module Counter  
+    def self.included(base)
+      base.extend ClassMethods
+      base.module_eval do
+        @next_key = 0
+        @key_inc_lock = Mutex.new
+      end
+    end
+    
+    module ClassMethods
+      def next_key
+        the_key = nil
+        @key_inc_lock.synchronize do
+          the_key = @next_key.to_s
+          @next_key += 1
+        end
+        the_key
+      end
+    end
+  end
+end

data/lib/hash-persistent/resource.rb

@@ -0,0 +1,43 @@
+module HashPersistent
+  module Resource
+    def self.included(base)
+      base.extend ClassMethods
+      base.module_eval do
+        @store = {}
+        @prefix = ""
+      end
+    end
+    
+    module ClassMethods
+      def persist_to(store, prefix)
+        raise ArgumentError unless store.respond_to?(:has_key?) and prefix.respond_to?(:to_s)
+        @store = store
+        @prefix = prefix
+      end
+    
+      def find(key)
+        @store[@prefix + key]
+      end
+    
+      attr_reader :store, :prefix
+    end
+
+    attr_accessor :key
+
+    def prefix_key
+      self.class.prefix + key
+    end
+
+    def save
+      raise RuntimeError unless key
+      self.class.store[prefix_key] = self
+    end
+
+    def delete
+      raise RuntimeError unless self.class.store.has_key?(prefix_key)
+      self.class.store.delete(prefix_key)
+    end
+  
+  end
+end
+

data/lib/hash-persistent.rb

@@ -1,5 +1,5 @@
 $LOAD_PATH << File.dirname(__FILE__)
 
 require 'rubygems'
-require 'hash-persistent/basic'
-require 'hash-persistent/counting'
+require 'hash-persistent/counter'
+require 'hash-persistent/resource'

data/spec/counter_spec.rb

@@ -0,0 +1,40 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "HashPersistent::Counter" do
+  context "when mixed-in to a class" do
+    before(:each) do
+      class CounterFoo
+        include HashPersistent::Counter
+      end
+    end
+
+    it "should impart a next_key class method" do
+      CounterFoo.respond_to?(:next_key).should be_true
+    end
+
+    it "should supply a new key on each next_key call" do
+      CounterFoo.next_key.should_not == CounterFoo.next_key
+    end
+    
+    it "should be careful when incrementing the key in multi-threaded/process environment" do
+      pending
+    end
+  end
+  
+  context "when mixed-in to more than one class" do
+    before(:each) do
+      class CounterFred
+        include HashPersistent::Counter
+      end
+      class CounterBarney
+        include HashPersistent::Counter
+      end
+    end
+    
+    it "should count independently for each class" do
+      CounterFred.next_key.should == CounterBarney.next_key
+      CounterFred.next_key.should == CounterBarney.next_key
+    end
+  end
+  
+end

data/spec/resource_spec.rb

@@ -0,0 +1,271 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+class ResourceFoo
+  include HashPersistent::Resource
+end
+
+class ResourceFooWithState
+  include HashPersistent::Resource
+  attr_accessor :dummy
+  
+  def ==(other)
+    return self.class == other.class &&
+    self.dummy == other.dummy
+  end
+end
+
+class ResourceFooOnlyUsedOnce
+  include HashPersistent::Resource
+  attr_accessor :dummy
+  
+  def ==(other)
+    return self.class == other.class &&
+    self.dummy == other.dummy
+  end
+end
+
+describe "A class that includes HashPersistent::Resource" do
+  context "(class methods)" do    
+    it "should acquire a persist_to class method" do
+      ResourceFoo.respond_to?(:persist_to).should be_true
+    end
+  end
+  
+  context "(persistence mechanism)" do
+    it "should expect to persist to a hash-like store, with a string-like prefix" do
+      ResourceFoo.persist_to({}, "_prefix")
+    end
+
+    it "should reject a non-hash-like store" do
+      lambda {ResourceFoo.persist_to(1, "_prefix")}.should raise_error(ArgumentError)
+    end
+
+    it "should reject a non-string-like prefix" do
+      lambda {ResourceFoo.persist_to({}, Dummy_NoStringRep.new)}.should raise_error(ArgumentError)
+    end
+  end
+  
+  context "(an instance that has not been saved)" do
+    it "should maintain a key attribute" do
+      ResourceFoo.new.respond_to?(:key).should be_true
+      ResourceFoo.new.respond_to?(:key=).should be_true
+    end
+    
+    it "should respond to a save method" do
+      ResourceFoo.new.respond_to?(:save).should be_true
+    end
+
+    it "should respond to a delete method" do
+      ResourceFoo.new.respond_to?(:delete).should be_true
+    end
+
+    it "should not save unless the key has been explictly set" do
+      lambda{ResourceFoo.new.save}.should raise_error
+    end
+
+    it "should not be deletable, even after a key is set" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      lambda{resource.delete}.should raise_error
+      resource.key = "fred"
+      lambda{resource.delete}.should raise_error
+    end
+    
+    it "should not be findable via its key" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      ResourceFoo.find("fred").should == nil
+      ResourceFoo.find("barney").should == nil
+    end
+  end
+
+  context "(an instance that has been saved)" do
+    it "should be findable via its key" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      ResourceFoo.find("fred").should_not be_nil
+    end
+
+    it "should correctly recover all of its state" do
+      ResourceFooWithState.persist_to(Hash.new, "")
+      resource = ResourceFooWithState.new
+      resource.key = "fred"
+      resource.dummy = ["something random", {}]
+      resource.save
+      resource_dup = resource.dup
+      ResourceFooWithState.find("fred").should == resource_dup
+    end
+
+    it "should be deletable" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      lambda{resource.delete}.should_not raise_error
+    end
+    
+    it "should save a new state when asked" do
+      ResourceFooWithState.persist_to(Hash.new, "")
+      resource = ResourceFooWithState.new
+      resource.key = "fred"
+
+      resource.dummy = ["something random", {}]
+      resource.save
+      resource_dup_1 = resource.dup
+      
+      resource.dummy = ["something else random", 1]
+      resource.save
+      resource_dup_2 = resource.dup
+      
+      ResourceFooWithState.find("fred").should_not == resource_dup_1
+      ResourceFooWithState.find("fred").should     == resource_dup_2
+    end
+  end
+
+  context "(an instance that has been saved and then deleted)" do
+    it "should not be findable via its key" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      resource.delete
+      ResourceFoo.find("fred").should == nil
+    end
+
+    it "should not be deletable" do
+      ResourceFoo.persist_to(Hash.new, "")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      resource.delete
+      lambda{resource.delete}.should raise_error
+    end
+  end
+  
+  context "(use of prefix to namespace keys)" do
+    it "should (transparently) prepend the supplied prefix to the key of the saved instance" do
+      store = Hash.new
+      ResourceFoo.persist_to(store, "a_random_namespace::")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      store.should_not have_key("fred")
+      store.should     have_key("a_random_namespace::fred")
+    end
+
+    it "should find instances when using a namespace, using only the key" do
+      store = Hash.new
+      ResourceFoo.persist_to(store, "a_random_namespace::")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      ResourceFoo.find("fred").should_not == nil
+    end
+
+    it "should not find instances when mistakenly given a namespaced key" do
+      store = Hash.new
+      ResourceFoo.persist_to(store, "a_random_namespace::")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      ResourceFoo.find("a_random_namespace::fred").should == nil
+    end
+
+    it "should correctly delete an instance from the store when using a prefix" do
+      store = Hash.new
+      ResourceFoo.persist_to(store, "a_random_namespace::")
+      resource = ResourceFoo.new
+      resource.key = "fred"
+      resource.save
+      resource.delete
+      ResourceFoo.find("fred").should == nil
+    end
+  end
+
+  context "(use of store)" do
+    it "should correctly delete items from the store" do
+      store = Hash.new
+      ResourceFoo.persist_to(store, "")
+      resource_1 = ResourceFoo.new
+      resource_1.key = "fred"
+      resource_1.save
+
+      resource_2 = ResourceFoo.new
+      resource_2.key = "barney"
+      resource_2.save
+      store.should_not == Hash.new
+      
+      resource_1.delete
+      resource_2.delete
+      store.should == Hash.new
+    end  
+  end
+  
+  context "(use of restricted hash api)" do
+    it "should use only the restricted hash api provided by moneta" do
+      lambda {
+        ResourceFooWithState.persist_to(Dummy_RestrictedHash.new, "prefix::")
+        resource_1 = ResourceFooWithState.new
+        resource_1.key = "fred"
+        resource_1.dummy = ["barney"]
+        resource_1.save
+        ResourceFooWithState.find("fred").delete
+      }.should_not raise_error
+    end  
+  end
+
+  context "(default store)" do
+    it "should function with a vdefault store/prefix if none is supplied" do
+      # This is implicitly tested elsewhere. Which makes this test documentation, I guess
+      resource_1 = ResourceFooOnlyUsedOnce.new
+      resource_1.key = "fred"
+      resource_1.dummy = ["barney"]
+      resource_1.save
+      ResourceFooOnlyUsedOnce.find("fred").should == resource_1.dup
+      lambda {ResourceFooOnlyUsedOnce.find("fred").delete}.should_not raise_error
+    end  
+  end
+
+  context "(multiple classes using module)" do
+    it "should not cross-contaminate classes that include the module" do
+      store_1 = Hash.new
+      ResourceFoo.persist_to(store_1, "")
+      store_2 = Hash.new
+      ResourceFooWithState.persist_to(store_2, "prefix::")
+
+      store_1.should == Hash.new
+      store_2.should == Hash.new
+      
+      resource_1 = ResourceFoo.new
+      resource_1.key = "1"
+      resource_1.save
+      
+      store_1.should_not == Hash.new
+      store_2.should == Hash.new
+      store_1.should have_key("1")
+      store_1.should_not have_key("prefix::1")
+
+      resource_1.delete
+      
+      store_1.should == Hash.new
+      store_2.should == Hash.new
+      
+      resource_2 = ResourceFooWithState.new
+      resource_2.key = "2"
+      resource_2.save
+
+      store_1.should == Hash.new
+      store_2.should_not == Hash.new
+      store_2.should have_key("prefix::2")
+      store_2.should_not have_key("2")
+
+      resource_2.delete
+      
+      store_1.should == Hash.new
+      store_2.should == Hash.new      
+    end
+  end
+end

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: kissifer-hash-persistent
 version: !ruby/object:Gem::Version 
-  version: 0.0.3
+  version: 0.1.1
 platform: ruby
 authors: 
 - kissifer
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2009-05-22 00:00:00 -07:00
+date: 2009-05-27 00:00:00 -07:00
 default_executable: 
 dependencies: []
 
@@ -31,10 +31,10 @@ files:
 - VERSION
 - hash-persistent.gemspec
 - lib/hash-persistent.rb
-- lib/hash-persistent/basic.rb
-- lib/hash-persistent/counting.rb
-- spec/basic_spec.rb
-- spec/counting_spec.rb
+- lib/hash-persistent/counter.rb
+- lib/hash-persistent/resource.rb
+- spec/counter_spec.rb
+- spec/resource_spec.rb
 - spec/spec.opts
 - spec/spec_helper.rb
 has_rdoc: false
@@ -64,6 +64,6 @@ signing_key:
 specification_version: 3
 summary: Library of base classes to simplify persisting objects in a moneta store
 test_files: 
-- spec/basic_spec.rb
-- spec/counting_spec.rb
+- spec/counter_spec.rb
+- spec/resource_spec.rb
 - spec/spec_helper.rb

data/lib/hash-persistent/basic.rb

@@ -1,36 +0,0 @@
-module HashPersistent
-  class Basic
-    class << self
-      @@store = {}
-      @@prefix = ""
-      
-      def setup(store, prefix)
-        raise ArgumentError unless store.respond_to?(:has_key?) and prefix.respond_to?(:to_s)
-        @@store = store
-        @@prefix = prefix
-      end
-      
-      def find(key)
-        @@store[@@prefix + key]
-      end
-    end
-    
-    attr_reader :key
-    
-    def initialize(key)
-      raise RuntimeError if @@store.has_key?(key)
-      @key = key
-      @@store[@@prefix + @key] = self
-    end
-
-    def delete
-      raise RuntimeError unless @@store.has_key?(@@prefix + @key)
-      @@store.delete(@@prefix + @key)
-    end
-
-    def update
-      raise RuntimeError unless @@store.has_key?(@@prefix + @key)
-      @@store[@@prefix + @key] = self
-    end    
-  end
-end

data/lib/hash-persistent/counting.rb

@@ -1,40 +0,0 @@
-module HashPersistent
-  class Counting
-    class << self
-      @@store = {}
-      @@prefix = ""
-      @@next_key = 0
-      @@next_key_inc_lock = Mutex.new
-
-      def setup(store, prefix)
-        raise ArgumentError unless store.respond_to?(:has_key?) and prefix.respond_to?(:to_s)
-        @@store = store
-        @@prefix = prefix
-      end
-
-      def find(key)
-        @@store[@@prefix + key]
-      end
-    end
-
-    attr_reader :key
-
-    def initialize
-      @@next_key_inc_lock.synchronize do
-        @key = @@next_key.to_s
-        @@next_key += 1
-      end
-      @@store[@@prefix + @key] = self
-    end
-
-    def delete
-      raise RuntimeError unless @@store.has_key?(@@prefix + @key)
-      @@store.delete(@@prefix + @key)
-    end
-
-    def update
-      raise RuntimeError unless @@store.has_key?(@@prefix + @key)
-      @@store[@@prefix + @key] = self
-    end    
-  end
-end

data/spec/basic_spec.rb

@@ -1,188 +0,0 @@
-require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
-
-describe "HashPersistent::Basic" do
-  context "(before use)" do
-    it "should accept a hash-like store, and a string-like prefix, as class initialisers" do
-      HashPersistent::Basic.setup({}, "_prefix")
-    end
-    
-    it "should reject a non-hash-like store" do
-      lambda {HashPersistent::Basic.setup(1, "_prefix")}.should raise_error(ArgumentError)
-    end
-
-    it "should reject a non-string-like prefix" do
-      lambda {HashPersistent::Basic.setup({}, Dummy_NoStringRep.new)}.should raise_error(ArgumentError)
-    end
-  end
-  
-  context "(creating objects)" do
-    it "should allow not objects to be created without a key" do
-      HashPersistent::Basic.setup({}, "")
-      lambda{HashPersistent::Basic.new}.should raise_error
-    end
-
-    it "should allow objects to be created with a key" do
-      HashPersistent::Basic.setup({}, "")
-      lambda{HashPersistent::Basic.new("a_key")}.should_not raise_error
-    end
-
-    it "should not allow objects to be created with a duplicate key" do
-      HashPersistent::Basic.setup({}, "")
-      HashPersistent::Basic.new("a_key")
-      lambda{HashPersistent::Basic.new("a_key")}.should raise_error
-    end
-
-    it "should return an object after creation" do
-      HashPersistent::Basic.setup({}, "")
-      new_object = HashPersistent::Basic.new("a_key")
-      new_object.class.should == HashPersistent::Basic
-      new_object.key.should == "a_key"
-    end
-  end
-  
-  context "(retrieving objects)" do
-    it "should not return an object when no objects have been created" do
-      HashPersistent::Basic.setup({}, "")
-      HashPersistent::Basic.find("a_key").should be_nil
-    end
-
-    it "should return created objects when given the correct key" do
-      HashPersistent::Basic.setup({}, "")
-      HashPersistent::Basic.new("a_key")
-      new_object = HashPersistent::Basic.find("a_key")
-      new_object.class.should == HashPersistent::Basic
-      new_object.key.should == "a_key"
-    end
-
-    it "should not return an object when given an incorrect key" do
-      HashPersistent::Basic.setup({}, "")
-      HashPersistent::Basic.new("a_key")
-      HashPersistent::Basic.find("another_key").should be_nil
-    end
-  end
-  
-  context "(deleting objects)" do
-    it "should delete an object when asked" do
-      HashPersistent::Basic.setup({}, "")
-      new_object = HashPersistent::Basic.new("a_key")
-      new_object.delete
-      HashPersistent::Basic.find("a_key").should be_nil
-    end
-
-    it "should not allow an object to be deleted twice" do
-      HashPersistent::Basic.setup({}, "")
-      new_object = HashPersistent::Basic.new("a_key")
-      new_object.delete
-      lambda{new_object.delete}.should raise_error
-    end
-  end
-  
-  context "(key namespacing)" do
-    it "should (transparently) prepend the supplied prefix to the key of the created object" do
-      store = {}
-      HashPersistent::Basic.setup(store, "a_namespace::")
-      new_object = HashPersistent::Basic.new("a_key")
-      new_object.class.should == HashPersistent::Basic
-      new_object.key.should == "a_key"
-      store.should_not have_key("a_key")
-      store.should     have_key("a_namespace::a_key")
-    end
-
-    it "should correctly find objects when given a namespace" do
-      HashPersistent::Basic.setup({}, "a_namespace::")
-      HashPersistent::Basic.new("a_key")
-      new_object = HashPersistent::Basic.find("a_key")
-      new_object.should_not be_nil
-      new_object.key.should == "a_key"
-    end
-
-    it "should not find objects when mistakenly given a namespaced key" do
-      HashPersistent::Basic.setup({}, "a_namespace::")
-      HashPersistent::Basic.new("a_key")
-      HashPersistent::Basic.find("a_namespace::a_key").should be_nil
-    end
-    
-    it "should correctly delete objects when given a namespace" do
-      store = {}
-      HashPersistent::Basic.setup(store, "a_namespace::")
-      new_object = HashPersistent::Basic.new("a_key")
-      new_object.delete
-      
-      HashPersistent::Basic.find("a_key").should be_nil
-      store.should_not have_key("a_namespace::a_key")
-    end
-  end
-  
-
-  class Dummy_BasicDerivedClass < HashPersistent::Basic
-    attr_accessor :dummy
-
-    def initialize(key, dummy)
-      super(key)
-      @dummy = dummy
-    end
-  end
-
-  context "(derived classes)" do
-    it "should correctly store the full member list of a derived class" do
-      Dummy_BasicDerivedClass.setup({}, "")
-      created_dummy = Dummy_BasicDerivedClass.new("a_key", 123)
-      created_dummy.key.should == "a_key"
-      created_dummy.dummy.should == 123
-
-      retrieved_dummy = Dummy_BasicDerivedClass.find("a_key")
-      retrieved_dummy.key.should == "a_key"
-      retrieved_dummy.dummy.should == 123
-    end
-  end  
-
-  context "(updating objects)" do
-    it "should correctly update members of a derived class" do
-      Dummy_BasicDerivedClass.setup({}, "prefix::")
-      created_dummy = Dummy_BasicDerivedClass.new("a_key", 123)
-      
-      duplicated_dummy = created_dummy.dup
-      duplicated_dummy.dummy = 456
-      duplicated_dummy.update
-
-      retrieved_dummy = Dummy_BasicDerivedClass.find("a_key")
-      retrieved_dummy.dummy.should_not == 123
-      retrieved_dummy.dummy.should     == 456
-    end
-
-    it "should not allow a deleted object to update" do
-      Dummy_BasicDerivedClass.setup({}, "prefix::")
-      created_dummy = Dummy_BasicDerivedClass.new("a_key", 123)
-      created_dummy.delete
-      created_dummy.dummy = 456
-      lambda{created_dummy.update}.should raise_error
-    end
-  end
-
-  context "(restricted hash api)" do
-    it "should use only the restricted hash api provided by moneta" do
-      lambda {
-        Dummy_BasicDerivedClass.setup(Dummy_RestrictedHash.new, "prefix::")
-        created_dummy = Dummy_BasicDerivedClass.new("a_key", 123)
-
-        duplicated_dummy = created_dummy.dup
-        duplicated_dummy.dummy = 456
-        duplicated_dummy.update
-
-        retrieved_dummy = Dummy_BasicDerivedClass.find("a_key")
-        retrieved_dummy.delete
-      }.should_not raise_error
-    end
-  end
-
-  context "(concurrent access)" do
-    it "should be careful doing various operations" do
-      # What to test here? Duplicate in the other similar classes
-      # Test: Update, update vs delete, delete vs find, update vs find
-      # Eugh, how best to do this? Options:
-      # Subclass Hash and slow the set/get methods down?
-      # Monkey patch the Mutex class to add lock/unlock callbacks?
-      pending
-    end
-  end
-end

data/spec/counting_spec.rb

@@ -1,196 +0,0 @@
-require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
-
-describe "HashPersistent::Counting" do
-  context "(before use)" do
-    it "should accept a hash-like store, and a string-like prefix, as class initialisers" do
-      HashPersistent::Counting.setup({}, "_prefix")
-    end
-
-    it "should reject a non-hash-like store" do
-      lambda {HashPersistent::Counting.setup(1, "_prefix")}.should raise_error(ArgumentError)
-    end
-
-    it "should reject a non-string-like prefix" do
-      lambda {HashPersistent::Counting.setup({}, Dummy_NoStringRep.new)}.should raise_error(ArgumentError)
-    end
-  end
-  
-  context "(creating objects)" do
-    it "should not allow objects to be created with a key" do
-      HashPersistent::Counting.setup({}, "")
-      lambda{HashPersistent::Counting.new("a_key")}.should raise_error
-    end
-
-    it "should allow objects to be created without a key" do
-      HashPersistent::Counting.setup({}, "")
-      lambda{HashPersistent::Counting.new}.should_not raise_error
-    end
-
-    it "should return an object after creation" do
-      HashPersistent::Counting.setup({}, "")
-      new_object = HashPersistent::Counting.new
-      new_object.class.should == HashPersistent::Counting
-    end
-
-    it "generate unique keys for each object creation" do
-      HashPersistent::Counting.setup({}, "")
-      keys = []
-      lots = 100 # How many is enough here? We just have to pick a number I guess...
-      lots.times do
-        keys << HashPersistent::Counting.new.key
-      end
-      keys.uniq.should == keys
-    end
-  end
-  
-  context "(retrieving objects)" do
-    it "should not return an object when no objects have been created" do
-      HashPersistent::Counting.setup({}, "")
-      HashPersistent::Counting.find("1").should be_nil
-    end
-
-    it "should return created objects when given the correct key" do
-      HashPersistent::Counting.setup({}, "")
-      key = HashPersistent::Counting.new.key
-      new_object = HashPersistent::Counting.find(key)
-      new_object.class.should == HashPersistent::Counting
-      new_object.key.should == key
-    end
-
-    it "should not return an object when given an incorrect key" do
-      HashPersistent::Counting.setup({}, "")
-      key = HashPersistent::Counting.new.key.to_s + "_not_a_valid_key"
-      HashPersistent::Counting.find(key).should be_nil
-    end
-  end
-  
-  context "(deleting objects)" do
-    it "should delete an object when asked" do
-      HashPersistent::Counting.setup({}, "")
-      new_object = HashPersistent::Counting.new
-      key = new_object.key
-      new_object.delete
-      HashPersistent::Counting.find(key).should be_nil
-    end
-    
-    it "should not allow an object to be deleted twice" do
-      HashPersistent::Counting.setup({}, "")
-      new_object = HashPersistent::Counting.new
-      new_object.delete
-      lambda{new_object.delete}.should raise_error
-    end
-  end
-  
-  context "(key namespacing)" do
-    it "should (transparently) prepend the supplied prefix to the key of the created object" do
-      store = {}
-      HashPersistent::Counting.setup(store, "a_namespace::")
-      new_object = HashPersistent::Counting.new
-      new_object.class.should == HashPersistent::Counting
-      store.should_not have_key("#{new_object.key}")
-      store.should_not have_key(new_object.key)
-      store.should     have_key("a_namespace::#{new_object.key}")
-    end
-
-    it "should correctly find objects when given a namespace" do
-      HashPersistent::Counting.setup({}, "a_namespace::")
-      key = HashPersistent::Counting.new.key
-      new_object = HashPersistent::Counting.find(key)
-      new_object.should_not be_nil
-      new_object.key.should == key
-    end
-
-    it "should not find objects when mistakenly given a namespaced key" do
-      HashPersistent::Counting.setup({}, "a_namespace::")
-      key = HashPersistent::Counting.new
-      HashPersistent::Counting.find("a_namespace::#{key}").should be_nil
-    end
-    
-    it "should correctly delete objects when given a namespace" do
-      store = {}
-      HashPersistent::Counting.setup(store, "a_namespace::")
-      new_object = HashPersistent::Counting.new
-      key = new_object.key
-      new_object.delete
-      
-      HashPersistent::Counting.find(key).should be_nil
-      store.should_not have_key("a_namespace::#{key}")
-    end
-  end
-  
-
-  class Dummy_CountingDerivedClass < HashPersistent::Counting
-    attr_accessor :dummy
-
-    def initialize(dummy)
-      super()
-      @dummy = dummy
-    end
-  end
-
-  context "(derived classes)" do
-    it "should correctly store the full member list of a derived class" do
-      Dummy_CountingDerivedClass.setup({}, "")
-      created_dummy = Dummy_CountingDerivedClass.new(123)
-      created_dummy.dummy.should == 123
-
-      retrieved_dummy = Dummy_CountingDerivedClass.find(created_dummy.key)
-      retrieved_dummy.key.should == created_dummy.key
-      retrieved_dummy.dummy.should == 123
-    end
-  end  
-
-  context "(updating objects)" do
-    it "should correctly update members of a derived class" do
-      Dummy_CountingDerivedClass.setup({}, "prefix::")
-      created_dummy = Dummy_CountingDerivedClass.new(123)
-      key = created_dummy.key
-      
-      duplicated_dummy = created_dummy.dup
-      duplicated_dummy.dummy = 456
-      duplicated_dummy.update
-      
-      retrieved_dummy = Dummy_CountingDerivedClass.find(key)
-      retrieved_dummy.dummy.should_not == 123
-      retrieved_dummy.dummy.should     == 456
-      
-      retrieved_dummy.key.should == key
-    end
-    
-    it "should not allow a deleted object to update" do
-      Dummy_CountingDerivedClass.setup({}, "prefix::")
-      created_dummy = Dummy_CountingDerivedClass.new(123)
-      created_dummy.delete
-      created_dummy.dummy = 456
-      lambda{created_dummy.update}.should raise_error
-    end
-  end
-
-  context "(restricted hash api)" do
-    it "should use only the restricted hash api provided by moneta" do
-      lambda {
-        Dummy_CountingDerivedClass.setup(Dummy_RestrictedHash.new, "prefix::")
-        created_dummy = Dummy_CountingDerivedClass.new(123)
-        key = created_dummy.key
-
-        duplicated_dummy = created_dummy.dup
-        duplicated_dummy.dummy = 456
-        duplicated_dummy.update
-
-        retrieved_dummy = Dummy_CountingDerivedClass.find(key)
-        retrieved_dummy.delete
-      }.should_not raise_error
-    end
-  end  
-
-  context "(concurrent access)" do
-    it "should be careful incrementing the auto-generated key" do
-      # TODO. Subclass Hash, adda delay into the []= method (or another one?)
-      # Kick off two threads and create a bunch of objects
-      # Collect keys into arrays, merge, sort and compare for equality with
-      # an array of sequential numbers the same size as the number of objects
-      # we created
-      pending
-    end
-  end  
-end