mongomodel 0.1

data/spec/mongomodel/concerns/callbacks_spec.rb

@@ -0,0 +1,90 @@
+require 'spec_helper'
+
+module MongoModel
+  specs_for(EmbeddedDocument) do
+    describe "callbacks" do
+      define_class(:ChildDocument, EmbeddedDocument) do
+        include MongoModel::CallbackHelpers
+      end
+      
+      define_class(:ParentDocument, Document) do
+        property :child, ChildDocument
+      end
+      
+      let(:child) { ChildDocument.new }
+      let(:parent) { ParentDocument.create!(:child => child) }
+      
+      it "should run each type of callback when initializing" do
+        instance = ChildDocument.new
+        instance.should run_callbacks(:after_initialize)
+      end
+      
+      it "should run each type of callback on find" do
+        instance = ParentDocument.find(parent.id).child
+        instance.should run_callbacks(:after_initialize, :after_find)
+      end
+      
+      it "should run each type of callback when validating a new document" do
+        instance = ChildDocument.new
+        instance.valid?
+        instance.should run_callbacks(:after_initialize, :before_validation, :after_validation)
+      end
+      
+      it "should run each type of callback when validating an existing document" do
+        instance = ParentDocument.find(parent.id).child
+        instance.valid?
+        instance.should run_callbacks(:after_initialize, :after_find, :before_validation, :after_validation)
+      end
+      
+      it "should run each type of callback when creating a document" do
+        instance = ParentDocument.create!(:child => ChildDocument.new)
+        instance.child.should run_callbacks(:after_initialize, :before_validation, :after_validation, :before_save, :before_create, :after_create, :after_save)
+      end
+      
+      it "should run each type of callback when saving an existing document" do
+        instance = ParentDocument.find(parent.id)
+        instance.save
+        instance.child.should run_callbacks(:after_initialize, :after_find, :before_validation, :after_validation, :before_save, :before_update, :after_update, :after_save)
+      end
+      
+      it "should run each type of callback when destroying a document" do
+        instance = ParentDocument.find(parent.id)
+        instance.destroy
+        instance.child.should run_callbacks(:after_initialize, :after_find, :before_destroy, :after_destroy)
+      end
+      
+      it "should not run destroy callbacks when deleting a document" do
+        instance = ParentDocument.find(parent.id)
+        instance.delete
+        instance.child.should run_callbacks(:after_initialize, :after_find)
+      end
+    end
+      
+    [ :before_save, :before_create ].each do |callback|
+      context "#{callback} callback return false" do
+        define_class(:ChildDocument, EmbeddedDocument) do
+          send(callback) { false }
+        end
+    
+        define_class(:ParentDocument, Document) do
+          property :child, ChildDocument
+        end
+    
+        let(:child) { ChildDocument.new }
+        let(:parent) { ParentDocument.new(:child => child) }
+        
+        describe "#save" do
+          it "should return false" do
+            parent.save.should be_false
+          end
+        end
+      
+        describe "#save!" do
+          it "should raise a MongoModel::DocumentNotSaved exception" do
+            lambda { parent.save! }.should raise_error(MongoModel::DocumentNotSaved)
+          end
+        end
+      end
+    end
+  end
+end

data/spec/mongomodel/concerns/logging_spec.rb

@@ -0,0 +1,20 @@
+require 'spec_helper'
+
+module MongoModel
+  specs_for(Document, EmbeddedDocument) do
+    describe "logging" do
+      define_class(:TestDocument, described_class)
+      
+      let(:logger) { mock('logger') }
+      before(:all) { MongoModel.logger = logger }
+      
+      it "should have a logger reader on the class" do
+        TestDocument.logger.should == logger
+      end
+      
+      it "should have a logger reader on the instance" do
+        TestDocument.new.logger.should == logger
+      end
+    end
+  end
+end

data/spec/mongomodel/concerns/pretty_inspect_spec.rb

@@ -0,0 +1,68 @@
+require 'spec_helper'
+
+module MongoModel
+  specs_for(Document, EmbeddedDocument) do
+    describe "#inspect" do
+      context "on base class" do
+        it "should return class name" do
+          described_class.inspect.should == described_class.name
+        end
+      end
+      
+      context "on subclasses" do
+        context "without properties" do
+          define_class(:TestDocument, described_class)
+      
+          it "should return class name" do
+            TestDocument.inspect.should == 'TestDocument()'
+          end
+        end
+      
+        context "with properties" do
+          define_class(:TestDocument, described_class) do
+            property :name, String
+            property :age, Integer
+          end
+        
+          it "should return class name and property definitions" do
+            TestDocument.inspect.should == 'TestDocument(name: String, age: Integer)'
+          end
+        end
+      end
+    end
+  end
+  
+  specs_for(Document) do
+    describe "#inspect" do
+      context "on subclass instances" do
+        define_class(:TestDocument, Document) do
+          property :name, String
+          property :age, Integer
+        end
+      
+        subject { TestDocument.new(:id => 'abc-123', :name => 'Doc name', :age => 54) }
+  
+        it "should return class name and property values" do
+          subject.inspect.should == '#<TestDocument id: abc-123, name: "Doc name", age: 54>'
+        end
+      end
+    end
+  end
+  
+  specs_for(EmbeddedDocument) do
+    describe "#inspect" do
+      context "on subclass instances" do
+        define_class(:TestDocument, EmbeddedDocument) do
+          property :name, String
+          property :age, Integer
+        end
+      
+        subject { TestDocument.new(:name => 'Doc name', :age => 54) }
+  
+        it "should return class name and property values" do
+          subject.inspect.should == '#<TestDocument name: "Doc name", age: 54>'
+        end
+      end
+    end
+  end
+end

data/spec/mongomodel/concerns/properties_spec.rb

@@ -0,0 +1,29 @@
+require 'spec_helper'
+
+module MongoModel
+  specs_for(Document, EmbeddedDocument) do
+    define_class(:Person, described_class) do
+      property :name, String
+      property :age, Integer, :default => 21
+    end
+    
+    define_class(:SkilledPerson, :Person) do
+      property :skill, String
+    end
+    
+    it "should have a populated hash of properties" do
+      Person.properties.should include({
+        :name => Properties::Property.new(:name, String),
+        :age => Properties::Property.new(:age, Integer, :default => 21)
+      })
+    end
+    
+    it "should extend properties in subclasses" do
+      SkilledPerson.properties.should include({
+        :name => Properties::Property.new(:name, String),
+        :age => Properties::Property.new(:age, Integer, :default => 21),
+        :skill => Properties::Property.new(:skill, String)
+      })
+    end
+  end
+end

data/spec/mongomodel/concerns/timestamps_spec.rb

@@ -0,0 +1,170 @@
+require 'spec_helper'
+
+module MongoModel
+  specs_for(Document, EmbeddedDocument) do
+    describe "#timestamps!" do
+      define_class(:TestDocument, described_class) do
+        timestamps!
+      end
+      
+      it "should define a Time property updated_at" do
+        TestDocument.properties.should include(:updated_at)
+        TestDocument.properties[:updated_at].type.should == Time
+      end
+      
+      it "should define a Time property created_at" do
+        TestDocument.properties.should include(:created_at)
+        TestDocument.properties[:created_at].type.should == Time
+      end
+    end
+    
+    context "with updated_at property" do
+      define_class(:TestDocument, described_class) do
+        property :updated_at, Time
+      end
+      
+      if specing?(EmbeddedDocument)
+        define_class(:ParentDocument, Document) do
+          property :child, TestDocument
+        end
+        
+        let(:parent) { ParentDocument.new(:child => subject) }
+        let(:doc) { parent }
+      else
+        let(:doc) { subject }
+      end
+      
+      subject { TestDocument.new }
+      
+      before(:each) do
+        @now = Time.now.utc
+        Time.stub!(:now).and_return(@now)
+      end
+      
+      it "should set the updated_at property to the current time when saved" do
+        doc.save
+        subject.updated_at.should == @now
+      end
+    end
+    
+    context "with updated_on property" do
+      define_class(:TestDocument, described_class) do
+        property :updated_on, Date
+      end
+      
+      if specing?(EmbeddedDocument)
+        define_class(:ParentDocument, Document) do
+          property :child, TestDocument
+        end
+        
+        let(:parent) { ParentDocument.new(:child => subject) }
+        let(:doc) { parent }
+      else
+        let(:doc) { subject }
+      end
+      
+      subject { TestDocument.new }
+      
+      it "should set the updated_on property to the current date when saved" do
+        doc.save
+        subject.updated_on.should == Date.today
+      end
+    end
+    
+    context "with created_at property" do
+      define_class(:TestDocument, described_class) do
+        property :created_at, Time
+      end
+      
+      if specing?(EmbeddedDocument)
+        define_class(:ParentDocument, Document) do
+          property :child, TestDocument
+        end
+        
+        let(:parent) { ParentDocument.new(:child => subject) }
+        let(:doc) { parent }
+      else
+        let(:doc) { subject }
+      end
+      
+      subject { TestDocument.new }
+      
+      before(:each) do
+        @now = Time.now.utc
+        Time.stub!(:now).and_return(@now)
+      end
+      
+      it "should set the created_at property to the current time when created" do
+        doc.save
+        subject.created_at.should == @now
+      end
+      
+      it "should not change the created_at property when updated" do
+        @next = 1.day.from_now
+        
+        Time.stub!(:now).and_return(@now)
+        
+        doc.save
+        
+        Time.stub!(:now).and_return(@next)
+        
+        doc.save
+        subject.created_at.should == @now
+      end
+      
+      it "should preserve created_at attribute when set explicitly" do
+        @a_year_ago = 1.year.ago
+        
+        subject.created_at = @a_year_ago
+        doc.save
+        
+        subject.created_at.should == @a_year_ago
+      end
+    end
+    
+    context "with created_on property" do
+      define_class(:TestDocument, described_class) do
+        property :created_on, Date
+      end
+      
+      if specing?(EmbeddedDocument)
+        define_class(:ParentDocument, Document) do
+          property :child, TestDocument
+        end
+        
+        let(:parent) { ParentDocument.new(:child => subject) }
+        let(:doc) { parent }
+      else
+        let(:doc) { subject }
+      end
+      
+      subject { TestDocument.new }
+      
+      it "should set the created_on property to the current date when created" do
+        doc.save
+        subject.created_on.should == Date.today
+      end
+      
+      it "should not change the created_on property when updated" do
+        doc.save
+        
+        @today = Date.today
+        @tomorrow = 1.day.from_now
+        
+        Time.stub!(:now).and_return(@tomorrow)
+        
+        doc.save
+        subject.created_on.should == @today
+      end
+      
+      it "should preserve created_on attribute when set explicitly" do
+        @a_year_ago = 1.year.ago.to_date
+        
+        subject.created_on = @a_year_ago
+        doc.save
+        
+        subject.created_on.should == @a_year_ago
+      end
+    end
+  end
+end

data/spec/mongomodel/concerns/validations_spec.rb

@@ -0,0 +1,159 @@
+require 'spec_helper'
+
+module MongoModel
+  module ValidationHelpers
+    def clear_validations! 
+      reset_callbacks(:validate)
+    end
+  end
+  
+  specs_for(Document, EmbeddedDocument) do
+    describe "validations" do
+      define_class(:TestDocument, described_class) do
+        property :title, String
+        validates_presence_of :title
+        
+        extend MongoModel::ValidationHelpers
+      end
+      
+      if specing?(EmbeddedDocument)
+        define_class(:ParentDocument, Document) do
+          property :child, TestDocument
+        end
+        
+        let(:child) { TestDocument.new }
+        let(:parent) { ParentDocument.new(:child => child) }
+        let(:doc) { parent }
+        
+        subject { parent.child }
+      else
+        let(:doc) { TestDocument.new }
+        
+        subject { doc }
+      end
+      
+      it "should have an errors collection" do
+        subject.errors.should be_an_instance_of(ActiveModel::Errors)
+      end
+      
+      context "when validations are not met" do
+        before(:each) { subject.valid? }
+        
+        it { should_not be_valid }
+        it { should have(1).error }
+      end
+      
+      describe "validation on create" do
+        before(:each) do
+          TestDocument.clear_validations!
+          TestDocument.validates_presence_of :title, :on => :create
+        end
+        
+        context "new document" do
+          it { should_not be_valid }
+        end
+        
+        context "existing document" do
+          before(:each) do
+            subject.title = 'Valid title'
+            doc.save!
+            subject.title = nil
+          end
+          
+          it { should be_valid }
+        end
+      end
+      
+      describe "validation on update" do
+        before(:each) do
+          TestDocument.clear_validations!
+          TestDocument.validates_presence_of :title, :on => :update
+        end
+        
+        context "new document" do
+          it { should be_valid }
+        end
+      
+        context "existing document" do
+          before(:each) do
+            subject.title = 'Valid title'
+            doc.save!
+            subject.title = nil
+          end
+        
+          it { should_not be_valid }
+        end
+      end
+    end
+    
+    describe "validation shortcuts" do
+      define_class(:TestDocument, described_class)
+      
+      describe ":required => true" do
+        it "should add a validates_presence_of validation" do
+          TestDocument.should_receive(:validates_presence_of).with(:title)
+          TestDocument.property :title, String, :required => true
+        end
+      end
+      
+      describe ":format => /regex/" do
+        it "should add a validates_format_of validation" do
+          TestDocument.should_receive(:validates_format_of).with(:email, /\A([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})\Z/i)
+          TestDocument.property :email, String, :format => /\A([^@\s]+)@((?:[-a-z0-9]+\.)+[a-z]{2,})\Z/i
+        end
+      end
+    end
+  end
+  
+  specs_for(EmbeddedDocument) do
+    describe "validations" do
+      define_class(:ChildDocument, EmbeddedDocument) do
+        property :title, String
+        validates_presence_of :title
+      
+        extend MongoModel::ValidationHelpers
+      end
+    
+      define_class(:ParentDocument, Document) do
+        property :child, ChildDocument
+      end
+      
+      let(:child) { ChildDocument.new }
+      let(:parent) { ParentDocument.new(:child => child) }
+    
+      subject { parent.child }
+    
+      context "child document is invalid" do
+        before(:each) { parent.valid? }
+        
+        specify "parent should be invalid" do
+          parent.should_not be_valid
+        end
+        
+        specify "parent should have error on child" do
+          parent.should have(1).error
+          parent.errors[:child].should_not be_nil
+        end
+        
+        specify "child should be invalid" do
+          child.should_not be_valid
+        end
+        
+        specify "child should have error" do
+          child.errors[:title].should_not be_nil
+        end
+      end
+      
+      context "parent has no child" do
+        before(:each) do
+          parent.child = nil
+          parent.valid?
+        end
+        
+        specify "parent should be valid" do
+          parent.should be_valid
+        end
+      end
+    end
+  end
+end