sbf-dm-validations 1.3.0.beta

data/spec/integration/numeric_validator/float_type_spec.rb

@@ -0,0 +1,90 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::BasketballPlayer' do
+  before :all  do
+    DataMapper::Validations::Fixtures::BasketballPlayer.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::BasketballPlayer.new(:name => "Michael Jordan", :height => 198.1, :weight => 97.2)
+  end
+
+  describe "with height as float" do
+    before :all  do
+      # no op in this case
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe "with height as integer" do
+    before :all  do
+      @model.height = 198
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe "with height as string containing only integers" do
+    before :all  do
+      @model.height = "198"
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe "with height as string containing a float" do
+    before :all do
+      @model.height = "198.1"
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe "with height as string containing a float that will be represented in scientific notation" do
+    before :all do
+      @model.height = '0.00004'
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe "with height as string containing random alphanumeric characters" do
+    before :all do
+      @height = 'height=198.1'
+      @model.height = "height=198.1"
+    end
+
+    it "it does not change the value" do
+      expect(@model.height).to eq @height
+    end
+
+    it_behaves_like 'invalid model'
+  end
+
+  describe "with height as string containing random punctuation characters" do
+    before :all do
+      @height = '$$ * $?'
+      @model.height = @height
+    end
+
+    it "it does not change the value" do
+      expect(@model.height).to eq @height
+    end
+
+    it_behaves_like 'invalid model'
+  end
+
+  describe "with nil height" do
+    before :all do
+      @model.height = nil
+      @model.valid?
+    end
+
+    # typecasting kicks in
+    it_behaves_like 'invalid model'
+
+    it "has a meaningful error message" do
+      expect(@model.errors.on(:height)).to eq [ 'Height must be a number' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/gt_with_float_type_spec.rb

@@ -0,0 +1,37 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::BasketballCourt' do
+  before :all do
+    DataMapper::Validations::Fixtures::BasketballCourt.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::BasketballCourt.valid_instance
+    @model.valid?
+  end
+
+  it_behaves_like 'valid model'
+
+
+  describe "with three point line distance of 7.2" do
+    before :all do
+      @model.three_point_line_distance = 7.2
+      @model.valid?
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+
+  describe "with three point line distance of 3.5" do
+    before :all do
+      @model.three_point_line_distance = 3.5
+      @model.valid?
+    end
+
+    it_behaves_like 'invalid model'
+
+    it "has a meaningful error message" do
+      expect(@model.errors.on(:three_point_line_distance)).to eq [ 'Three point line distance must be greater than 6.7' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/gte_with_float_type_spec.rb

@@ -0,0 +1,36 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::BasketballCourt' do
+  before :all do
+    DataMapper::Validations::Fixtures::BasketballCourt.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::BasketballCourt.valid_instance
+    @model.valid?
+  end
+
+  it_behaves_like 'valid model'
+
+
+  describe "with length of 15.0" do
+    before :all do
+      @model.length = 15.0
+      @model.valid?
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+  describe 'with length of 14.0' do
+    before :all do
+      @model.length = 14.0
+      @model.valid?
+    end
+
+    it_behaves_like 'invalid model'
+
+    it "has a meaningful error message" do
+      expect(@model.errors.on(:length)).to eq [ 'Length must be greater than or equal to 15.0' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/integer_only_true_spec.rb

@@ -0,0 +1,91 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'Country' do
+  before do
+    Country.auto_migrate!
+
+    @country = Country.new(:name => "Italy", :area => "301318")
+  end
+
+  describe "with area as integer" do
+    before do
+      # no op in this case
+    end
+
+    it "is valid" do
+      expect(@country).to be_valid
+    end
+  end
+
+
+  describe "with area as integer" do
+    before do
+      @country.area = 1603
+    end
+
+    it "is valid" do
+      expect(@country).to be_valid
+    end
+  end
+
+
+  describe "with area as string containing only integers" do
+    before do
+      @country.area = "301318"
+    end
+
+    it "is valid" do
+      expect(@country).to be_valid
+    end
+  end
+
+
+  describe "with area as string containing a float" do
+    before do
+      @country.area = "301318.6"
+    end
+
+    it "IS valid" do
+      expect(@country).to be_valid
+    end
+  end
+
+
+  describe "with area as string containing random alphanumeric characters" do
+    before do
+      @country.area = "area=51"
+    end
+
+    it "IS NOT valid" do
+      expect(@country).not_to be_valid
+    end
+  end
+
+
+  describe "with area as string containing random punctuation characters" do
+    before do
+      @country.area = "$$ * $?"
+    end
+
+    it "IS NOT valid" do
+      expect(@country).not_to be_valid
+    end
+  end
+
+
+  describe "with unknown area" do
+    before do
+      @country.area = nil
+    end
+
+    it "is NOT valid" do
+      expect(@country).not_to be_valid
+    end
+
+    it "has a meaningful error message on for the property" do
+      @country.valid?
+      expect(@country.errors.on(:area)).to eq [ 'Please use integers to specify area' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/integer_type_spec.rb

@@ -0,0 +1,86 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'City' do
+  before do
+    City.auto_migrate!
+
+    @city = City.new(:name => "Tokyo", :founded_in => 1603)
+  end
+
+  describe "with foundation year as integer" do
+    before do
+      # no op in this case
+    end
+
+    it "is valid" do
+      expect(@city).to be_valid
+    end
+  end
+
+
+  describe "with foundation year as integer" do
+    before do
+      @city.founded_in = 1603
+    end
+
+    it "is valid" do
+      expect(@city).to be_valid
+    end
+  end
+
+
+  describe "with foundation year as string containing only integers" do
+    before do
+      @city.founded_in = "1603"
+    end
+
+    it "is valid" do
+      expect(@city).to be_valid
+    end
+  end
+
+
+  describe "with foundation year as string containing a float" do
+    before do
+      @city.founded_in = "1603.6"
+    end
+
+    it "is valid" do
+      expect(@city).to be_valid
+    end
+  end
+
+
+  describe "with foundation year as string that is not an integer or float" do
+    before do
+      @string = "founded-in=1603"
+
+      @city.founded_in = @string
+    end
+
+    it "is not altered" do
+      expect(@city.founded_in).to be(@string)
+    end
+
+    it "IS NOT valid" do
+      expect(@city).not_to be_valid
+    end
+  end
+
+
+  describe "with unknown foundation date" do
+    before do
+      @city.founded_in = nil
+    end
+
+    it "is NOT valid" do
+      expect(@city).not_to be_valid
+    end
+
+    it "has a meaningful error message on for the property" do
+      @city.valid?
+      expect(@city.errors.on(:founded_in)).to eq [ 'Foundation year must be an integer' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/lt_with_float_type_spec.rb

@@ -0,0 +1,37 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::BasketballCourt' do
+  before :all do
+    DataMapper::Validations::Fixtures::BasketballCourt.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::BasketballCourt.valid_instance
+    @model.valid?
+  end
+
+  it_behaves_like 'valid model'
+
+
+  describe "with three point line distance of 6.8" do
+    before :all do
+      @model.three_point_line_distance = 6.8
+      @model.valid?
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+
+  describe "with three point line distance of 10.0" do
+    before :all do
+      @model.three_point_line_distance = 10.0
+      @model.valid?
+    end
+
+    it_behaves_like 'invalid model'
+
+    it "has a meaningful error message" do
+      expect(@model.errors.on(:three_point_line_distance)).to eq [ 'Three point line distance must be less than 7.24' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/lte_with_float_type_spec.rb

@@ -0,0 +1,37 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::BasketballCourt' do
+  before :all do
+    DataMapper::Validations::Fixtures::BasketballCourt.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::BasketballCourt.valid_instance
+    @model.valid?
+  end
+
+  it_behaves_like 'valid model'
+
+
+  describe "with length of 15.24" do
+    before :all do
+      @model.length = 15.24
+      @model.valid?
+    end
+
+    it_behaves_like 'valid model'
+  end
+
+
+  describe "with length of 20.0" do
+    before :all do
+      @model.length = 20.0
+      @model.valid?
+    end
+
+    it_behaves_like 'invalid model'
+
+    it "has a meaningful error message" do
+      expect(@model.errors.on(:length)).to eq [ 'Length must be less than or equal to 15.24' ]
+    end
+  end
+end

data/spec/integration/numeric_validator/spec_helper.rb

@@ -0,0 +1,5 @@
+# make sure you check out spec/fixtures to see fixture models
+# already written
+#
+# DataMapper developers feels strongly against foobars in the spec
+# suite

data/spec/integration/primitive_validator/primitive_validator_spec.rb

@@ -0,0 +1,112 @@
+require_relative '../../spec_helper'
+require_relative 'spec_helper'
+
+describe 'DataMapper::Validations::Fixtures::MemoryObject' do
+  include DataMapper::Validations::Fixtures
+
+  before :all do
+    DataMapper::Validations::Fixtures::MemoryObject.auto_migrate!
+
+    @model = DataMapper::Validations::Fixtures::MemoryObject.new
+  end
+
+  describe "with color given as a string" do
+    before :all do
+      @model.color = "grey"
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+
+
+  describe "with color given as an object" do
+    before :all do
+      # we have to go through the back door
+      # since writer= method does typecasting
+      # and Object is casted to String
+      @model.instance_variable_set(:@color,  Object.new)
+    end
+
+    it "is NOT valid" do
+      expect(@model).not_to be_valid
+    end
+  end
+
+  describe "with stupid integer given as Integer" do
+    before :all do
+      @model.stupid_integer = 100
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+
+  describe "with stupid integer given as Object" do
+    before :all do
+      @model.stupid_integer = Object.new
+    end
+
+    it "is NOT valid" do
+      expect(@model).not_to be_valid
+    end
+  end
+
+
+  describe "with mark flag set to true" do
+    before :all do
+      @model.marked = true
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+
+
+  describe "with mark flag set to false" do
+    before :all do
+      @model.marked = false
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+
+  describe "with mark flag set to an object" do
+    before :all do
+      # go through the back door to avoid typecasting
+      @model.instance_variable_set(:@marked, Object.new)
+    end
+
+    it "is NOT valid" do
+      expect(@model).not_to be_valid
+    end
+  end
+
+
+  describe "with color set to nil" do
+    before :all do
+      # go through the back door to avoid typecasting
+      @model.color = nil
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+
+
+  describe "with mark flag set to nil" do
+    before :all do
+      @model.marked = nil
+    end
+
+    it "is valid" do
+      expect(@model).to be_valid
+    end
+  end
+end

data/spec/integration/primitive_validator/spec_helper.rb

@@ -0,0 +1,5 @@
+# make sure you check out spec/fixtures to see fixture models
+# already written
+#
+# DataMapper developers feels strongly against foobars in the spec
+# suite

data/spec/integration/pure_ruby_objects/plain_old_ruby_object_validation_spec.rb

@@ -0,0 +1,118 @@
+require_relative '../../spec_helper'
+
+module PureRubyObjects
+  # notice that it is a pure Ruby class, not a DataMapper resource
+  class Country
+    #
+    # Behaviors
+    #
+
+    include DataMapper::Validations
+
+    #
+    # Validations
+    #
+
+    validates_presence_of :name,       :when => [:default, :adding_to_encyclopedia]
+    validates_presence_of :population, :when => :adding_to_encyclopedia, :message => Proc.new { |record|
+      "population really needs to be specified when adding %s to encyclopedia" % [record.class.name]
+    }
+
+    validates_length_of  :name,       :in => (4..50)
+
+    #
+    # API
+    #
+
+    attr_accessor :name, :population
+
+    def initialize(name, population = nil)
+      @name       = name
+      @population = population
+    end
+  end
+end
+
+describe 'PureRubyObjects::Country' do
+  before do
+    # Powerset says so
+    @model = PureRubyObjects::Country.new("Italy", 58_147_733)
+  end
+
+  describe "without name" do
+    before do
+      @model.name = nil
+    end
+
+    it_behaves_like 'object invalid in default context'
+
+    it "is not valid in encyclopedia context" do
+      expect(@model).not_to be_valid(:adding_to_encyclopedia)
+      expect(@model).not_to be_valid_for_adding_to_encyclopedia
+    end
+  end
+
+
+  describe "without name and without population information" do
+    before do
+      @model.name       = nil
+      @model.population = nil
+    end
+
+    it_behaves_like 'object invalid in default context'
+
+    it "is not valid in encyclopedia context" do
+      expect(@model).not_to be_valid(:adding_to_encyclopedia)
+      expect(@model).not_to be_valid_for_adding_to_encyclopedia
+    end
+
+    it "has a meaningful error message" do
+      # trigger validation => have errors on the object
+      @model.valid_for_adding_to_encyclopedia?
+      expect(@model.errors.on(:population)).to eq ["population really needs to be specified when adding PureRubyObjects::Country to encyclopedia"]
+    end
+  end
+
+
+  describe "with name and without population information" do
+    before do
+      @model.population = nil
+    end
+
+    it_behaves_like 'object valid in default context'
+
+    it "is not valid in encyclopedia context" do
+      expect(@model).not_to be_valid(:adding_to_encyclopedia)
+      expect(@model).not_to be_valid_for_adding_to_encyclopedia
+    end
+  end
+
+
+  describe "with name and population information" do
+    it_behaves_like 'object valid in default context'
+
+    it "is valid in encyclopedia context" do
+      expect(@model).to be_valid(:adding_to_encyclopedia)
+      expect(@model).to be_valid_for_adding_to_encyclopedia
+    end
+  end
+
+
+  describe "with a 2 characters long name" do
+    before do
+      @model.name = "It"
+      @model.valid?
+    end
+
+    it_behaves_like 'object invalid in default context'
+
+    it "has errors on name" do
+      expect(@model.errors.on(:name)).not_to be_empty
+    end
+
+    it "is valid in encyclopedia context" do
+      expect(@model).to be_valid(:adding_to_encyclopedia)
+      expect(@model).to be_valid_for_adding_to_encyclopedia
+    end
+  end
+end