strokedb 0.0.2.1 → 0.0.2.2

data/spec/lib/strokedb/document/meta_meta_spec.rb

@@ -0,0 +1,30 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Meta meta" do
+  before(:each) do
+    setup_default_store
+    # @mem_storage = StrokeDB::MemoryStorage.new
+    # StrokeDB.stub!(:default_store).and_return(StrokeDB::Store.new(:storage => @mem_storage))
+  end
+
+  it "should have nsurl http://strokedb.com/" do
+    Meta.document.nsurl.should == STROKEDB_NSURL
+  end
+
+end
+
+describe "Meta meta instantiation with block specified" do
+  
+  before(:each) do
+    # @mem_storage = StrokeDB::MemoryStorage.new
+    # StrokeDB.stub!(:default_store).and_return(StrokeDB::Store.new(:storage => @mem_storage))
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    setup_default_store
+    @meta = Meta.new(:name => "SomeName") { def result_of_evaluation ; end  } 
+  end
+  
+  it "should evalutate block" do
+    @meta.new.should respond_to(:result_of_evaluation)
+  end
+  
+end

data/spec/lib/strokedb/document/meta_spec.rb

@@ -0,0 +1,435 @@
+require File.dirname(__FILE__) + '/spec_helper'
+
+describe "Meta module", :shared => true do
+
+  it "should be able to instantiate new Document which is also SomeName" do
+    obj = SomeName.new
+    obj.should be_a_kind_of(Document)
+    obj.should be_a_kind_of(SomeName)
+  end
+  
+  it "should be able to instantiate new Document and save it" do
+    new_doc = mock("new doc")
+    new_doc.should_receive(:save!)
+    SomeName.should_receive(:new).and_return(new_doc)
+    obj = SomeName.create!
+  end
+  
+  it "should have corresponding document" do
+    doc = SomeName.document
+    doc.should_not be_nil
+    doc.should be_a_kind_of(Meta)
+  end
+
+  it "should find document instead of creating it" do
+    doc = SomeName.document
+    10.times {|i| SomeName.document.uuid.should == doc.uuid }
+  end
+
+  it "should save new document version if it was updated" do
+    doc = SomeName.document    
+    version = doc.version.clone
+    new_doc = nil
+    2.times do |i|
+      Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+      SomeName = Meta.new(:description => "Something")  
+      new_doc = SomeName.document
+    end
+    new_doc.uuid.should == doc.uuid
+    new_doc.previous_version.should_not be_nil
+    new_doc.previous_version.should == version
+    new_doc.version.should_not == new_doc.previous_version
+    new_doc.description.should == "Something"
+  end
+
+  it "should search for specified UUID with meta reference merged in" do
+    a = SomeName.create!
+    SomeName.find(a.uuid).should == a
+  end
+  
+  it "should search for specified slots with meta reference merged in" do
+    a = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    b = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    c = SomeName.create!(:slot1 => 2, :slot2 => 2)
+
+    SomeName.find(:slot1 => 1, :slot2 =>2).sort_by {|d| d.uuid}.should == [a,b].sort_by {|d| d.uuid}
+  end
+  
+  it "aliases Meta#all to Meta#find" do
+    a = SomeName.create!(:slot1 => 3)
+    SomeName.all(:slot1 => 3).should == SomeName.find(:slot1 => 3)
+  end
+
+  it "should raise ArgumentError unless args size is 1 or 2" do
+    a = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    lambda { SomeName.find("foo","bar","foobar") }.should raise_error(ArgumentError)
+  end
+  
+  it "should find first document for specified slots with meta reference merged in on #find_or_create" do
+    a = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    b = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    c = SomeName.create!(:slot1 => 2, :slot2 => 2)
+
+    search = SomeName.find_or_create(:slot1 => 1, :slot2 =>2)
+    (search == a || search == b).should be_true
+  end
+
+  it "should create document for specified slots with meta reference merged in on #find_or_create if such document was not found" do
+    a = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    b = SomeName.create!(:slot1 => 1, :slot2 => 2)
+    c = SomeName.create!(:slot1 => 2, :slot2 => 2)
+    
+    search = SomeName.find_or_create(:slot1 => 3, :slot2 =>2)
+    search.slot1.should == 3
+    search.should_not be_new
+  end
+  
+end
+
+describe "Meta module with name" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    SomeName = Meta.new
+  end
+  
+  it "should have document's UUID v5 based on nsurl and name" do
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    SomeName = Meta.new(:nsurl => "http://some/")
+    SomeName.document.uuid.should == Util.sha1_uuid('meta:http://some/#SomeName')
+  end
+
+  it "should have specified UUID if it was specified" do
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    uuid = Util.random_uuid
+    SomeName = Meta.new(:nsurl => "http://some/", :uuid => uuid)
+    SomeName.document.uuid.should == uuid
+  end
+
+  it_should_behave_like "Meta module"
+
+end
+
+describe "Meta module without name" do
+    
+  before(:each) do
+    setup_default_store
+    setup_index
+    
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    @some_meta = Meta.new(:nsurl => "http://some/")
+  end
+  
+  it "should not be able to create a document" do
+    lambda do
+      @some_meta.document
+    end.should raise_error(ArgumentError)
+  end
+end
+
+
+describe "Meta module without constant definition" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+    @some_name = Meta.new(:name => 'SomeName') do
+      def some
+      end
+    end
+  end
+  
+  it "should not set respective constant" do
+    defined?(SomeName).should be_nil
+  end
+  
+  it "should have its name constantizeable anyway" do
+    Meta.resolve_uuid_name("","SomeName").constantize.should == @some_name
+  end
+
+  it "should be loaded into document on its load" do
+    doc = @some_name.create!.reload
+    doc.should respond_to(:some)
+  end
+
+end
+
+describe "Meta module within no module" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+    
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+  end
+  
+  it "should use Module.nsurl by default" do
+    Module.nsurl "test"
+    SomeName = Meta.new
+    SomeName.document.nsurl.should == Module.nsurl
+    Module.nsurl ''
+  end
+  
+  it "should not use Module.nsurl if nsurl is specified" do
+    Module.nsurl "test"
+    SomeName = Meta.new(:nsurl => 'passed')
+    SomeName.document.nsurl.should == 'passed'
+    Module.nsurl ''
+  end
+  
+end
+
+
+describe "Meta module within module" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+    module A
+      nsurl "some url"
+    end
+    A.send!(:remove_const,'SomeName') if defined?(A::SomeName)
+  end
+  
+  it "should use Module.nsurl by default" do
+    module A
+      SomeName = Meta.new
+    end
+    A::SomeName.document.nsurl.should == A.nsurl
+  end
+  
+  it "should not use Module.nsurl if nsurl is specified" do
+    module A
+      SomeName = Meta.new(:nsurl => "nsurl")
+    end
+    A::SomeName.document.nsurl.should == "nsurl"
+  end
+  
+end
+
+describe "Combined meta module" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+    
+    Object.send!(:remove_const,'User') if defined?(User)
+    Object.send!(:remove_const,'Buyer') if defined?(Buyer)
+    Object.send!(:remove_const,'Seller') if defined?(Seller)
+    
+    User = Meta.new(:x => 1)
+    Buyer = Meta.new(:x => 2)
+    Seller = Meta.new(:y => 3)
+  end
+
+  it "should initialize Document with all metas" do
+    d = (User+Buyer+Seller).new
+    d[:meta].should == [User.document,Buyer.document,Seller.document]
+  end
+
+  it "should be able to find respective documents" do
+    d0 = User.create!
+    User.find.should == [d0]
+    d1 = (User+Buyer).create!
+    (User+Buyer).find.should == [d1]
+    d2 = (User+Buyer+Seller).create!
+    (User+Buyer+Seller).find.should == [d2]
+  end
+  
+  it "should merge #document" do
+    (User+Buyer+Seller).document.x.should == 2
+    (User+Buyer+Seller).document.y.should == 3
+  end
+  
+  it "should make merged #document immutable" do
+    (User+Buyer+Seller).document.should be_a_kind_of(ImmutableDocument)
+  end
+  
+  it "should raise error if trying to Meta + Document" do
+    user = User.create!
+    lambda { baddoc = (Buyer+user).create! }.should raise_error(RuntimeError)
+  end
+    
+end
+
+describe "ImplementsSomeName with implements SomeName meta" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    SomeName = Meta.new(:some_slot => 'some_value') do
+      def some_name_meta
+      end
+    end
+    Object.send!(:remove_const,'ImplementsSomeName') if defined?(ImplementsSomeName)
+    ImplementsSomeName = Meta.new(:some_another_slot => 'some_another_value') do
+      def implements_some_name_meta
+      end
+      implements SomeName
+    end
+  end
+
+  it "should create a document which is both SomeName and ImplementsSomeName" do
+    doc = ImplementsSomeName.create!.reload
+    doc.should be_a_kind_of(SomeName)
+    doc.should be_a_kind_of(ImplementsSomeName)
+  end
+
+  it "should have SomeName's slots merged in" do
+    ImplementsSomeName.document.slotnames.should include('some_another_slot')
+    ImplementsSomeName.document.some_another_slot.should == "some_another_value"
+    ImplementsSomeName.document.slotnames.should include('some_slot')
+    ImplementsSomeName.document.some_slot.should == "some_value"
+  end
+  
+  it "should not share the same uuid with SomeName" do
+    ImplementsSomeName.document.uuid.should_not == SomeName.document.uuid
+  end
+  
+  it "should create document that responds both to #some_name_meta and #implements_some_name_meta" do
+    doc = ImplementsSomeName.create!.reload
+    doc.should respond_to(:some_name_meta)
+    doc.should respond_to(:implements_some_name_meta)
+  end
+  
+  it "should preserve its name" do
+    ImplementsSomeName.name.should == "ImplementsSomeName"
+  end
+  
+  it "should reference implemented meta" do
+    ImplementsSomeName.document.implements_metas.should == [SomeName.document]
+  end
+  
+  
+end
+
+describe "ImplementsSomeName with multiple implements" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    SomeName = Meta.new(:some_slot => 'some_value') do
+      def some_name_meta
+      end
+    end
+    Object.send!(:remove_const,'SomeName1') if defined?(SomeName1)
+    SomeName1 = Meta.new(:some_slot1 => 'some_value1') do
+      def some_name_meta1
+      end
+    end
+    Object.send!(:remove_const,'ImplementsSomeName') if defined?(ImplementsSomeName)
+    ImplementsSomeName = Meta.new(:some_another_slot => 'some_another_value') do
+      def implements_some_name_meta
+      end
+      implements SomeName
+      implements SomeName1
+    end
+  end
+
+  it "should create a document which is both SomeName, SomeName1,  and ImplementsSomeName" do
+    doc = ImplementsSomeName.create!.reload
+    doc.should be_a_kind_of(SomeName)
+    doc.should be_a_kind_of(SomeName1)
+    doc.should be_a_kind_of(ImplementsSomeName)
+  end
+
+  it "should have SomeName's and SomeName1's slots merged in" do
+    ImplementsSomeName.document.slotnames.should include('some_another_slot')
+    ImplementsSomeName.document.some_another_slot.should == "some_another_value"
+    ImplementsSomeName.document.slotnames.should include('some_slot')
+    ImplementsSomeName.document.some_slot.should == "some_value"
+    ImplementsSomeName.document.slotnames.should include('some_slot1')
+    ImplementsSomeName.document.some_slot1.should == "some_value1"
+
+  end
+  
+  it "should not share the same uuid with either SomeName or SomeName1" do
+    ImplementsSomeName.document.uuid.should_not == SomeName.document.uuid
+    ImplementsSomeName.document.uuid.should_not == SomeName1.document.uuid
+  end
+  
+  it "should create document that responds both to #some_name_meta, #some_name_meta1, #implements_some_name_meta" do
+    doc = ImplementsSomeName.create!.reload
+    doc.should respond_to(:some_name_meta)
+    doc.should respond_to(:some_name_meta1)
+    doc.should respond_to(:implements_some_name_meta)
+  end
+  
+  it "should preserve its name" do
+    ImplementsSomeName.name.should == "ImplementsSomeName"
+  end
+  
+  it "should reference implemented metas" do
+    ImplementsSomeName.document.implements_metas.to_set.should == [SomeName.document,SomeName1.document].to_set
+  end
+  
+end
+
+describe "Meta#named" do
+  
+  before(:each) do
+    setup_default_store
+    setup_index
+    Object.send!(:remove_const,'SomeName') if defined?(SomeName)
+    SomeName = Meta.new
+  end
+
+  it "with (name) should create named document with this meta if it does not exist" do
+    doc = SomeName.named("hello")
+    doc.should_not be_nil
+    doc.should be_a_kind_of(Document)
+    doc.should be_a_kind_of(SomeName)
+    doc.should_not be_new
+    doc.versions.all.should have(1).item
+  end
+
+  it "with (name, slots hash) should create named document with this meta if it does not exist" do
+    doc = SomeName.named("hello", :some_slot => 1, :another_slot => "2")
+    doc.should_not be_nil
+    doc.should be_a_kind_of(Document)
+    doc.should be_a_kind_of(SomeName)
+    doc.should_not be_new
+    doc.versions.all.should have(1).item
+    doc.some_slot.should == 1
+    doc.another_slot.should == "2"
+  end
+  
+  it "with (name) should find named document with this meta if it does exist" do
+    doc = SomeName.named("hello")
+    SomeName.named("hello").should == doc
+  end
+
+  it "with (name, slots hash) should find named document with this meta if it does exist" do
+    doc = SomeName.named("hello", :some_slot => 1, :another_slot => "2")
+    SomeName.named("hello", :some_slot => 1, :another_slot => "2").should == doc
+  end
+
+  it "with (name, slots hash) should find and updated named document with this meta if it does exist but has no such slot pairs" do
+    doc = SomeName.named("hello", :some_slot => 1)
+    new_doc = SomeName.named("hello", :some_slot => 1, :another_slot => "2")
+    new_doc.should_not == doc
+    new_doc.versions.previous.should == doc
+    new_doc.another_slot.should == "2"
+    new_doc = SomeName.named("hello", :some_slot => 2, :another_slot => "2")
+    new_doc.some_slot.should == 2
+  end
+  
+  it "should be able to accept store as a first argument" do
+    doc = SomeName.named("hello")
+    SomeName.named(StrokeDB.default_store,"hello").should == doc
+  end
+  
+  it "should pass block to a document that was not created yet" do
+    blk = Proc.new {}
+    doc = SomeName.named("hello",&blk)
+    doc.instance_variable_get(:@initialization_block).should == blk
+  end
+  
+end