sbf-dm-validations 1.3.0.beta

data/spec/fixtures/bill_of_landing.rb

@@ -0,0 +1,47 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class BillOfLading
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,       Serial
+
+        property :doc_no,   String, :auto_validation => false
+        property :email,    String, :auto_validation => false
+        property :username, String, :auto_validation => false
+        property :url,      String, :auto_validation => false
+        property :bank_url, URI,    :auto_validation => false
+        property :code,     String, :auto_validation => false, :default => "123456"
+
+        #
+        # Validations
+        #
+
+        # this is a trivial example
+        validates_format_of :doc_no, :with => lambda { |code|
+          code =~ /\AA\d{4}\z/ || code =~ /\A[B-Z]\d{6}X12\z/
+        }
+
+        validates_format_of :email, :as => :email_address
+        validates_format_of :url, :as => :url, :allow_nil => false, :allow_blank => false
+
+        validates_format_of :username, :with => /[a-z]/, :message => 'Username must have at least one letter', :allow_nil => true
+        validates_format_of :code,     :with => /\d{5,6}/, :message => 'Code format is invalid'
+      end
+
+      class SurrenderBillOfLading < BillOfLading
+        validates_format_of :bank_url, :as => :url, :allow_nil => false, :allow_blank => false
+      end
+    end # Fixtures
+  end # Validations
+end # DataMapper

data/spec/fixtures/boat_dock.rb

@@ -0,0 +1,26 @@
+module DataMapper
+  module Validation
+    module Fixtures
+      class BoatDock
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id, Serial
+        property :name, String, :auto_validation => false, :default => "I'm a long string"
+
+        #
+        # Validations
+        #
+
+        validates_length_of :name, :min => 3
+      end
+    end
+  end
+end

data/spec/fixtures/city.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+
+class City
+  #
+  # Behaviors
+  #
+
+  include DataMapper::Resource
+
+  #
+  # Properties
+  #
+
+  property :id,         Serial
+  property :name,       String
+
+  property :founded_in, Integer, :auto_validation => false
+
+  #
+  # Validations
+  #
+
+  validates_numericality_of :founded_in, :message => "Foundation year must be an integer"
+end

data/spec/fixtures/company.rb

@@ -0,0 +1,93 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class Company
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,       Serial
+        property :title,    String
+        property :type,     Discriminator
+
+
+        #
+        # Validations
+        #
+
+        validates_presence_of :title, :message => "Company name is a required field"
+
+      end
+
+      class ServiceCompany < Company
+
+        #
+        # Properties
+        #
+
+        without_auto_validations do
+          property :area_of_expertise, String, :length => (1..60)
+        end
+
+        #
+        # Validations
+        #
+
+        validates_presence_of :area_of_expertise
+      end
+
+      class ProductCompany < Company
+
+        #
+        # Properties
+        #
+
+        without_auto_validations do
+          property :flagship_product, String, :length => (1..60)
+        end
+
+        #
+        # Validations
+        #
+
+        validates_presence_of :title, :message => "Product company must have a name"
+        validates_presence_of :flagship_product
+      end
+
+      class Product
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,   Serial
+        property :name, String, :required => true
+
+        #
+        # Associations
+        #
+
+        belongs_to :company, :model => DataMapper::Validations::Fixtures::ProductCompany
+
+        #
+        # Validations
+        #
+
+        validates_presence_of :company
+      end
+    end
+  end
+end

data/spec/fixtures/corporate_world.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class Organisation
+        include DataMapper::Resource
+
+        property :id, Serial
+        property :name, String
+        property :domain, String, :unique_index => true
+
+        validates_uniqueness_of :domain, :allow_nil => true
+      end
+
+      class Department
+        include DataMapper::Resource
+
+        property :id, Serial
+        property :name, String, :unique_index => true
+
+        validates_uniqueness_of :name
+      end
+
+      class User
+        include DataMapper::Resource
+
+        property :id, Serial
+        property :user_name, String
+
+        belongs_to :organisation
+        belongs_to :department
+
+        validates_uniqueness_of :user_name, :when => :signing_up_for_department_account,   :scope => [:department]
+        validates_uniqueness_of :user_name, :when => :signing_up_for_organization_account, :scope => [:organisation]
+      end
+    end
+  end
+end

data/spec/fixtures/country.rb

@@ -0,0 +1,24 @@
+# -*- coding: utf-8 -*-
+
+class Country
+  #
+  # Behaviors
+  #
+
+  include DataMapper::Resource
+
+  #
+  # Properties
+  #
+
+  property :id,         Serial
+  property :name,       String
+
+  property :area,       Integer
+
+  #
+  # Validations
+  #
+
+  validates_numericality_of :area, :message => "Please use integers to specify area"
+end

data/spec/fixtures/ethernet_frame.rb

@@ -0,0 +1,56 @@
+module DataMapper
+  module Validation
+    module Fixtures
+
+      # for pedants: we refer to DIX Ethernet here
+      class EthernetFrame
+
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        attr_accessor :link_support_fragmentation
+
+        # we have to have a key in a DM resource
+        property :id, Serial
+
+        without_auto_validations do
+          property :destination_mac, String
+          property :source_mac,      String
+          property :ether_type,      String
+          property :payload,         Text
+          property :crc,             String
+        end
+
+        #
+        # Validations
+        #
+
+        validates_length_of :destination_mac, :source_mac, :equals => 6
+        validates_length_of :ether_type, :equals => 2
+        validates_length_of :payload, :min => 46, :max => 1500, :unless => :link_support_fragmentation
+        # :is is alias for :equal
+        validates_length_of :crc, :is => 4
+
+        def self.valid_instance
+          # these are obvisouly not bits, and not in hexadecimal
+          # format either, but give fixture models some slack
+          attributes = {
+            :destination_mac => "7b7d93",
+            :source_mac      => "abe763",
+            :ether_type      => "88",
+            :payload         => "Imagine yourself a beautiful bag full of bits here",
+            :crc             => "4132"
+          }
+          new(attributes)
+        end
+      end # EthernetFrame
+    end
+  end
+end

data/spec/fixtures/event.rb

@@ -0,0 +1,44 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+
+      class Event
+        #
+        # Behaviors
+        #
+
+        include ::DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,   Serial
+        property :name, String, :required => true
+
+        property :starts_at, DateTime
+        property :ends_at,   DateTime
+
+        #
+        # Validations
+        #
+
+        validates_with_method :starts_at, :method => :ensure_dates_order_is_correct
+
+        #
+        # API
+        #
+
+        def ensure_dates_order_is_correct
+          if starts_at && ends_at && (starts_at <= ends_at)
+            true
+          else
+            [false, "Start time cannot be after end time"]
+          end
+        end
+      end # Event
+    end # Fixtures
+  end # Validations
+end # DataMapper

data/spec/fixtures/g3_concert.rb

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class G3Concert
+        #
+        # Bahaviors
+        #
+
+        include ::DataMapper::Validations
+
+        #
+        # Attributes
+        #
+
+        attr_accessor :year, :participants, :city, :planned
+
+        #
+        # Validations
+        #
+
+        validates_with_block :participants, :unless => :planned do
+          if self.class.known_performances.any? { |perf| perf == self }
+            true
+          else
+            [false, "this G3 is probably yet to take place"]
+          end
+        end
+
+        #
+        # API
+        #
+
+        def initialize(attributes = {})
+          attributes.each do |key, value|
+            self.send("#{key}=", value)
+          end
+        end
+
+        def ==(other)
+          other.year == self.year && other.participants == self.participants && other.city == self.city
+        end
+
+        # obvisouly this is intentionally shortened list ;)
+        def self.known_performances
+          [
+           new(:year => 2004, :participants => "Joe Satriani, Steve Vai, Yngwie Malmsteen", :city => "Denver"),
+           new(:year => 1996, :participants => "Joe Satriani, Steve Vai, Eric Johnson", :city => "San Francisco"),
+           new(:year => 2001, :participants => "Joe Satriani, Steve Vai, John Petrucci", :city => "Los Angeles"),
+           new(:year => 2002, :participants => "Joe Satriani, Steve Vai, John Petrucci", :city => "Los Angeles")
+          ]
+        end
+      end # G3Concert
+    end # Fixtures
+  end # Validations
+end # DataMapper

data/spec/fixtures/integer_dumped_as_string_property.rb

@@ -0,0 +1,24 @@
+# Property to test dumped_as != loaded_as behaviour
+module DataMapper
+  class Property
+    class IntegerDumpedAsStringProperty < DataMapper::Property::Object
+      load_as ::Integer
+      dump_as ::String
+
+      accept_options :length
+
+      DEFAULT_LENGTH = 50
+      length(DEFAULT_LENGTH)
+
+      attr_reader :length
+
+      def dump(value)
+        value.nil? ? nil : value.to_s
+      end
+
+      def load(value)
+        value.nil? ? nil : value.to_i
+      end
+    end
+  end
+end

data/spec/fixtures/jabberwock.rb

@@ -0,0 +1,27 @@
+module DataMapper
+  module Validation
+    module Fixtures
+
+      class Jabberwock
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,           Serial
+        property :snickersnack, String
+
+        #
+        # Validations
+        #
+
+        validates_length_of :snickersnack, :within => 3..40, :message => "worble warble"
+      end # Jabberwock
+    end
+  end
+end

data/spec/fixtures/kayak.rb

@@ -0,0 +1,28 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class Kayak
+        #
+        # Behaviors
+        #
+
+        include ::DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,       Serial
+        property :salesman, String, :auto_validation => false
+
+        #
+        # Validations
+        #
+
+        validates_absence_of :salesman, :on => :sale
+      end
+    end
+  end
+end

data/spec/fixtures/lernean_hydra.rb

@@ -0,0 +1,39 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class LerneanHydra
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,     Serial
+
+        without_auto_validations do
+          property :head_count, Float
+        end
+
+        #
+        # Validations
+        #
+
+        validates_numericality_of :head_count, :eq => 9, :message => "Lernean hydra is said to have exactly 9 heads"
+
+        def self.valid_instance(overrides = {})
+          defaults = {
+            :head_count => 9
+          }
+
+          new(defaults.merge(overrides))
+        end
+      end
+    end # Fixtures
+  end # Validations
+end # DataMapper

data/spec/fixtures/llama_spaceship.rb

@@ -0,0 +1,15 @@
+module DataMapper
+  module Validations
+    module Fixtures
+      class LlamaSpaceship
+        include DataMapper::Resource
+
+        property :id, Serial
+        property :type, String
+        property :color, String
+
+        validates_format_of :color, :with => /^red|black$/, :if => Proc.new { |spaceship| spaceship.type == "standard" }
+      end
+    end
+  end
+end

data/spec/fixtures/mathematical_function.rb

@@ -0,0 +1,34 @@
+# -*- coding: utf-8 -*-
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class MathematicalFunction
+        #
+        # Behaviors
+        #
+
+        include ::DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,    Serial
+        property :input,  Float, :auto_validation => false
+        property :output, Float, :auto_validation => false
+
+        #
+        # Validations
+        #
+
+        # function domain
+        # don't ask me what function that is
+        validates_within :input,  :set => (1..n)
+
+        # function range
+        validates_within :output, :set => (-n..0), :message => "Negative values or zero only, please"
+      end # MathematicalFunction
+    end # Fixtures
+  end # Validations
+end # DataMapper

data/spec/fixtures/memory_object.rb

@@ -0,0 +1,35 @@
+# -*- coding: utf-8 -*-
+
+require File.join(File.dirname(__FILE__),'integer_dumped_as_string_property')
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class MemoryObject
+        #
+        # Behaviors
+        #
+
+        include ::DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id,     Serial
+        property :marked, Boolean, :auto_validation => false
+        property :color,  String,  :auto_validation => false
+
+        property :stupid_integer, IntegerDumpedAsStringProperty, :auto_validation => false
+
+        #
+        # Validations
+        #
+
+        validates_primitive_type_of :marked
+        validates_primitive_type_of :color
+        validates_primitive_type_of :stupid_integer
+      end
+    end
+  end
+end

data/spec/fixtures/mittelschnauzer.rb

@@ -0,0 +1,39 @@
+module DataMapper
+  module Validation
+    module Fixtures
+      # Mittelschauzer is a type of dog. The More You Know.
+      class Mittelschnauzer
+
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        without_auto_validations do
+          property :name,   String, :key => true
+          property :height, Float
+        end
+
+        attr_accessor :owner
+
+        #
+        # Validations
+        #
+
+        validates_length_of :name,  :min => 2, :allow_nil => false
+        validates_length_of :owner, :min => 2
+
+        validates_numericality_of :height, :lt => 55.2
+
+        def self.valid_instance
+          new(:name => "Roudolf Wilde", :height => 50.4, :owner => 'don')
+        end
+      end # Mittelschnauzer
+    end
+  end
+end

data/spec/fixtures/motor_launch.rb

@@ -0,0 +1,21 @@
+module DataMapper
+  module Validation
+    module Fixtures
+
+      class MotorLaunch
+        #
+        # Behaviors
+        #
+
+        include DataMapper::Resource
+
+        #
+        # Properties
+        #
+
+        property :id, Serial
+        property :name, String, :auto_validation => false
+      end
+    end
+  end
+end

data/spec/fixtures/multibyte.rb

@@ -0,0 +1,16 @@
+# coding: utf-8
+
+module DataMapper
+  module Validation
+    module Fixtures
+      class Multibyte
+        include DataMapper::Resource
+
+        property :id,   Serial
+        property :name, String
+
+        validates_length_of :name, :is => 20
+      end
+    end
+  end
+end