mongodoc 0.0.0

data/lib/mongodoc/ext/object.rb

@@ -0,0 +1,17 @@
+class Object
+  def to_bson(*args)
+    {MongoDoc::BSON::CLASS_KEY => self.class.name}.tap do |bson_hash|
+      instance_variables.each do |name|
+        bson_hash[name[1..-1]] = instance_variable_get(name).to_bson(args)
+      end
+    end
+  end
+  
+  def self.bson_create(bson_hash, options = {})
+    new.tap do |obj|
+      bson_hash.each do |name, value|
+        obj.instance_variable_set("@#{name}", MongoDoc::BSON.decode(value, options))
+      end
+    end
+  end
+end

data/lib/mongodoc/ext/object_id.rb

@@ -0,0 +1,7 @@
+module Mongo
+  class ObjectID
+    def to_bson(*args)
+      self
+    end
+  end
+end

data/lib/mongodoc/ext/regexp.rb

@@ -0,0 +1,5 @@
+class Regexp
+  def to_bson(*args)
+    self
+  end
+end

data/lib/mongodoc/ext/string.rb

@@ -0,0 +1,5 @@
+class String
+  def to_bson(*args)
+    self
+  end
+end

data/lib/mongodoc/ext/symbol.rb

@@ -0,0 +1,5 @@
+class Symbol
+  def to_bson(*args)
+    self
+  end
+end

data/lib/mongodoc/ext/time.rb

@@ -0,0 +1,5 @@
+class Time
+  def to_bson(*args)
+    self
+  end
+end

data/lib/mongodoc/parent_proxy.rb

@@ -0,0 +1,37 @@
+module MongoDoc
+  module Document
+    class ParentProxy
+      attr_reader :assoc_name, :_parent
+
+      def initialize(parent, assoc_name)
+        raise ArgumentError.new('ParentProxy requires a parent') if parent.nil?
+        raise ArgumentError.new('ParentProxy require an association name') if assoc_name.blank?
+        @_parent = parent
+        @assoc_name = assoc_name
+      end
+
+      def path_to_root(attrs)
+        assoc_attrs = attrs.inject({}) do |assoc_attrs, (key, value)|
+          assoc_attrs["#{assoc_name}.#{key}"] = value
+          assoc_attrs
+        end
+        _parent.path_to_root(assoc_attrs)
+      end
+
+      private
+
+      def method_missing(method, *args)
+        unless @_parent.respond_to?(method)
+          message = "undefined method `#{method.to_s}' for proxied \"#{@_parent}\":#{@_parent.class.to_s}"
+          raise NoMethodError, message
+        end
+
+        if block_given?
+          @_parent.send(method, *args)  { |*block_args| yield(*block_args) }
+        else
+          @_parent.send(method, *args)
+        end
+      end
+    end
+  end
+end

data/lib/mongodoc/proxy.rb

@@ -0,0 +1,76 @@
+# Thanks Sandro!
+# http://github.com/sandro
+module MongoDoc
+  module Document
+    class Proxy
+      # List of array methods (that are not in +Object+) that need to be
+      # delegated to +collection+.
+      ARRAY_METHODS = (Array.instance_methods - Object.instance_methods).map { |n| n.to_s }
+
+      # List of additional methods that must be delegated to +collection+.
+      MUST_DEFINE = %w[to_a to_ary inspect to_bson ==]
+
+      (ARRAY_METHODS + MUST_DEFINE).uniq.each do |method|
+        class_eval <<-RUBY, __FILE__, __LINE__ + 1
+          def #{method}(*args, &block)                 # def each(*args, &block)
+            collection.send(:#{method}, *args, &block)  #   collection.send(:each, *args, &block)
+          end                                          # end
+        RUBY
+      end
+
+      attr_reader :assoc_name, :collection, :collection_class, :_parent, :_root
+
+      def _parent=(parent)
+        @_parent = parent
+      end
+
+      def _root=(root)
+        @_root = root
+        collection.each do |item|
+          item._root = root
+        end
+      end
+
+      def initialize(options)
+        @assoc_name = options[:assoc_name]
+        @collection = []
+        @collection_class = options[:collection_class]
+        @_root = options[:root]
+        @_parent = options[:parent]
+      end
+
+      alias_method :append, :<<
+      def <<(items)
+        items = [items] unless items.kind_of?(Array)
+        items.each do |item|
+          item = collection_class.new(item) if Hash === item
+          raise NotADocumentError unless collection_class === item
+          append item
+          item._parent = self
+          item._root = _root
+        end
+        self
+      end
+      alias_method :push, :<<
+      alias_method :concat, :<<
+
+      # Lie about our class. Borrowed from Rake::FileList
+      # Note: Does not work for case equality (<tt>===</tt>)
+      def is_a?(klass)
+        klass == Array || super(klass)
+      end
+      alias kind_of? is_a?
+
+      def path_to_root(attrs)
+        _parent.path_to_root(attrs)
+      end
+
+      protected
+
+      def _propose_update_attributes(src, attrs, safe)
+        src.errors.add(:base, 'update_attributes called through a has_many')
+        false
+      end
+    end
+  end
+end

data/lib/mongodoc/query.rb

@@ -0,0 +1,7 @@
+module MongoDoc
+  module Query
+    def self.set_modifier(bson_hash)
+      {'$set' => bson_hash}
+    end
+  end
+end

data/lib/mongodoc/value_equals.rb

@@ -0,0 +1,8 @@
+module MongoDoc
+  module ValueEquals
+    def ==(other)
+      return false unless instance_variables.size == other.instance_variables.size
+      instance_variables.all? {|var| self.instance_variable_get(var) == other.instance_variable_get(var)}
+    end
+  end
+end

data/mongod.example.yml

@@ -0,0 +1,2 @@
+mongod: /usr/local/bin/mongod
+dbpath: /data/db

data/mongodoc.gemspec

@@ -0,0 +1,117 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE DIRECTLY
+# Instead, edit Jeweler::Tasks in Rakefile, and run the gemspec command
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{mongodoc}
+  s.version = "0.0.0"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Les Hill"]
+  s.date = %q{2009-11-22}
+  s.description = %q{ODM for MongoDB}
+  s.email = %q{leshill@gmail.com}
+  s.extra_rdoc_files = [
+    "LICENSE",
+     "README.rdoc"
+  ]
+  s.files = [
+    ".document",
+     ".gitignore",
+     "LICENSE",
+     "README.rdoc",
+     "Rakefile",
+     "VERSION",
+     "data/.gitignore",
+     "features/mongodoc_base.feature",
+     "features/saving_an_object.feature",
+     "features/step_definitions/collection_steps.rb",
+     "features/step_definitions/connect_steps.rb",
+     "features/step_definitions/document_steps.rb",
+     "features/step_definitions/json_steps.rb",
+     "features/step_definitions/object_steps.rb",
+     "features/step_definitions/util_steps.rb",
+     "features/support/support.rb",
+     "lib/mongodoc.rb",
+     "lib/mongodoc/attributes.rb",
+     "lib/mongodoc/base.rb",
+     "lib/mongodoc/bson.rb",
+     "lib/mongodoc/connection.rb",
+     "lib/mongodoc/ext/array.rb",
+     "lib/mongodoc/ext/binary.rb",
+     "lib/mongodoc/ext/boolean_class.rb",
+     "lib/mongodoc/ext/date.rb",
+     "lib/mongodoc/ext/date_time.rb",
+     "lib/mongodoc/ext/dbref.rb",
+     "lib/mongodoc/ext/hash.rb",
+     "lib/mongodoc/ext/nil_class.rb",
+     "lib/mongodoc/ext/numeric.rb",
+     "lib/mongodoc/ext/object.rb",
+     "lib/mongodoc/ext/object_id.rb",
+     "lib/mongodoc/ext/regexp.rb",
+     "lib/mongodoc/ext/string.rb",
+     "lib/mongodoc/ext/symbol.rb",
+     "lib/mongodoc/ext/time.rb",
+     "lib/mongodoc/parent_proxy.rb",
+     "lib/mongodoc/proxy.rb",
+     "lib/mongodoc/query.rb",
+     "lib/mongodoc/value_equals.rb",
+     "mongod.example.yml",
+     "mongodoc.gemspec",
+     "script/console",
+     "spec/attributes_spec.rb",
+     "spec/base_ext.rb",
+     "spec/base_spec.rb",
+     "spec/bson_matchers.rb",
+     "spec/bson_spec.rb",
+     "spec/connection_spec.rb",
+     "spec/parent_proxy_spec.rb",
+     "spec/query_spec.rb",
+     "spec/spec.opts",
+     "spec/spec_helper.rb",
+     "spec/test_classes.rb",
+     "spec/test_documents.rb"
+  ]
+  s.homepage = %q{http://github.com/leshill/mongodoc}
+  s.rdoc_options = ["--charset=UTF-8"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{ODM for MongoDB}
+  s.test_files = [
+    "spec/attributes_spec.rb",
+     "spec/base_ext.rb",
+     "spec/base_spec.rb",
+     "spec/bson_matchers.rb",
+     "spec/bson_spec.rb",
+     "spec/connection_spec.rb",
+     "spec/parent_proxy_spec.rb",
+     "spec/query_spec.rb",
+     "spec/spec_helper.rb",
+     "spec/test_classes.rb",
+     "spec/test_documents.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+      s.add_runtime_dependency(%q<mongo>, ["= 0.16"])
+      s.add_runtime_dependency(%q<durran-validatable>, ["= 1.8.2"])
+      s.add_development_dependency(%q<rspec>, [">= 0"])
+      s.add_development_dependency(%q<cucumber>, [">= 0"])
+    else
+      s.add_dependency(%q<mongo>, ["= 0.16"])
+      s.add_dependency(%q<durran-validatable>, ["= 1.8.2"])
+      s.add_dependency(%q<rspec>, [">= 0"])
+      s.add_dependency(%q<cucumber>, [">= 0"])
+    end
+  else
+    s.add_dependency(%q<mongo>, ["= 0.16"])
+    s.add_dependency(%q<durran-validatable>, ["= 1.8.2"])
+    s.add_dependency(%q<rspec>, [">= 0"])
+    s.add_dependency(%q<cucumber>, [">= 0"])
+  end
+end
+

data/script/console

@@ -0,0 +1,8 @@
+#!/usr/bin/env ruby
+
+$LOAD_PATH.unshift(File.join(File.dirname(__FILE__), '..', 'lib'))
+
+require 'irb'
+require 'mongodoc'
+
+IRB.start(__FILE__)

data/spec/attributes_spec.rb

@@ -0,0 +1,159 @@
+require File.expand_path(File.dirname(__FILE__) + '/spec_helper')
+
+describe "MongoDoc::Document::Attributes" do
+  context ".key" do
+    class TestKeys < MongoDoc::Base
+    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::Base
+        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::Base
+      has_one :subdoc
+    end
+
+    class SubDoc < MongoDoc::Base
+      key :data
+    end
+
+    it "sets the subdocuments parent to the parent proxy" do
+      subdoc = SubDoc.new
+      doc = TestDoc.new(:subdoc => subdoc)
+      MongoDoc::Document::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::Base
+      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::Base
+      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::Base
+      key :data
+    end
+
+    class TestHasManyDoc < MongoDoc::Base
+      has_many :sub_docs, :class_name => 'SubHasManyDoc'
+    end
+
+    class TestImplicitHasManyDoc < MongoDoc::Base
+      has_many :sub_has_many_docs
+    end
+
+    it "uses a proxy" do
+      MongoDoc::Document::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::Base
+      key :data
+      validates_presence_of :data
+    end
+
+    class HasManyValidationTest < MongoDoc::Base
+      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