require File.expand_path(File.dirname(__FILE__) + '/spec_helper')

describe "MongoDoc::Attributes" do
  context ".key" do
    class TestKeys < MongoDoc::Document
    end

    it "adds its arguments to _keys" do
      TestKeys.key :attr1, :attr2
      TestKeys._keys.should == [:attr1, :attr2]
    end

    describe "accessors" do
      before do
        TestKeys.key :attr1
      end

      subject do
        TestKeys.new
      end
      it "has an attr1 reader" do
        should respond_to(:attr1)
      end

      it "has an attr1 writer" do
        should respond_to(:attr1=)
      end
    end

    describe "used with inheritance" do
      class TestParent < MongoDoc::Document
        key :parent_attr
      end

      class TestChild < TestParent
        key :child_attr
      end

      it "has its own keys" do
        TestChild._keys.should include(:child_attr)
      end

      it "has the keys from the parent class" do
        TestChild._keys.should include(*TestParent._keys)
      end
    end
  end

  context ".has_one" do
    class TestDoc < MongoDoc::Document
      has_one :subdoc
    end

    class SubDoc < MongoDoc::Document
      key :data
    end

    it "sets the subdocuments parent to the parent proxy" do
      subdoc = SubDoc.new
      doc = TestDoc.new(:subdoc => subdoc)
      MongoDoc::ParentProxy.should === subdoc._parent
      subdoc._parent._parent.should == doc
    end

    it "set the subdocuments root" do
      subdoc = SubDoc.new
      middoc = TestDoc.new
      doc = TestDoc.new(:subdoc => middoc)
      middoc.subdoc = subdoc
      subdoc._root.should == doc
    end

    it "sets the subdocuments root no matter how when it is inserted" do
      subdoc = SubDoc.new
      middoc = TestDoc.new(:subdoc => subdoc)
      doc = TestDoc.new(:subdoc => middoc)
      subdoc._root.should == doc
    end

    class HasOneValidationTest < MongoDoc::Document
      key :data
      validates_presence_of :data
    end

    it "cascades validations down" do
      invalid = HasOneValidationTest.new
      doc = TestDoc.new(:subdoc => invalid)
      doc.should have(1).error_on(:subdoc)
    end
  end

  context "._attributes" do
    class TestHasOneDoc < MongoDoc::Document
      key :key
      has_one :has_one
    end

    it "is _keys + _associations" do
      TestHasOneDoc._attributes.should == TestHasOneDoc._keys + TestHasOneDoc._associations
    end
  end

  context ".has_many" do

    class SubHasManyDoc < MongoDoc::Document
      key :data
    end

    class TestHasManyDoc < MongoDoc::Document
      has_many :sub_docs, :class_name => 'SubHasManyDoc'
    end

    class TestImplicitHasManyDoc < MongoDoc::Document
      has_many :sub_has_many_docs
    end

    it "uses a proxy" do
      MongoDoc::Proxy.should === TestHasManyDoc.new.sub_docs
    end

    it "sets the subdocuments parent to the proxy" do
      subdoc = SubHasManyDoc.new
      doc = TestHasManyDoc.new(:sub_docs => [subdoc])
      subdoc._parent.should == doc.sub_docs
    end

    it "set the subdocuments root to the root" do
      subdoc = SubHasManyDoc.new
      doc = TestHasManyDoc.new(:sub_docs => [subdoc])
      subdoc._root.should == doc
    end

    it "uses the association name to find the children's class name" do
      subdoc = SubHasManyDoc.new
      doc = TestImplicitHasManyDoc.new(:sub_has_many_docs => [subdoc])
    end

    class HasManyValidationChild < MongoDoc::Document
      key :data
      validates_presence_of :data
    end

    class HasManyValidationTest < MongoDoc::Document
      has_many :subdocs, :class_name => 'HasManyValidationChild'
    end

    it "cascades validations and marks it in the parent" do
      invalid = HasManyValidationChild.new
      doc = HasManyValidationTest.new(:subdocs => [invalid])
      doc.should have(1).error_on(:subdocs)
    end

    it "cascades validations and marks it in the child" do
      invalid = HasManyValidationChild.new
      doc = HasManyValidationTest.new(:subdocs => [invalid])
      invalid.should have(1).error_on(:data)
    end
  end
end