ramsingla-mongomapper 0.2.1

data/test/test_key.rb

@@ -0,0 +1,200 @@
+require 'test_helper'
+
+class Address
+  include MongoMapper::EmbeddedDocument
+
+  key :address, String
+  key :city,    String
+  key :state,   String
+  key :zip,     Integer
+end
+
+class KeyTest < Test::Unit::TestCase
+  include MongoMapper
+
+  context "The Key Class" do
+    should "have the native types defined" do
+      Key::NativeTypes.should == [String, Float, Time, Integer, Boolean, Array, Hash, Ref]
+    end
+  end
+
+  context "Initializing a new key" do
+    should "allow setting the name" do
+      Key.new(:foo, String).name.should == 'foo'
+    end
+
+    should "allow setting the type" do
+      Key.new(:foo, Integer).type.should be(Integer)
+    end
+
+    should "allow setting options" do
+      Key.new(:foo, Integer, :required => true).options[:required].should be(true)
+    end
+
+    should "symbolize option keys" do
+      Key.new(:foo, Integer, 'required' => true).options[:required].should be(true)
+    end
+  end
+
+  context "A key" do
+    should "be equal to another key with same name and type" do
+      Key.new(:name, String).should == Key.new(:name, String)
+    end
+
+    should "not be equal to another key with different name" do
+      Key.new(:name, String).should_not == Key.new(:foo, String)
+    end
+
+    should "not be equal to another key with different type" do
+      Key.new(:name, String).should_not == Key.new(:name, Integer)
+    end
+
+    should "know if it is native" do
+      Key.new(:name, String).native?.should be_true
+    end
+
+    should "know if it is not native" do
+      klass = Class.new
+      Key.new(:name, klass).native?.should be_false
+    end
+
+    should "know if it is a embedded_document" do
+      klass = Class.new do
+        include MongoMapper::EmbeddedDocument
+      end
+      Key.new(:name, klass).embedded_document?.should be_true
+    end
+
+    should "know if it is not a embedded_document" do
+      Key.new(:name, String).embedded_document?.should be_false
+    end
+  end
+
+  context "setting a value" do
+    should "correctly typecast Strings" do
+      key = Key.new(:foo, String)
+      [21, '21'].each do |a|
+        key.set(a).should == '21'
+      end
+    end
+
+    should "correctly typecast Integers" do
+      key = Key.new(:foo, Integer)
+      [21, 21.0, '21'].each do |a|
+        key.set(a).should == 21
+      end
+    end
+
+    should "correctly typecast Floats" do
+      key = Key.new(:foo, Float)
+      [21, 21.0, '21'].each do |a|
+        key.set(a).should == 21.0
+      end
+    end
+
+    should "correctly typecast Times" do
+      key = Key.new(:foo, Time)
+      key.set('2000-01-01 01:01:01.123456').should == Time.local(2000, 1, 1, 1, 1, 1, 123456)
+    end
+
+    should_eventually "correctly typecast Dates" do
+      key = Key.new(:foo, Date)
+      key.set('2000-01-01').should == Date.new(2000, 1, 1)
+    end
+
+    should "correctly typecast Boolean" do
+      key = Key.new(:foo, Boolean)
+      ['false', false, 'f', '0', 0].each do |b|
+        key.set(b).should == false
+      end
+
+      ['true', true, 't', '1', 1].each do |b|
+        key.set(b).should == true
+      end
+    end
+
+    should "correctly typecast Array" do
+      key = Key.new(:foo, Array)
+      key.set([1,2,3,4]).should == [1,2,3,4]
+      key.set({'1' => '2', '3' => '4'}).should == [['1', '2'], ['3', '4']]
+      key.set('1').should == ['1']
+    end
+
+    should "correctly typecast Hash using indifferent access" do
+      key = Key.new(:foo, Hash)
+      key.set(:foo => 'bar')[:foo].should == 'bar'
+      key.set(:foo => 'bar')['foo'].should == 'bar'
+      key.set(:foo => {:bar => 'baz'})[:foo][:bar].should == 'baz'
+      key.set(:foo => {:bar => 'baz'})['foo']['bar'].should == 'baz'
+    end
+  end
+
+  context "getting a value" do
+    should "work" do
+      key = Key.new(:foo, String)
+      key.get('bar').should == 'bar'
+    end
+
+    context "for a key with a default value set" do
+      setup do
+        @key = Key.new(:foo, String, :default => 'baz')
+      end
+
+      should "return default value if value nil" do
+        @key.get(nil).should == 'baz'
+      end
+
+      should "return value if not blank" do
+        @key.get('foobar').should == 'foobar'
+      end
+    end
+
+    context "for a boolean key" do
+      should "allow setting default to false" do
+        Key.new(:active, Boolean, :default => false).get(nil).should be_false
+      end
+
+      should "allow setting default to true" do
+        Key.new(:active, Boolean, :default => true).get(nil).should be_true
+      end
+    end
+
+    context "for an array" do
+      should "return array" do
+        key = Key.new(:foo, Array)
+        key.get([1,2]).should == [1,2]
+      end
+
+      should "default to empty array" do
+        key = Key.new(:foo, Array)
+        key.get(nil).should == []
+      end
+    end
+
+    context "for a hash" do
+      should "default to empty hash" do
+        key = Key.new(:foo, Hash)
+        key.get(nil).should == {}
+      end
+
+      should "use hash with indifferent access" do
+        key = Key.new(:foo, Hash)
+        key.get({:foo => 'bar'})['foo'].should == 'bar'
+        key.get({:foo => 'bar'})[:foo].should == 'bar'
+      end
+    end
+
+    context "for a embedded_document" do
+      should "default to nil" do
+        key = Key.new(:foo, Address)
+        key.get(nil).should be_nil
+      end
+
+      should "return instance if instance" do
+        address = Address.new(:city => 'South Bend', :state => 'IN', :zip => 46544)
+        key = Key.new(:foo, Address)
+        key.get(address).should == address
+      end
+    end
+  end
+end # KeyTest

data/test/test_mongomapper.rb

@@ -0,0 +1,28 @@
+require 'test_helper'
+
+class Address; end
+
+class MongoMapperTest < Test::Unit::TestCase  
+  should "be able to write and read connection" do
+    conn = XGen::Mongo::Driver::Mongo.new
+    MongoMapper.connection = conn
+    MongoMapper.connection.should == conn
+  end
+  
+  should "default connection to new mongo ruby driver" do
+    MongoMapper.connection = nil
+    MongoMapper.connection.should be_instance_of(XGen::Mongo::Driver::Mongo)
+  end
+  
+  should "be able to write and read default database" do
+    MongoMapper.database = DefaultDatabase
+    MongoMapper.database.should be_instance_of(XGen::Mongo::Driver::DB)
+    MongoMapper.database.name.should == DefaultDatabase
+  end
+  
+  should "have document not found error" do
+    lambda {
+      MongoMapper::DocumentNotFound
+    }.should_not raise_error
+  end
+end

data/test/test_observing.rb

@@ -0,0 +1,101 @@
+require 'test_helper'
+
+class Comment
+  include MongoMapper::Document
+  
+  key :name, String
+  key :body, String
+  
+  attr_accessor :callers
+  before_validation :record_callers
+
+  def after_validation
+    record_callers
+  end
+
+  def record_callers
+    callers << self.class if callers
+  end
+end
+
+class Article
+  include MongoMapper::Document
+  
+  key :title, String
+  key :body, String
+end
+
+class CommentObserver < MongoMapper::Observer
+  attr_accessor :callers
+
+  def after_validation(model)
+    callers << self.class if callers
+  end
+end
+
+class AuditObserver < MongoMapper::Observer
+  observe Article, Comment
+  attr_reader :document
+  
+  def after_validation(document)
+    @document = document
+  end
+end
+
+class GlobalObserver < MongoMapper::Observer
+  observe Article, Comment
+  attr_reader :document
+  
+  def before_save(document)
+    @document = document
+  end
+end
+
+class NonAutomaticObserver < MongoMapper::Observer
+  observe Comment
+  attr_reader :comment
+  
+  def after_validation(comment)
+    @comment = comment
+  end
+end
+
+class ObserverTest < Test::Unit::TestCase  
+  should "fire model callbacks before observer" do
+    callers = []
+    comment = Comment.new
+    comment.callers = callers
+
+    CommentObserver.instance.callers = callers
+
+    comment.valid?
+    callers.should == [Comment, Comment, CommentObserver]
+  end
+  
+  should "automatically observe model based on name when possible" do
+    CommentObserver.observed_class.should == Comment
+  end
+  
+  should "be able to observe other models using observe" do
+    obs = NonAutomaticObserver.instance
+    comment = Comment.new(:name => 'John Nunemaker', :body => 'is awesome')
+    comment.valid?
+    obs.comment.name.should == 'John Nunemaker'
+    obs.comment.body.should == 'is awesome'
+  end
+  
+  should "be able to observe multiple models" do
+    obs = AuditObserver.instance
+    comment = Comment.new(:name => 'Steve Smith', :body => 'is awesome')
+    comment.valid?
+    
+    obs.document.name.should == 'Steve Smith'
+    obs.document.body.should == 'is awesome'
+    
+    article = Article.new(:title => 'Ordered List Is Awesome', :body => 'Learn to accept it!')
+    article.valid?
+    
+    obs.document.title.should == 'Ordered List Is Awesome'
+    obs.document.body.should == 'Learn to accept it!'
+  end
+end

data/test/test_rails_compatibility.rb

@@ -0,0 +1,29 @@
+require 'test_helper'
+
+class TestRailsCompatibility < Test::Unit::TestCase
+  def setup
+    @document = Class.new do
+      include MongoMapper::Document
+    end
+  end
+
+  should "have to_param that returns id" do
+    instance = @document.create('_id' => '1234')
+    instance.to_param.should == '1234'
+  end
+
+  should "alias new to new_record?" do
+    instance = @document.new
+    instance.new_record?.should == instance.new?
+  end
+
+  should "alias many to has_many" do
+    @document.should respond_to(:has_many)
+    @document.method(:has_many).should == @document.method(:many)
+  end
+
+  should "have column names" do
+    @document.key :fname, String
+    @document.column_names.sort.should == ['_id', 'created_at', 'fname', 'updated_at']
+  end
+end

data/test/test_serializations.rb

@@ -0,0 +1,54 @@
+require 'test_helper'
+
+class SerializationTest < Test::Unit::TestCase
+  def setup
+    @document = Class.new do
+      include MongoMapper::EmbeddedDocument
+      key :name, String
+      key :age, Integer
+      key :awesome, Boolean
+      key :preferences, Hash
+      key :created_at, Time
+    end
+    
+    @instance = @document.new(
+      :name        => 'John Doe',
+      :age         => 25,
+      :awesome     => true,
+      :preferences => {:language => 'Ruby'},
+      :created_at  => Time.now.change(:usec => 0)
+    )
+  end
+  
+  # [:xml, :json].each do |format|
+  [:json].each do |format|
+    context format do
+      should "be reversable" do
+        serialized = @instance.send("to_#{format}")
+        unserialized = @document.new.send("from_#{format}", serialized)
+
+        assert_equal @instance, unserialized
+      end
+      
+      should "allow attribute only filtering" do
+        serialized = @instance.send("to_#{format}", :only => [ :age, :name ])
+        unserialized = @document.new.send("from_#{format}", serialized)
+
+        assert_equal @instance.name, unserialized.name
+        assert_equal @instance.age, unserialized.age
+        assert_nil unserialized.awesome
+        assert_nil unserialized.created_at
+      end
+      
+      should "allow attribute except filtering" do
+        serialized = @instance.send("to_#{format}", :except => [ :age, :name ])
+        unserialized = @document.new.send("from_#{format}", serialized)
+        
+        assert_nil unserialized.name
+        assert_nil unserialized.age
+        assert_equal @instance.awesome, unserialized.awesome
+      end
+      
+    end
+  end
+end

data/test/test_validations.rb

@@ -0,0 +1,409 @@
+require 'test_helper'
+
+class ValidationsTest < Test::Unit::TestCase
+  context "Validations" do
+    setup do
+      @document = Class.new do
+        include MongoMapper::Document
+      end
+    end
+
+    context "Validating acceptance of" do
+      should "work with validates_acceptance_of macro" do
+        @document.key :terms, String
+        @document.validates_acceptance_of :terms
+        doc = @document.new(:terms => '')
+        doc.should have_error_on(:terms)
+        doc.terms = '1'
+        doc.should_not have_error_on(:terms)
+      end
+    end
+
+    context "validating confirmation of" do
+      should "work with validates_confirmation_of macro" do
+        @document.key :password, String
+        @document.validates_confirmation_of :password
+        doc = @document.new
+        doc.password = 'foobar'
+        doc.should have_error_on(:password)
+        doc.password_confirmation = 'foobar'
+        doc.should_not have_error_on(:password)
+      end
+    end
+
+    context "validating format of" do
+      should "work with validates_format_of macro" do
+        @document.key :name, String
+        @document.validates_format_of :name, :with => /.+/
+        doc = @document.new
+        doc.should have_error_on(:name)
+        doc.name = 'John'
+        doc.should_not have_error_on(:name)
+      end
+
+      should "work with :format shorcut key" do
+        @document.key :name, String, :format => /.+/
+        doc = @document.new
+        doc.should have_error_on(:name)
+        doc.name = 'John'
+        doc.should_not have_error_on(:name)
+      end
+    end
+
+    context "validating length of" do
+      should "work with validates_length_of macro" do
+        @document.key :name, String
+        @document.validates_length_of :name, :minimum => 5
+        doc = @document.new
+        doc.should have_error_on(:name)
+      end
+
+      context "with :length => integer shortcut" do
+        should "set maximum of integer provided" do
+          @document.key :name, String, :length => 5
+          doc = @document.new
+          doc.name = '123456'
+          doc.should have_error_on(:name)
+          doc.name = '12345'
+          doc.should_not have_error_on(:name)
+        end
+      end
+
+      context "with :length => range shortcut" do
+        setup do
+          @document.key :name, String, :length => 5..7
+        end
+
+        should "set minimum of range min" do
+          doc = @document.new
+          doc.should have_error_on(:name)
+          doc.name = '123456'
+          doc.should_not have_error_on(:name)
+        end
+
+        should "set maximum of range max" do
+          doc = @document.new
+          doc.should have_error_on(:name)
+          doc.name = '12345678'
+          doc.should have_error_on(:name)
+          doc.name = '123456'
+          doc.should_not have_error_on(:name)
+        end
+      end
+
+      context "with :length => hash shortcut" do
+        should "pass options through" do
+          @document.key :name, String, :length => {:minimum => 2}
+          doc = @document.new
+          doc.should have_error_on(:name)
+          doc.name = '12'
+          doc.should_not have_error_on(:name)
+        end
+      end
+    end # validates_length_of
+
+    context "Validating numericality of" do
+      should "work with validates_numericality_of macro" do
+        @document.key :age, Integer
+        @document.validates_numericality_of :age
+        doc = @document.new
+        doc.age = 'String'
+        doc.should have_error_on(:age)
+        doc.age = 23
+        doc.should_not have_error_on(:age)
+      end
+
+      context "with :numeric shortcut" do
+        should "work with integer or float" do
+          @document.key :weight, Float, :numeric => true
+          doc = @document.new
+          doc.weight = 'String'
+          doc.should have_error_on(:weight)
+          doc.weight = 23.0
+          doc.should_not have_error_on(:weight)
+          doc.weight = 23
+          doc.should_not have_error_on(:weight)
+        end
+      end
+
+      context "with :numeric shortcut on Integer key" do
+        should "only work with integers" do
+          @document.key :age, Integer, :numeric => true
+          doc = @document.new
+          doc.age = 'String'
+          doc.should have_error_on(:age)
+          doc.age = 23.1
+          doc.should have_error_on(:age)
+          doc.age = 23
+          doc.should_not have_error_on(:age)
+        end
+      end
+    end # numericality of
+
+    context "validating presence of" do
+      should "work with validates_presence_of macro" do
+        @document.key :name, String
+        @document.validates_presence_of :name
+        doc = @document.new
+        doc.should have_error_on(:name)
+      end
+
+      should "work with :required shortcut on key definition" do
+        @document.key :name, String, :required => true
+        doc = @document.new
+        doc.should have_error_on(:name)
+      end
+    end
+
+    context "validating uniqueness of" do
+      setup do
+        @document.key :name, String
+        @document.validates_uniqueness_of :name
+      end
+
+      should "not fail if object is new" do
+        doc = @document.new
+        doc.should_not have_error_on(:name)
+      end
+
+      should "allow to update an object" do
+        doc = @document.new("name" => "joe")
+        doc.save
+
+        @document \
+          .stubs(:find) \
+          .with(:first, :conditions => {:name => 'joe'}, :limit => 1) \
+          .returns(doc)
+
+        doc.name = "joe"
+        doc.valid?.should be_true
+        doc.should_not have_error_on(:name)
+      end
+
+      should "fail if object name is not unique" do
+        doc = @document.new("name" => "joe")
+        doc.save.should be_true
+
+        @document \
+          .stubs(:find) \
+          .with(:first, :conditions => {:name => 'joe'}, :limit => 1) \
+          .returns(doc)
+
+        doc2 = @document.new("name" => "joe")
+        doc2.should have_error_on(:name)
+      end
+    end
+    
+    context "validates uniqueness of with :unique shortcut" do
+      should "work" do
+        @document.key :name, String, :unique => true
+        
+        doc = @document.create(:name => 'John')
+        doc.should_not have_error_on(:name)
+        
+        @document \
+          .stubs(:find) \
+          .with(:first, :conditions => {:name => 'John'}, :limit => 1) \
+          .returns(doc)
+        
+        second_john = @document.create(:name => 'John')
+        second_john.should have_error_on(:name, 'has already been taken')
+      end
+    end
+    
+    context "validating exclusion of" do
+      should "throw error if enumerator not provided" do
+        @document.key :action, String
+        lambda {
+          @document.validates_exclusion_of :action
+        }.should raise_error(ArgumentError)
+      end
+      
+      should "work with validates_exclusion_of macro" do
+        @document.key :action, String
+        @document.validates_exclusion_of :action, :within => %w(kick run)
+        
+        doc = @document.new
+        doc.should_not have_error_on(:action)
+        
+        doc.action = 'fart'
+        doc.should_not have_error_on(:action)
+        
+        doc.action = 'kick'
+        doc.should have_error_on(:action, 'is reserved')
+      end
+      
+      should "not have error if allow nil is true and value is nil" do
+        @document.key :action, String
+        @document.validates_exclusion_of :action, :within => %w(kick run), :allow_nil => true
+        
+        doc = @document.new
+        doc.should_not have_error_on(:action)
+      end
+
+      should "not have error if allow blank is true and value is blank" do
+        @document.key :action, String
+        @document.validates_exclusion_of :action, :within => %w(kick run), :allow_nil => true
+        
+        doc = @document.new(:action => '')
+        doc.should_not have_error_on(:action)
+      end
+    end
+
+    context "validating inclusion of" do
+      should "throw error if enumerator not provided" do
+        @document.key :action, String
+        lambda {
+          @document.validates_inclusion_of :action
+        }.should raise_error(ArgumentError)
+      end
+      
+      should "work with validates_inclusion_of macro" do
+        @document.key :action, String
+        @document.validates_inclusion_of :action, :within => %w(kick run)
+        
+        doc = @document.new
+        doc.should have_error_on(:action, 'is not in the list')
+        
+        doc.action = 'fart'
+        doc.should have_error_on(:action, 'is not in the list')
+        
+        doc.action = 'kick'
+        doc.should_not have_error_on(:action)
+      end
+      
+      should "not have error if allow nil is true and value is nil" do
+        @document.key :action, String
+        @document.validates_inclusion_of :action, :within => %w(kick run), :allow_nil => true
+        
+        doc = @document.new
+        doc.should_not have_error_on(:action)
+      end
+      
+      should "not have error if allow blank is true and value is blank" do
+        @document.key :action, String
+        @document.validates_inclusion_of :action, :within => %w(kick run), :allow_blank => true
+        
+        doc = @document.new(:action => '')
+        doc.should_not have_error_on(:action)
+      end
+    end
+  end # Validations
+
+  context "Saving a new document that is invalid" do
+    setup do
+      @document = Class.new do
+        include MongoMapper::Document
+        key :name, String, :required => true
+      end
+
+      @document.collection.clear
+    end
+
+    should "not insert document" do
+      doc = @document.new
+      doc.save
+      @document.count.should == 0
+    end
+
+    should "populate document's errors" do
+      doc = @document.new
+      doc.errors.size.should == 0
+      doc.save
+      doc.errors.full_messages.should == ["Name can't be empty"]
+    end
+  end
+
+  context "Saving a document that is invalid (destructive)" do
+    setup do
+      @document = Class.new do
+        include MongoMapper::Document
+        key :name, String, :required => true
+      end
+
+      @document.collection.clear
+    end
+
+    should "raise error" do
+      doc = @document.new
+      lambda { doc.save! }.should raise_error(MongoMapper::DocumentNotValid)
+    end
+  end
+
+  context "Saving an existing document that is invalid" do
+    setup do
+      @document = Class.new do
+        include MongoMapper::Document
+        key :name, String, :required => true
+      end
+
+      @document.collection.clear
+      @doc = @document.create(:name => 'John Nunemaker')
+    end
+
+    should "not update document" do
+      @doc.name = nil
+      @doc.save
+      @document.find(@doc.id).name.should == 'John Nunemaker'
+    end
+
+    should "populate document's errors" do
+      @doc.name = nil
+      @doc.save
+      @doc.errors.full_messages.should == ["Name can't be empty"]
+    end
+  end
+
+  context "Adding validation errors" do
+    setup do
+      @document = Class.new do
+        include MongoMapper::Document
+        key :action, String
+        def action_present
+          errors.add(:action, 'is invalid') if action.blank?
+        end
+      end
+    end
+
+    should "work with validate callback" do
+      @document.validate :action_present
+
+      doc = @document.new
+      doc.action = nil
+      doc.should have_error_on(:action)
+
+      doc.action = 'kick'
+      doc.should_not have_error_on(:action)
+    end
+
+    should "work with validate_on_create callback" do
+      @document.validate_on_create :action_present
+
+      doc = @document.new
+      doc.action = nil
+      doc.should have_error_on(:action)
+
+      doc.action = 'kick'
+      doc.should_not have_error_on(:action)
+      doc.save
+
+      doc.action = nil
+      doc.should_not have_error_on(:action)
+    end
+
+    should "work with validate_on_update callback" do
+      @document.validate_on_update :action_present
+
+      doc = @document.new
+      doc.action = nil
+      doc.should_not have_error_on(:action)
+      doc.save
+
+      doc.action = nil
+      doc.should have_error_on(:action)
+
+      doc.action = 'kick'
+      doc.should_not have_error_on(:action)
+    end
+  end
+end