sbf-dm-core 1.3.0.beta

data/spec/semipublic/collection_spec.rb

@@ -0,0 +1,110 @@
+require_relative '../spec_helper'
+
+# run the specs once with a loaded collection and once not
+[ false, true ].each do |loaded|
+  describe DataMapper::Collection do
+    extend DataMapper::Spec::CollectionHelpers::GroupMethods
+
+    self.loaded = loaded
+
+    before :all do
+      module ::Blog
+        class Article
+          include DataMapper::Resource
+
+          property :id,      Serial
+          property :title,   String
+          property :content, Text
+          property :subtitle, String
+        end
+      end
+
+      @article_model = Blog::Article
+    end
+
+    supported_by :all do
+      before :all do
+        @article_repository = @repository
+        @articles_query     = DataMapper::Query.new(@article_repository, @article_model, :title => 'Sample Article')
+
+        @article = @article_model.create(:title => 'Sample Article', :content => 'Sample')
+
+        @articles = @article_model.all(@articles_query)
+
+        @articles.entries if loaded
+      end
+
+      it { expect(DataMapper::Collection).to respond_to(:new) }
+
+      describe '.new' do
+        describe 'with resources' do
+          before :all do
+            @return = @collection = DataMapper::Collection.new(@articles_query, [ @article ])
+          end
+
+          it 'returns a Collection' do
+            expect(@return).to be_kind_of(DataMapper::Collection)
+          end
+
+          it 'is loaded' do
+            expect(@return).to be_loaded
+          end
+
+          it 'contains the article' do
+            expect(@collection).to eq [ @article ]
+          end
+        end
+
+        describe 'with no resources' do
+          before :all do
+            @return = @collection = DataMapper::Collection.new(@articles_query)
+          end
+
+          it 'returns a Collection' do
+            expect(@return).to be_kind_of(DataMapper::Collection)
+          end
+
+          it 'is not loaded' do
+            expect(@return).not_to be_loaded
+          end
+
+          it 'contains the article' do
+            expect(@collection).to eq [ @article ]
+          end
+        end
+      end
+
+      it { expect(@articles).to respond_to(:query) }
+
+      describe '#query' do
+        before :all do
+          @return = @articles.query
+        end
+
+        it 'returns a Query' do
+          expect(@return).to be_kind_of(DataMapper::Query)
+        end
+
+        it 'returns expected Query' do
+          expect(@return).to eql(@articles_query)
+        end
+      end
+
+      it { expect(@articles).to respond_to(:repository) }
+
+      describe '#repository' do
+        before :all do
+          @return = @repository = @articles.repository
+        end
+
+        it 'returns a Repository' do
+          expect(@return).to be_kind_of(DataMapper::Repository)
+        end
+
+        it 'is expected Repository' do
+          expect(@repository).to eq @article_repository
+        end
+      end
+    end
+  end
+end

data/spec/semipublic/model_spec.rb

@@ -0,0 +1,96 @@
+require_relative '../spec_helper'
+
+describe DataMapper::Model do
+
+  it { is_expected.to respond_to(:append_inclusions) }
+
+  describe '.append_inclusions' do
+    module ::Inclusions
+      def new_method
+      end
+    end
+
+    describe 'before the model is defined' do
+      before :all do
+        DataMapper::Model.append_inclusions(Inclusions)
+
+        class ::User
+          include DataMapper::Resource
+          property :id, Serial
+        end
+      end
+
+      it 'responds to :new_method' do
+        expect(User.new).to respond_to(:new_method)
+      end
+
+      after :all do
+        DataMapper::Model.extra_inclusions.delete(Inclusions)
+      end
+    end
+
+    describe 'after the model is defined' do
+      before :all do
+        class ::User
+          include DataMapper::Resource
+          property :id, Serial
+        end
+        DataMapper::Model.append_inclusions(Inclusions)
+      end
+
+      it 'responds to :new_method' do
+        expect(User.new).to respond_to(:new_method)
+      end
+
+      after :all do
+        DataMapper::Model.extra_inclusions.delete(Inclusions)
+      end
+    end
+  end
+
+  it { is_expected.to respond_to(:append_extensions) }
+
+  describe '.append_extensions' do
+    module ::Extensions
+      def new_method
+      end
+    end
+
+    describe 'before the model is defined' do
+      before :all do
+        DataMapper::Model.append_extensions(Extensions)
+
+        class ::User
+          include DataMapper::Resource
+          property :id, Serial
+        end
+      end
+
+      it 'responds to :new_method' do
+        expect(User).to respond_to(:new_method)
+      end
+
+      after :all do
+        DataMapper::Model.extra_extensions.delete(Extensions)
+      end
+    end
+
+    describe 'after the model is defined' do
+      before :all do
+        class ::User
+          include DataMapper::Resource
+          property :id, Serial
+        end
+        DataMapper::Model.append_extensions(Extensions)
+      end
+
+      it 'responds to :new_method' do
+        expect(User).to respond_to(:new_method)
+      end
+
+      after :all do
+        DataMapper::Model.extra_extensions.delete(Extensions)
+      end
+    end
+  end
+end

data/spec/semipublic/property/binary_spec.rb

@@ -0,0 +1,13 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Binary do
+  before :all do
+    @name          = :title
+    @type          = described_class
+    @value         = 'value'
+    @other_value   = 'return value'
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+end

data/spec/semipublic/property/boolean_spec.rb

@@ -0,0 +1,47 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Boolean do
+  before :all do
+    @name          = :active
+    @type          = described_class
+    @value         = true
+    @other_value   = false
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#valid?' do
+    [ true, false ].each do |value|
+      it "returns true when value is #{value.inspect}" do
+        expect(@property.valid?(value)).to be(true)
+      end
+    end
+
+    [ 'true', 'TRUE', '1', 1, 't', 'T', 'false', 'FALSE', '0', 0, 'f', 'F' ].each do |value|
+      it "returns false for #{value.inspect}" do
+        expect(@property.valid?(value)).to be(false)
+      end
+    end
+  end
+
+  describe '#typecast_to_primitive' do
+    [ true, 'true', 'TRUE', '1', 1, 't', 'T' ].each do |value|
+      it "returns true when value is #{value.inspect}" do
+        expect(@property.typecast(value)).to be(true)
+      end
+    end
+
+    [ false, 'false', 'FALSE', '0', 0, 'f', 'F' ].each do |value|
+      it "returns false when value is #{value.inspect}" do
+        expect(@property.typecast(value)).to be(false)
+      end
+    end
+
+    [ 'string', 2, 1.0, BigDecimal('1.0'), DateTime.now, Time.now, Date.today, Class, Object.new, ].each do |value|
+      it "does not typecast value #{value.inspect}" do
+        expect(@property.typecast(value)).to equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/class_spec.rb

@@ -0,0 +1,33 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Class do
+  before :all do
+    Object.send(:remove_const, :Foo) if defined?(Foo)
+    Object.send(:remove_const, :Bar) if defined?(Bar)
+
+    class ::Foo; end
+    class ::Bar; end
+
+    @name          = :type
+    @type          = described_class
+    @value         = Foo
+    @other_value   = Bar
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a class' do
+      expect(@property.typecast(@model)).to equal(@model)
+    end
+
+    it 'returns the class if found' do
+      expect(@property.typecast(@model.name)).to eql(@model)
+    end
+
+    it 'does not typecast non-class values' do
+      expect(@property.typecast('NoClass')).to eql('NoClass')
+    end
+  end
+end

data/spec/semipublic/property/date_spec.rb

@@ -0,0 +1,43 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Date do
+  before :all do
+    @name          = :created_on
+    @type          = described_class
+    @value         = Date.today
+    @other_value   = Date.today + 1
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    describe 'and value given as a hash with keys like :year, :month, etc' do
+      it 'builds a Date instance from hash values' do
+        result = @property.typecast(
+          'year'  => '2007',
+          'month' => '3',
+          'day'   => '25'
+        )
+
+        expect(result).to be_kind_of(Date)
+        expect(result.year).to eql(2007)
+        expect(result.month).to eql(3)
+        expect(result.day).to eql(25)
+      end
+    end
+
+    describe 'and value is a string' do
+      it 'parses the string' do
+        result = @property.typecast('Dec 20th, 2006')
+        expect(result.month).to eq 12
+        expect(result.day).to eq 20
+        expect(result.year).to eq 2006
+      end
+    end
+
+    it 'does not typecast non-date values' do
+      expect(@property.typecast('not-date')).to eql('not-date')
+    end
+  end
+end

data/spec/semipublic/property/date_time_spec.rb

@@ -0,0 +1,46 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::DateTime do
+  before :all do
+    @name          = :created_at
+    @type          = described_class
+    @value         = DateTime.now
+    @other_value   = DateTime.now + 15
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    describe 'and value given as a hash with keys like :year, :month, etc' do
+      it 'builds a DateTime instance from hash values' do
+        result = @property.typecast(
+          'year'  => '2006',
+          'month' => '11',
+          'day'   => '23',
+          'hour'  => '12',
+          'min'   => '0',
+          'sec'   => '0'
+        )
+
+        expect(result).to be_kind_of(DateTime)
+        expect(result.year).to eql(2006)
+        expect(result.month).to eql(11)
+        expect(result.day).to eql(23)
+        expect(result.hour).to eql(12)
+        expect(result.min).to eql(0)
+        expect(result.sec).to eql(0)
+      end
+    end
+
+    describe 'and value is a string' do
+      it 'parses the string' do
+        expect(@property.typecast('Dec, 2006').month).to eq 12
+      end
+    end
+
+    it 'does not typecast non-datetime values' do
+      expect(@property.typecast('not-datetime')).to eql('not-datetime')
+    end
+  end
+end

data/spec/semipublic/property/decimal_spec.rb

@@ -0,0 +1,83 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Decimal do
+  before :all do
+    @name          = :rate
+    @type          = described_class
+    @options       = { :precision => 5, :scale => 2 }
+    @value         = BigDecimal('1.0')
+    @other_value   = BigDecimal('2.0')
+    @invalid_value = true
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a decimal' do
+      @value = BigDecimal('24.0')
+      expect(@property.typecast(@value)).to equal(@value)
+    end
+
+    it 'returns decimal representation of a zero string integer' do
+      expect(@property.typecast('0')).to eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string integer' do
+      expect(@property.typecast('24')).to eql(BigDecimal('24.0'))
+    end
+
+    it 'returns decimal representation of a negative string integer' do
+      expect(@property.typecast('-24')).to eql(BigDecimal('-24.0'))
+    end
+
+    it 'returns decimal representation of a zero string float' do
+      expect(@property.typecast('0.0')).to eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string float' do
+      expect(@property.typecast('24.35')).to eql(BigDecimal('24.35'))
+    end
+
+    it 'returns decimal representation of a negative string float' do
+      expect(@property.typecast('-24.35')).to eql(BigDecimal('-24.35'))
+    end
+
+    it 'returns decimal representation of a zero string float, with no leading digits' do
+      expect(@property.typecast('.0')).to eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string float, with no leading digits' do
+      expect(@property.typecast('.41')).to eql(BigDecimal('0.41'))
+    end
+
+    it 'returns decimal representation of a zero integer' do
+      expect(@property.typecast(0)).to eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive integer' do
+      expect(@property.typecast(24)).to eql(BigDecimal('24.0'))
+    end
+
+    it 'returns decimal representation of a negative integer' do
+      expect(@property.typecast(-24)).to eql(BigDecimal('-24.0'))
+    end
+
+    it 'returns decimal representation of a zero float' do
+      expect(@property.typecast(0.0)).to eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive float' do
+      expect(@property.typecast(24.35)).to eql(BigDecimal('24.35'))
+    end
+
+    it 'returns decimal representation of a negative float' do
+      expect(@property.typecast(-24.35)).to eql(BigDecimal('-24.35'))
+    end
+
+    [ Object.new, true, '00.0', '0.', '-.0', 'string' ].each do |value|
+      it "does not typecast non-numeric value #{value.inspect}" do
+        expect(@property.typecast(value)).to equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/discriminator_spec.rb

@@ -0,0 +1,19 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Discriminator do
+  before :all do
+    Object.send(:remove_const, :Foo) if defined?(Foo)
+    Object.send(:remove_const, :Bar) if defined?(Bar)
+
+    class ::Foo; end
+    class ::Bar; end
+
+    @name          = :type
+    @type          = described_class
+    @value         = Foo
+    @other_value   = Bar
+    @invalid_value = 1
+  end
+
+  it_behaves_like 'A semipublic Property'
+end

data/spec/semipublic/property/float_spec.rb

@@ -0,0 +1,82 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Float do
+  before :all do
+    @name          = :rating
+    @type          = described_class
+    @value         = 0.1
+    @other_value   = 0.2
+    @invalid_value = '1'
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a float' do
+      @value = 24.0
+      expect(@property.typecast(@value)).to equal(@value)
+    end
+
+    it 'returns float representation of a zero string integer' do
+      expect(@property.typecast('0')).to eql(0.0)
+    end
+
+    it 'returns float representation of a positive string integer' do
+      expect(@property.typecast('24')).to eql(24.0)
+    end
+
+    it 'returns float representation of a negative string integer' do
+      expect(@property.typecast('-24')).to eql(-24.0)
+    end
+
+    it 'returns float representation of a zero string float' do
+      expect(@property.typecast('0.0')).to eql(0.0)
+    end
+
+    it 'returns float representation of a positive string float' do
+      expect(@property.typecast('24.35')).to eql(24.35)
+    end
+
+    it 'returns float representation of a negative string float' do
+      expect(@property.typecast('-24.35')).to eql(-24.35)
+    end
+
+    it 'returns float representation of a zero string float, with no leading digits' do
+      expect(@property.typecast('.0')).to eql(0.0)
+    end
+
+    it 'returns float representation of a positive string float, with no leading digits' do
+      expect(@property.typecast('.41')).to eql(0.41)
+    end
+
+    it 'returns float representation of a zero integer' do
+      expect(@property.typecast(0)).to eql(0.0)
+    end
+
+    it 'returns float representation of a positive integer' do
+      expect(@property.typecast(24)).to eql(24.0)
+    end
+
+    it 'returns float representation of a negative integer' do
+      expect(@property.typecast(-24)).to eql(-24.0)
+    end
+
+    it 'returns float representation of a zero decimal' do
+      expect(@property.typecast(BigDecimal('0.0'))).to eql(0.0)
+    end
+
+    it 'returns float representation of a positive decimal' do
+      expect(@property.typecast(BigDecimal('24.35'))).to eql(24.35)
+    end
+
+    it 'returns float representation of a negative decimal' do
+      expect(@property.typecast(BigDecimal('-24.35'))).to eql(-24.35)
+    end
+
+    [ Object.new, true, '00.0', '0.', '-.0', 'string' ].each do |value|
+      it "does not typecast non-numeric value #{value.inspect}" do
+        expect(@property.typecast(value)).to equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/integer_spec.rb

@@ -0,0 +1,82 @@
+require_relative '../../spec_helper'
+
+describe DataMapper::Property::Integer do
+  before :all do
+    @name          = :age
+    @type          = described_class
+    @value         = 1
+    @other_value   = 2
+    @invalid_value = '1'
+  end
+
+  it_behaves_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if an integer' do
+      @value = 24
+      expect(@property.typecast(@value)).to equal(@value)
+    end
+
+    it 'returns integer representation of a zero string integer' do
+      expect(@property.typecast('0')).to eql(0)
+    end
+
+    it 'returns integer representation of a positive string integer' do
+      expect(@property.typecast('24')).to eql(24)
+    end
+
+    it 'returns integer representation of a negative string integer' do
+      expect(@property.typecast('-24')).to eql(-24)
+    end
+
+    it 'returns integer representation of a zero string float' do
+      expect(@property.typecast('0.0')).to eql(0)
+    end
+
+    it 'returns integer representation of a positive string float' do
+      expect(@property.typecast('24.35')).to eql(24)
+    end
+
+    it 'returns integer representation of a negative string float' do
+      expect(@property.typecast('-24.35')).to eql(-24)
+    end
+
+    it 'returns integer representation of a zero string float, with no leading digits' do
+      expect(@property.typecast('.0')).to eql(0)
+    end
+
+    it 'returns integer representation of a positive string float, with no leading digits' do
+      expect(@property.typecast('.41')).to eql(0)
+    end
+
+    it 'returns integer representation of a zero float' do
+      expect(@property.typecast(0.0)).to eql(0)
+    end
+
+    it 'returns integer representation of a positive float' do
+      expect(@property.typecast(24.35)).to eql(24)
+    end
+
+    it 'returns integer representation of a negative float' do
+      expect(@property.typecast(-24.35)).to eql(-24)
+    end
+
+    it 'returns integer representation of a zero decimal' do
+      expect(@property.typecast(BigDecimal('0.0'))).to eql(0)
+    end
+
+    it 'returns integer representation of a positive decimal' do
+      expect(@property.typecast(BigDecimal('24.35'))).to eql(24)
+    end
+
+    it 'returns integer representation of a negative decimal' do
+      expect(@property.typecast(BigDecimal('-24.35'))).to eql(-24)
+    end
+
+    [ Object.new, true, '00.0', '0.', '-.0', 'string' ].each do |value|
+      it "does not typecast non-numeric value #{value.inspect}" do
+        expect(@property.typecast(value)).equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/lookup_spec.rb

@@ -0,0 +1,29 @@
+require_relative '../../spec_helper'
+require 'dm-core/property/lookup'
+
+describe DataMapper::Property::Lookup do
+  supported_by :all do
+    before :all do
+      Object.send(:remove_const, :Foo) if defined?(Foo)
+      @klass = Class.new { extend DataMapper::Model }
+
+      module Foo
+        class OtherProperty < DataMapper::Property::String; end
+      end
+    end
+
+    it 'provides access to Property classes' do
+      expect(@klass::Serial).to eq DataMapper::Property::Serial
+    end
+
+    it 'provides access to Property classes from outside of the Property namespace' do
+      expect(@klass::OtherProperty).to be(Foo::OtherProperty)
+    end
+
+    it 'does not provide access to unknown Property classes' do
+      expect {
+        @klass::Bla
+      }.to raise_error(NameError)
+    end
+  end
+end