ardm-core 1.2.1

data/spec/semipublic/property/class_spec.rb

@@ -0,0 +1,33 @@
+require '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_should_behave_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a class' do
+      @property.typecast(@model).should equal(@model)
+    end
+
+    it 'returns the class if found' do
+      @property.typecast(@model.name).should eql(@model)
+    end
+
+    it 'does not typecast non-class values' do
+      @property.typecast('NoClass').should eql('NoClass')
+    end
+  end
+end

data/spec/semipublic/property/date_spec.rb

@@ -0,0 +1,43 @@
+require '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_should_behave_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'
+        )
+
+        result.should be_kind_of(Date)
+        result.year.should eql(2007)
+        result.month.should eql(3)
+        result.day.should eql(25)
+      end
+    end
+
+    describe 'and value is a string' do
+      it 'parses the string' do
+        result = @property.typecast('Dec 20th, 2006')
+        result.month.should == 12
+        result.day.should == 20
+        result.year.should == 2006
+      end
+    end
+
+    it 'does not typecast non-date values' do
+      @property.typecast('not-date').should eql('not-date')
+    end
+  end
+end

data/spec/semipublic/property/date_time_spec.rb

@@ -0,0 +1,46 @@
+require '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_should_behave_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'
+        )
+
+        result.should be_kind_of(DateTime)
+        result.year.should eql(2006)
+        result.month.should eql(11)
+        result.day.should eql(23)
+        result.hour.should eql(12)
+        result.min.should eql(0)
+        result.sec.should eql(0)
+      end
+    end
+
+    describe 'and value is a string' do
+      it 'parses the string' do
+        @property.typecast('Dec, 2006').month.should == 12
+      end
+    end
+
+    it 'does not typecast non-datetime values' do
+      @property.typecast('not-datetime').should eql('not-datetime')
+    end
+  end
+end

data/spec/semipublic/property/decimal_spec.rb

@@ -0,0 +1,83 @@
+require '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_should_behave_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a decimal' do
+      @value = BigDecimal('24.0')
+      @property.typecast(@value).should equal(@value)
+    end
+
+    it 'returns decimal representation of a zero string integer' do
+      @property.typecast('0').should eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string integer' do
+      @property.typecast('24').should eql(BigDecimal('24.0'))
+    end
+
+    it 'returns decimal representation of a negative string integer' do
+      @property.typecast('-24').should eql(BigDecimal('-24.0'))
+    end
+
+    it 'returns decimal representation of a zero string float' do
+      @property.typecast('0.0').should eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string float' do
+      @property.typecast('24.35').should eql(BigDecimal('24.35'))
+    end
+
+    it 'returns decimal representation of a negative string float' do
+      @property.typecast('-24.35').should eql(BigDecimal('-24.35'))
+    end
+
+    it 'returns decimal representation of a zero string float, with no leading digits' do
+      @property.typecast('.0').should eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive string float, with no leading digits' do
+      @property.typecast('.41').should eql(BigDecimal('0.41'))
+    end
+
+    it 'returns decimal representation of a zero integer' do
+      @property.typecast(0).should eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive integer' do
+      @property.typecast(24).should eql(BigDecimal('24.0'))
+    end
+
+    it 'returns decimal representation of a negative integer' do
+      @property.typecast(-24).should eql(BigDecimal('-24.0'))
+    end
+
+    it 'returns decimal representation of a zero float' do
+      @property.typecast(0.0).should eql(BigDecimal('0.0'))
+    end
+
+    it 'returns decimal representation of a positive float' do
+      @property.typecast(24.35).should eql(BigDecimal('24.35'))
+    end
+
+    it 'returns decimal representation of a negative float' do
+      @property.typecast(-24.35).should 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
+        @property.typecast(value).should equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/discriminator_spec.rb

@@ -0,0 +1,19 @@
+require '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_should_behave_like 'A semipublic Property'
+end

data/spec/semipublic/property/float_spec.rb

@@ -0,0 +1,82 @@
+require '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_should_behave_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if a float' do
+      @value = 24.0
+      @property.typecast(@value).should equal(@value)
+    end
+
+    it 'returns float representation of a zero string integer' do
+      @property.typecast('0').should eql(0.0)
+    end
+
+    it 'returns float representation of a positive string integer' do
+      @property.typecast('24').should eql(24.0)
+    end
+
+    it 'returns float representation of a negative string integer' do
+      @property.typecast('-24').should eql(-24.0)
+    end
+
+    it 'returns float representation of a zero string float' do
+      @property.typecast('0.0').should eql(0.0)
+    end
+
+    it 'returns float representation of a positive string float' do
+      @property.typecast('24.35').should eql(24.35)
+    end
+
+    it 'returns float representation of a negative string float' do
+      @property.typecast('-24.35').should eql(-24.35)
+    end
+
+    it 'returns float representation of a zero string float, with no leading digits' do
+      @property.typecast('.0').should eql(0.0)
+    end
+
+    it 'returns float representation of a positive string float, with no leading digits' do
+      @property.typecast('.41').should eql(0.41)
+    end
+
+    it 'returns float representation of a zero integer' do
+      @property.typecast(0).should eql(0.0)
+    end
+
+    it 'returns float representation of a positive integer' do
+      @property.typecast(24).should eql(24.0)
+    end
+
+    it 'returns float representation of a negative integer' do
+      @property.typecast(-24).should eql(-24.0)
+    end
+
+    it 'returns float representation of a zero decimal' do
+      @property.typecast(BigDecimal('0.0')).should eql(0.0)
+    end
+
+    it 'returns float representation of a positive decimal' do
+      @property.typecast(BigDecimal('24.35')).should eql(24.35)
+    end
+
+    it 'returns float representation of a negative decimal' do
+      @property.typecast(BigDecimal('-24.35')).should 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
+        @property.typecast(value).should equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/integer_spec.rb

@@ -0,0 +1,82 @@
+require '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_should_behave_like 'A semipublic Property'
+
+  describe '#typecast_to_primitive' do
+    it 'returns same value if an integer' do
+      @value = 24
+      @property.typecast(@value).should equal(@value)
+    end
+
+    it 'returns integer representation of a zero string integer' do
+      @property.typecast('0').should eql(0)
+    end
+
+    it 'returns integer representation of a positive string integer' do
+      @property.typecast('24').should eql(24)
+    end
+
+    it 'returns integer representation of a negative string integer' do
+      @property.typecast('-24').should eql(-24)
+    end
+
+    it 'returns integer representation of a zero string float' do
+      @property.typecast('0.0').should eql(0)
+    end
+
+    it 'returns integer representation of a positive string float' do
+      @property.typecast('24.35').should eql(24)
+    end
+
+    it 'returns integer representation of a negative string float' do
+      @property.typecast('-24.35').should eql(-24)
+    end
+
+    it 'returns integer representation of a zero string float, with no leading digits' do
+      @property.typecast('.0').should eql(0)
+    end
+
+    it 'returns integer representation of a positive string float, with no leading digits' do
+      @property.typecast('.41').should eql(0)
+    end
+
+    it 'returns integer representation of a zero float' do
+      @property.typecast(0.0).should eql(0)
+    end
+
+    it 'returns integer representation of a positive float' do
+      @property.typecast(24.35).should eql(24)
+    end
+
+    it 'returns integer representation of a negative float' do
+      @property.typecast(-24.35).should eql(-24)
+    end
+
+    it 'returns integer representation of a zero decimal' do
+      @property.typecast(BigDecimal('0.0')).should eql(0)
+    end
+
+    it 'returns integer representation of a positive decimal' do
+      @property.typecast(BigDecimal('24.35')).should eql(24)
+    end
+
+    it 'returns integer representation of a negative decimal' do
+      @property.typecast(BigDecimal('-24.35')).should eql(-24)
+    end
+
+    [ Object.new, true, '00.0', '0.', '-.0', 'string' ].each do |value|
+      it "does not typecast non-numeric value #{value.inspect}" do
+        @property.typecast(value).should equal(value)
+      end
+    end
+  end
+end

data/spec/semipublic/property/lookup_spec.rb

@@ -0,0 +1,29 @@
+require '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 'should provide access to Property classes' do
+      @klass::Serial.should == DataMapper::Property::Serial
+    end
+
+    it 'should provide access to Property classes from outside of the Property namespace' do
+      @klass::OtherProperty.should be(Foo::OtherProperty)
+    end
+
+    it 'should not provide access to unknown Property classes' do
+      lambda {
+        @klass::Bla
+      }.should raise_error(NameError)
+    end
+  end
+end

data/spec/semipublic/property/serial_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+describe DataMapper::Property::Serial do
+  before :all do
+    @name          = :id
+    @type          = described_class
+    @value         = 1
+    @other_value   = 2
+    @invalid_value = 'foo'
+  end
+
+  it_should_behave_like 'A semipublic Property'
+end

data/spec/semipublic/property/string_spec.rb

@@ -0,0 +1,13 @@
+require 'spec_helper'
+
+describe DataMapper::Property::String do
+  before :all do
+    @name          = :name
+    @type          = described_class
+    @value         = 'value'
+    @other_value   = 'return value'
+    @invalid_value = 1
+  end
+
+  it_should_behave_like 'A semipublic Property'
+end