mongo_doc 0.3.2 → 0.4.0

data/spec/associations_spec.rb

@@ -0,0 +1,230 @@
+require 'spec_helper'
+
+describe "MongoDoc::Associations" do
+
+  context ".embed" do
+    class TestDoc
+      include MongoDoc::Document
+
+      embed :sub_doc
+    end
+
+    class SubDoc
+      include MongoDoc::Document
+
+      attr_accessor :data
+    end
+
+    class TestHasOne
+      include MongoDoc::Document
+
+      has_one :sub_doc
+    end
+
+    let(:subdoc) { SubDoc.new }
+    let(:doc) { TestDoc.new(:sub_doc => subdoc) }
+
+    it "uses a proxy" do
+      MongoDoc::Associations::DocumentProxy.should === doc.sub_doc
+    end
+
+    it ".has_one is an alias for embed" do
+      MongoDoc::Associations::DocumentProxy.should === TestHasOne.new(:sub_doc => SubDoc.new).sub_doc
+    end
+
+    it "sets the subdocuments parent to the proxy" do
+      doc.sub_doc.should == subdoc._parent
+    end
+
+    it "set the subdocuments root" do
+      doc.should == subdoc._root
+    end
+
+    context "validations" do
+      class EmbedValidationTest
+        include MongoDoc::Document
+
+        attr_accessor :data
+        validates_presence_of :data
+      end
+
+      it "cascades validations down" do
+        invalid = EmbedValidationTest.new
+        TestDoc.new(:sub_doc => invalid).should have(1).error_on(:sub_doc)
+      end
+    end
+  end
+
+  context ".embed_many" do
+
+    class SubEmbedManyDoc
+      include MongoDoc::Document
+
+      attr_accessor :data
+    end
+
+    class TestEmbedManyDoc
+      include MongoDoc::Document
+
+      embed_many :sub_docs, :class_name => 'SubEmbedManyDoc'
+    end
+
+    class TestEmbedManyDoc2
+      include MongoDoc::Document
+
+      embed_many :sub_docs, :class_name => :sub_embed_many_doc
+    end
+
+    class TestImplicitEmbedManyDoc
+      include MongoDoc::Document
+
+      embed_many :sub_embed_many_docs
+    end
+
+    class TestHasManyDoc
+      include MongoDoc::Document
+
+      has_many :sub_docs, :class_name => 'SubEmbedManyDoc'
+    end
+
+    let(:subdoc) { SubEmbedManyDoc.new }
+    let(:doc) { TestEmbedManyDoc.new(:sub_docs => [subdoc]) }
+
+    it "uses a proxy" do
+      MongoDoc::Associations::CollectionProxy.should === TestEmbedManyDoc.new.sub_docs
+    end
+
+    it ".has_many is an alias for .embed_many" do
+      MongoDoc::Associations::CollectionProxy.should === TestHasManyDoc.new.sub_docs
+    end
+
+    it "sets the subdocuments parent to the proxy" do
+      doc.sub_docs.should == subdoc._parent
+    end
+
+    it "set the subdocuments root to the root" do
+      doc.should == subdoc._root
+    end
+
+    it "uses the association name to find the children's class name" do
+      TestImplicitEmbedManyDoc.new.sub_embed_many_docs.assoc_class.should == SubEmbedManyDoc
+    end
+
+    it "uses class_name attribute for the children's class name" do
+      TestEmbedManyDoc.new.sub_docs.assoc_class.should == SubEmbedManyDoc
+    end
+
+    it "uses class_name attribute for the children's class name" do
+      TestEmbedManyDoc2.new.sub_docs.assoc_class.should == SubEmbedManyDoc
+    end
+
+    context "validations" do
+      class EmbedManyValidationChild
+        include MongoDoc::Document
+
+        attr_accessor :data
+        validates_presence_of :data
+      end
+
+      class EmbedManyValidationTest
+        include MongoDoc::Document
+
+        embed_many :subdocs, :class_name => 'HasManyValidationChild'
+      end
+
+      let(:invalid_child) { EmbedManyValidationChild.new }
+      let(:doc) { EmbedManyValidationTest.new(:subdocs => [invalid_child]) }
+
+      it "cascades validations and marks it in the parent" do
+        doc.should have(1).error_on(:subdocs)
+      end
+
+      it "cascades validations and marks it in the child" do
+        invalid_child.should have(1).error_on(:data)
+      end
+
+      it "ignores non-document children" do
+        EmbedManyValidationTest.new(:subdocs => ['not a doc']).should be_valid
+      end
+    end
+  end
+
+  context ".embed_hash" do
+    class SubEmbedHashDoc
+      include MongoDoc::Document
+
+      attr_accessor :data
+    end
+
+    class TestEmbedHashDoc
+      include MongoDoc::Document
+
+      embed_hash :sub_docs, :class_name => 'SubEmbedHashDoc'
+    end
+
+    class TestImplicitEmbedHashDoc
+      include MongoDoc::Document
+
+      embed_hash :sub_embed_hash_docs
+    end
+
+    class TestHasHashDoc
+      include MongoDoc::Document
+
+      has_hash :sub_embed_hash_docs
+    end
+
+    let(:subdoc) { SubEmbedHashDoc.new }
+    let(:doc) { TestEmbedHashDoc.new(:sub_docs => {:key => subdoc}) }
+
+    it "uses a proxy" do
+      MongoDoc::Associations::HashProxy.should === TestEmbedHashDoc.new.sub_docs
+    end
+
+    it ".has_hash is an alias for embed_hash" do
+      MongoDoc::Associations::HashProxy.should === TestEmbedHashDoc.new.sub_docs
+    end
+
+    it "sets the subdocuments parent to the proxy" do
+      doc.sub_docs.should == subdoc._parent
+    end
+
+    it "set the subdocuments root to the root" do
+      doc.should == subdoc._root
+    end
+
+    it "uses the association name to find the children's class name" do
+      TestImplicitEmbedHashDoc.new.sub_embed_hash_docs.assoc_class.should == SubEmbedHashDoc
+    end
+
+    context "validations" do
+      class EmbedHashValidationChild
+        include MongoDoc::Document
+
+        attr_accessor :data
+        validates_presence_of :data
+      end
+
+      class EmbedHashValidationTest
+        include MongoDoc::Document
+
+        embed_hash :subdocs, :class_name => 'EmbedHashValidationChild'
+      end
+
+      let(:invalid_child) { EmbedHashValidationChild.new }
+      let(:doc) { EmbedHashValidationTest.new(:subdocs => {:key => invalid_child}) }
+
+      it "cascades validations and marks it in the parent" do
+        doc.should have(1).error_on(:subdocs)
+      end
+
+      it "cascades validations and marks it in the child" do
+        invalid_child.should have(1).error_on(:data)
+      end
+
+      it "ignores non-document children" do
+        EmbedHashValidationTest.new(:subdocs => {:key => 'data'}).should be_valid
+      end
+    end
+  end
+end

data/spec/attributes_accessor_spec.rb

@@ -4,9 +4,9 @@ describe "MongoDoc::Attributes attributes accessor" do
   class AttributesTest
     include MongoDoc::Attributes
 
-    key :name
-    key :age
-    key :birthdate
+    attr_accessor :name
+    attr_accessor :age
+    attr_accessor :birthdate, :type => Date
   end
 
   context "#attributes" do

data/spec/attributes_spec.rb

@@ -11,10 +11,22 @@ describe "MongoDoc::Attributes" do
   end
 
   context ".key" do
+    class AttributeAccessorTest
+      include MongoDoc::Attributes
+
+      key :date, :default => Date.today, :type => Date
+    end
+
+    it "is an alias for attr_accessor" do
+      AttributeAccessorTest._keys.should include(:date)
+    end
+  end
+
+  context ".attr_accessor" do
     class TestKeys
       include MongoDoc::Attributes
 
-      key :attr1, :attr2
+      attr_accessor :attr1, :attr2
     end
 
     it "adds its arguments to _keys" do
@@ -39,7 +51,7 @@ describe "MongoDoc::Attributes" do
       class TestDefault
         include MongoDoc::Attributes
 
-        key :with_default, :default => 'value'
+        attr_accessor :with_default, :default => 'value'
       end
 
       let(:object) { TestDefault.new }
@@ -68,7 +80,7 @@ describe "MongoDoc::Attributes" do
       class TestType
         include MongoDoc::Attributes
 
-        key :birthdate, :type => Date
+        attr_accessor :birthdate, :type => Date
       end
 
       let(:object) { TestType.new }
@@ -97,11 +109,11 @@ describe "MongoDoc::Attributes" do
       class TestParent
         include MongoDoc::Attributes
 
-        key :parent_attr
+        attr_accessor :parent_attr
       end
 
       class TestChild < TestParent
-        key :child_attr
+        attr_accessor :child_attr
       end
 
       it "has its own keys" do
@@ -118,212 +130,16 @@ describe "MongoDoc::Attributes" do
     end
   end
 
-  context ".has_one" do
-    class TestDoc
-      include MongoDoc::Document
-
-      has_one :sub_doc
-    end
-
-    class SubDoc
-      include MongoDoc::Document
-
-      key :data
-    end
-
-    let(:subdoc) { SubDoc.new }
-    let(:doc) { TestDoc.new(:sub_doc => subdoc) }
-
-    it "uses a proxy" do
-      MongoDoc::Associations::DocumentProxy.should === doc.sub_doc
-    end
-
-    it "sets the subdocuments parent to the proxy" do
-      doc.sub_doc.should == subdoc._parent
-    end
-
-    it "set the subdocuments root" do
-      doc.should == subdoc._root
-    end
-
-    context "validations" do
-      class HasOneValidationTest
-        include MongoDoc::Document
-
-        key :data
-        validates_presence_of :data
-      end
-
-      it "cascades validations down" do
-        invalid = HasOneValidationTest.new
-        TestDoc.new(:sub_doc => invalid).should have(1).error_on(:sub_doc)
-      end
-    end
-  end
-
   context "._attributes" do
     class TestHasOneDoc
       include MongoDoc::Document
 
-      key :key
-      has_one :has_one
+      attr_accessor :key
+      embed :embed
     end
 
     it "is _keys + _associations" do
       TestHasOneDoc._attributes.should == TestHasOneDoc._keys + TestHasOneDoc._associations
     end
   end
-
-  context ".has_many" do
-
-    class SubHasManyDoc
-      include MongoDoc::Document
-
-      key :data
-    end
-
-    class TestHasManyDoc
-      include MongoDoc::Document
-
-      has_many :sub_docs, :class_name => 'SubHasManyDoc'
-    end
-
-    class TestHasManyDoc2
-      include MongoDoc::Document
-
-      has_many :sub_docs, :class_name => :sub_has_many_doc
-    end
-
-    class TestImplicitHasManyDoc
-      include MongoDoc::Document
-
-      has_many :sub_has_many_docs
-    end
-
-    let(:subdoc) { SubHasManyDoc.new }
-    let(:doc) { TestHasManyDoc.new(:sub_docs => [subdoc]) }
-
-    it "uses a proxy" do
-      MongoDoc::Associations::CollectionProxy.should === TestHasManyDoc.new.sub_docs
-    end
-
-    it "sets the subdocuments parent to the proxy" do
-      doc.sub_docs.should == subdoc._parent
-    end
-
-    it "set the subdocuments root to the root" do
-      doc.should == subdoc._root
-    end
-
-    it "uses the association name to find the children's class name" do
-      TestImplicitHasManyDoc.new.sub_has_many_docs.assoc_class.should == SubHasManyDoc
-    end
-
-    it "uses class_name attribute for the children's class name" do
-      TestHasManyDoc.new.sub_docs.assoc_class.should == SubHasManyDoc
-    end
-
-    it "uses class_name attribute for the children's class name" do
-      TestHasManyDoc2.new.sub_docs.assoc_class.should == SubHasManyDoc
-    end
-
-    context "validations" do
-      class HasManyValidationChild
-        include MongoDoc::Document
-
-        key :data
-        validates_presence_of :data
-      end
-
-      class HasManyValidationTest
-        include MongoDoc::Document
-
-        has_many :subdocs, :class_name => 'HasManyValidationChild'
-      end
-
-      let(:invalid_child) { HasManyValidationChild.new }
-      let(:doc) { HasManyValidationTest.new(:subdocs => [invalid_child]) }
-
-      it "cascades validations and marks it in the parent" do
-        doc.should have(1).error_on(:subdocs)
-      end
-
-      it "cascades validations and marks it in the child" do
-        invalid_child.should have(1).error_on(:data)
-      end
-
-      it "ignores non-document children" do
-        HasManyValidationTest.new(:subdocs => ['not a doc']).should be_valid
-      end
-    end
-  end
-
-  context ".has_hash" do
-    class SubHasHashDoc
-      include MongoDoc::Document
-
-      key :data
-    end
-
-    class TestHasHashDoc
-      include MongoDoc::Document
-
-      has_hash :sub_docs, :class_name => 'SubHasHashDoc'
-    end
-
-    class TestImplicitHasHashDoc
-      include MongoDoc::Document
-
-      has_hash :sub_has_hash_docs
-    end
-
-    let(:subdoc) { SubHasHashDoc.new }
-    let(:doc) { TestHasHashDoc.new(:sub_docs => {:key => subdoc}) }
-
-    it "uses a proxy" do
-      MongoDoc::Associations::HashProxy.should === TestHasHashDoc.new.sub_docs
-    end
-
-    it "sets the subdocuments parent to the proxy" do
-      doc.sub_docs.should == subdoc._parent
-    end
-
-    it "set the subdocuments root to the root" do
-      doc.should == subdoc._root
-    end
-
-    it "uses the association name to find the children's class name" do
-      TestImplicitHasHashDoc.new.sub_has_hash_docs.assoc_class.should == SubHasHashDoc
-    end
-
-    context "validations" do
-      class HasHashValidationChild
-        include MongoDoc::Document
-
-        key :data
-        validates_presence_of :data
-      end
-
-      class HasHashValidationTest
-        include MongoDoc::Document
-
-        has_hash :subdocs, :class_name => 'HasHashValidationChild'
-      end
-
-      let(:invalid_child) { HasHashValidationChild.new }
-      let(:doc) { HasHashValidationTest.new(:subdocs => {:key => invalid_child}) }
-
-      it "cascades validations and marks it in the parent" do
-        doc.should have(1).error_on(:subdocs)
-      end
-
-      it "cascades validations and marks it in the child" do
-        invalid_child.should have(1).error_on(:data)
-      end
-
-      it "ignores non-document children" do
-        HasHashValidationTest.new(:subdocs => {:key => 'data'}).should be_valid
-      end
-    end
-  end
 end

data/spec/contexts/enumerable_spec.rb

@@ -6,8 +6,8 @@ describe MongoDoc::Contexts::Enumerable do
     include MongoDoc::Document
     include MongoDoc::Matchers
 
-    key :number
-    key :street
+    attr_accessor :number
+    attr_accessor :street
   end
 
   before do

data/spec/contexts/ids_spec.rb

@@ -6,8 +6,8 @@ describe "MongoDoc::Contexts::Ids" do
     include MongoDoc::Document
     include MongoDoc::Matchers
 
-    key :number
-    key :street
+    attr_accessor :number
+    attr_accessor :street
   end
 
   let(:criteria) { Mongoid::Criteria.new(Address) }

data/spec/contexts/mongo_spec.rb

@@ -6,8 +6,8 @@ describe "MongoDoc::Contexts::Mongo" do
     include MongoDoc::Document
     include MongoDoc::Matchers
 
-    key :number
-    key :street
+    attr_accessor :number
+    attr_accessor :street
   end
 
   let(:criteria) { Mongoid::Criteria.new(Address) }

data/spec/contexts_spec.rb

@@ -5,7 +5,7 @@ describe MongoDoc::Contexts do
   class ContextTest
     include MongoDoc::Document
 
-    has_many :children
+    embed_many :children
   end
 
   context ".context_for" do