mongo_mapper 0.8.6 → 0.9.0

data/test/unit/associations/test_belongs_to_association.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+require 'models'
+
+class BelongsToAssociationTest < Test::Unit::TestCase
+  include MongoMapper::Plugins::Associations
+
+  context "class_name" do
+    should "camelize the name" do
+      BelongsToAssociation.new(:user).class_name.should == 'User'
+    end
+
+    should "be changeable using class_name option" do
+      association = BelongsToAssociation.new(:user, :class_name => 'Person')
+      association.class_name.should == 'Person'
+    end
+  end
+
+  context "embeddable?" do
+    should "be false even if class is embeddable" do
+      base = BelongsToAssociation.new(:address)
+      base.embeddable?.should be_false
+    end
+
+    should "be false if class is not embeddable" do
+      base = BelongsToAssociation.new(:project)
+      base.embeddable?.should be_false
+    end
+  end
+end

data/test/unit/associations/test_many_association.rb

@@ -0,0 +1,63 @@
+require 'test_helper'
+require 'models'
+
+class ManyAssociationTest < Test::Unit::TestCase
+  include MongoMapper::Plugins::Associations
+
+  context "class_name" do
+    should "camelize the name" do
+      ManyAssociation.new(:smart_people).class_name.should == 'SmartPerson'
+    end
+
+    should "be changeable using class_name option" do
+      base = ManyAssociation.new(:smart_people, :class_name => 'IntelligentPerson')
+      base.class_name.should == 'IntelligentPerson'
+    end
+  end
+
+  context "type_key_name" do
+    should "be _type" do
+      ManyAssociation.new(:foos).type_key_name.should == '_type'
+    end
+  end
+
+  context "embeddable?" do
+    should "be true if class is embeddable" do
+      base = ManyAssociation.new(:medias)
+      base.embeddable?.should be_true
+    end
+
+    should "be false if class is not embeddable" do
+      base = ManyAssociation.new(:statuses)
+      base.embeddable?.should be_false
+    end
+  end
+
+  context "proxy_class" do
+    should "be ManyDocumentsProxy for many" do
+      base = ManyAssociation.new(:statuses)
+      base.proxy_class.should == ManyDocumentsProxy
+    end
+
+    should "be ManyPolymorphicProxy for polymorphic many" do
+      base = ManyAssociation.new(:messages, :polymorphic => true)
+      base.proxy_class.should == ManyPolymorphicProxy
+    end
+
+    should "be ManyEmbeddedProxy for many embedded" do
+      base = ManyAssociation.new(:medias)
+      base.proxy_class.should == ManyEmbeddedProxy
+    end
+
+    should "be ManyEmbeddedPolymorphicProxy for polymorphic many embedded" do
+      base = ManyAssociation.new(:medias, :polymorphic => true)
+      base.proxy_class.should == ManyEmbeddedPolymorphicProxy
+    end
+
+    should "be InArrayProxy for many with :in option" do
+      base = ManyAssociation.new(:messages, :in => :message_ids)
+      base.proxy_class.should == InArrayProxy
+    end
+  end
+
+end

data/test/unit/associations/test_one_association.rb

@@ -0,0 +1,18 @@
+require 'test_helper'
+require 'models'
+
+class OneAssociationTest < Test::Unit::TestCase
+  include MongoMapper::Plugins::Associations
+
+  context "embeddable?" do
+    should "be true if class is embeddable" do
+      base = OneAssociation.new(:media)
+      base.embeddable?.should be_true
+    end
+
+    should "be false if class is not embeddable" do
+      base = OneAssociation.new(:project)
+      base.embeddable?.should be_false
+    end
+  end
+end

data/test/unit/serializers/test_json_serializer.rb

@@ -1,5 +1,4 @@
 require 'test_helper'
-require 'active_support/version'
 
 class JsonSerializationTest < Test::Unit::TestCase
 

data/test/unit/test_descendant_appends.rb

@@ -2,13 +2,9 @@ require 'test_helper'
 
 class DescendantAppendsTest < Test::Unit::TestCase
   context "Document" do
-    should "default descendants to a new set" do
-      MongoMapper::Document.descendants.should be_instance_of(Set)
-    end
-
     should 'allow extensions to Document to be appended' do
       module Extension; def test_this_extension; end end
-      MongoMapper::Document.append_extensions(Extension)
+      silence_stderr { MongoMapper::Document.append_extensions(Extension) }
       article = Doc()
       article.should respond_to(:test_this_extension)
     end
@@ -16,13 +12,13 @@ class DescendantAppendsTest < Test::Unit::TestCase
     should 'add appended extensions to classes that include Document before they are added' do
       module Extension; def test_this_extension; end end
       article = Doc()
-      MongoMapper::Document.append_extensions(Extension)
+      silence_stderr { MongoMapper::Document.append_extensions(Extension) }
       article.should respond_to(:test_this_extension)
     end
 
     should 'allow inclusions to Document to be appended' do
       module Inclusion; def test_this_inclusion; end end
-      MongoMapper::Document.append_inclusions(Inclusion)
+      silence_stderr { MongoMapper::Document.append_inclusions(Inclusion) }
       article = Doc()
       article.new.should respond_to(:test_this_inclusion)
     end
@@ -30,19 +26,15 @@ class DescendantAppendsTest < Test::Unit::TestCase
     should 'add appended inclusions to classes that include Document before they are added' do
       module Inclusion; def test_this_inclusion; end end
       article = Doc()
-      MongoMapper::Document.append_inclusions(Inclusion)
+      silence_stderr { MongoMapper::Document.append_inclusions(Inclusion) }
       article.new.should respond_to(:test_this_inclusion)
     end
   end
 
   context "EmbeddedDocument" do
-    should "default descendants to a new set" do
-      MongoMapper::EmbeddedDocument.descendants.should be_instance_of(Set)
-    end
-
     should 'allow extensions to Document to be appended' do
       module Extension; def test_this_extension; end end
-      MongoMapper::EmbeddedDocument.append_extensions(Extension)
+      silence_stderr { MongoMapper::EmbeddedDocument.append_extensions(Extension) }
       article = EDoc()
       article.should respond_to(:test_this_extension)
     end
@@ -50,13 +42,13 @@ class DescendantAppendsTest < Test::Unit::TestCase
     should 'add appended extensions to classes that include Document before they are added' do
       module Extension; def test_this_extension; end end
       article = EDoc()
-      MongoMapper::EmbeddedDocument.append_extensions(Extension)
+      silence_stderr { MongoMapper::EmbeddedDocument.append_extensions(Extension) }
       article.should respond_to(:test_this_extension)
     end
 
     should 'allow inclusions to Document to be appended' do
       module Inclusion; def test_this_inclusion; end end
-      MongoMapper::EmbeddedDocument.append_inclusions(Inclusion)
+      silence_stderr { MongoMapper::EmbeddedDocument.append_inclusions(Inclusion) }
       article = EDoc()
       article.new.should respond_to(:test_this_inclusion)
     end
@@ -64,7 +56,7 @@ class DescendantAppendsTest < Test::Unit::TestCase
     should 'add appended inclusions to classes that include Document before they are added' do
       module Inclusion; def test_this_inclusion; end end
       article = EDoc()
-      MongoMapper::EmbeddedDocument.append_inclusions(Inclusion)
+      silence_stderr { MongoMapper::EmbeddedDocument.append_inclusions(Inclusion) }
       article.new.should respond_to(:test_this_inclusion)
     end
   end

data/test/unit/test_document.rb

@@ -75,10 +75,10 @@ class DocumentTest < Test::Unit::TestCase
     end
 
     should "default associations to inherited class" do
-      Message.associations.keys.should include("room")
-      Enter.associations.keys.should   include("room")
-      Exit.associations.keys.should    include("room")
-      Chat.associations.keys.should    include("room")
+      Message.associations.keys.should include(:room)
+      Enter.associations.keys.should   include(:room)
+      Exit.associations.keys.should    include(:room)
+      Chat.associations.keys.should    include(:room)
     end
   end
 
@@ -158,11 +158,6 @@ class DocumentTest < Test::Unit::TestCase
       end
     end
 
-    should "call inspect on the document's attributes instead of to_s when inspecting the document" do
-      doc = @document.new(:animals => %w(dog cat))
-      doc.inspect.should include(%(animals: ["dog", "cat"]))
-    end
-
     context "equality" do
       setup do
         @oid = BSON::ObjectId.new

data/test/unit/test_dynamic_finder.rb

@@ -1,7 +1,7 @@
 require 'test_helper'
 
 class DynamicFinderTest < Test::Unit::TestCase
-  include MongoMapper::Plugins::DynamicQuerying
+  DynamicFinder = MongoMapper::Plugins::DynamicQuerying::DynamicFinder
 
   should "initialize with method" do
     finder = DynamicFinder.new(:foobar)

data/test/unit/test_embedded_document.rb

@@ -34,13 +34,26 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
 
         key :other_child, String
       end
+
+      class ::EDocWithAValidation
+        include MongoMapper::EmbeddedDocument
+        key :name, String, :required => true
+      end
+
+      class ::DocWithAValidation
+        include MongoMapper::Document
+        key :name, String, :required => true
+        many :e_doc_with_a_validations
+      end
     end
 
     teardown do
-      Object.send :remove_const, 'Grandparent' if defined?(::Grandparent)
-      Object.send :remove_const, 'Parent'      if defined?(::Parent)
-      Object.send :remove_const, 'Child'       if defined?(::Child)
-      Object.send :remove_const, 'OtherChild'  if defined?(::OtherChild)
+      Object.send :remove_const, 'Grandparent'         if defined?(::Grandparent)
+      Object.send :remove_const, 'Parent'              if defined?(::Parent)
+      Object.send :remove_const, 'Child'               if defined?(::Child)
+      Object.send :remove_const, 'OtherChild'          if defined?(::OtherChild)
+      Object.send :remove_const, 'EDocWithAValidation' if defined?(::EDocWithAValidation)
+      Object.send :remove_const, 'DocWithAValidation'  if defined?(::DocWithAValidation)
     end
 
     context "Including MongoMapper::EmbeddedDocument in a class" do
@@ -158,10 +171,10 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
           @document.new.should respond_to(:foo)
         end
 
-        should "create reader before typecast method" do
-          @document.new.should_not respond_to(:foo_before_typecast)
+        should "create reader before type cast method" do
+          @document.new.should_not respond_to(:foo_before_type_cast)
           @document.key(:foo, String)
-          @document.new.should respond_to(:foo_before_typecast)
+          @document.new.should respond_to(:foo_before_type_cast)
         end
 
         should "create writer method" do
@@ -207,7 +220,9 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
         end
 
         should "be recorded" do
-          Grandparent.descendants.should == [Parent]
+          Grandparent.direct_descendants.should == [Parent]
+          Grandparent.descendants.to_set.should == [Parent, Child, OtherChild].to_set
+
           Parent.descendants.should      == [Child, OtherChild]
         end
       end
@@ -339,7 +354,7 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
           doc.passwd.should == 'secret'
         end
 
-        should "typecast key values" do
+        should "type cast key values" do
           doc = @document.new(:name => 1234, :age => '21')
           doc.name.should == '1234'
           doc.age.should == 21
@@ -463,18 +478,18 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
       context "reading a key before typcasting" do
         should "work for defined keys" do
           doc = @document.new(:name => 12)
-          doc.name_before_typecast.should == 12
+          doc.name_before_type_cast.should == 12
         end
 
         should "raise no method error for undefined keys" do
           doc = @document.new
-          lambda { doc.foo_before_typecast }.should raise_error(NoMethodError)
+          lambda { doc.foo_before_type_cast }.should raise_error(NoMethodError)
         end
 
         should "be accessible for use in a document" do
           @document.class_eval do
             def untypcasted_name
-              read_key_before_typecast(:name)
+              read_key_before_type_cast(:name)
             end
           end
 
@@ -496,7 +511,7 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
           lambda { doc.fart = 'poof!' }.should raise_error(NoMethodError)
         end
 
-        should "typecast value" do
+        should "type cast value" do
           doc = @document.new
           doc.name = 1234
           doc.name.should == '1234'
@@ -548,11 +563,6 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
         end
       end
 
-      should "call inspect on the document's attributes instead of to_s when inspecting the document" do
-        doc = @document.new(:animals => %w(dog cat))
-        doc.inspect.should include(%(animals: ["dog", "cat"]))
-      end
-
       context "equality" do
         setup do
           @oid = BSON::ObjectId.new
@@ -639,6 +649,29 @@ class EmbeddedDocumentTest < Test::Unit::TestCase
           @doc.options['baz'].should == 'wick'
         end
       end
+
+      context "#save!" do
+         setup do
+           @root = DocWithAValidation.create(:name => "Root")
+           @doc = @root.e_doc_with_a_validations.build :name => "Embedded"
+         end
+
+         should "should save when valid" do
+           @doc.save!
+           @root.reload.e_doc_with_a_validations.first.should == @doc
+         end
+
+         should "should raise errors when invalid" do
+           @doc.name = ''
+           lambda{ @doc.save! }.should raise_error(MongoMapper::DocumentNotValid, "Validation failed: Name can't be empty")
+         end
+
+         should "should raise errors when root document is invalid" do
+           @root.name = ''
+           @root.save(:validate => false)
+           lambda{ @doc.save! }.should raise_error(MongoMapper::DocumentNotValid, "Foo")
+         end
+       end
     end # instance of a embedded document
   end
 end

data/test/unit/test_identity_map_middleware.rb

@@ -0,0 +1,34 @@
+require 'test_helper'
+require 'rack/test'
+
+class IdentityMapMiddlewareTest < Test::Unit::TestCase
+  include Rack::Test::Methods
+
+  def app
+    @app ||= Rack::Builder.new do
+      use MongoMapper::Middleware::IdentityMap
+      map "/" do
+        run lambda {|env| [200, {}, []] }
+      end
+      map "/fail" do
+        run lambda {|env| raise "FAIL!" }
+      end
+    end.to_app
+  end
+
+  context "with a successful request" do
+    should "clear the identity map" do
+      MongoMapper::Plugins::IdentityMap.expects(:clear).twice
+      get '/'
+    end
+  end
+
+  context "when the request raises an error" do
+    should "clear the identity map" do
+      MongoMapper::Plugins::IdentityMap.expects(:clear).twice
+      get '/fail' rescue nil
+    end
+  end
+
+
+end

data/test/unit/test_inspect.rb

@@ -0,0 +1,22 @@
+require 'test_helper'
+
+class InspectTest < Test::Unit::TestCase
+  context "#inspect" do
+    setup do
+      @document = Doc('User') do
+        key :name,  String
+        key :age,   Integer
+      end
+
+      @doc = @document.new(:name => 'John', :age => 29)
+    end
+
+    should "print out attributes in alpha sorted order" do
+      @doc.inspect.should =~ /_id:.*, age: 29, name: "John"/
+    end
+
+    should "include class name" do
+      @doc.inspect.should =~ /^#<User/
+    end
+  end
+end

data/test/unit/test_key.rb

@@ -12,7 +12,7 @@ class FooType < Struct.new(:bar)
 end
 
 class KeyTest < Test::Unit::TestCase
-  include MongoMapper::Plugins::Keys
+  Key = MongoMapper::Plugins::Keys::Key
 
   context "Initializing a new key" do
     should "allow setting the name" do
@@ -101,6 +101,21 @@ class KeyTest < Test::Unit::TestCase
     end
   end
 
+  context "for an array with :typecast option of Date" do
+    setup   { @key = Key.new(:dates, Array, :typecast => 'Date') }
+    subject { @key }
+
+    should "cast each element correctly when get" do
+      dates = [Date.yesterday, Date.today, Date.tomorrow.to_s]
+      subject.get(dates).should == dates.map { |date| Date.from_mongo(date) }
+    end
+
+    should "cast each element correctly when set" do
+      dates = [Date.yesterday, Date.today, Date.tomorrow.to_s]
+      subject.set(dates).should == dates.map { |date| Date.to_mongo(date) }
+    end
+  end
+
   context "for a set with :typecast option" do
     setup   { @key = Key.new(:user_ids, Set, :typecast => 'ObjectId') }
     subject { @key }
@@ -166,6 +181,11 @@ class KeyTest < Test::Unit::TestCase
       @key.get(nil).should == 'baz'
     end
 
+    should "return a dup of the default value" do
+      @key.get(nil).replace('bar')
+      @key.get(nil).should == 'baz'
+    end
+
     should "return value if not blank" do
       @key.get('foobar').should == 'foobar'
     end