json-spec 0.1.0

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/expectation-builders/expecting-expectation-definition.rb

@@ -0,0 +1,17 @@
+require_relative "expectation-definition"
+require "cabeza-de-termo/json-spec/instantiators/patial-application-instantiator"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ExpectingExpectationDefinition < ExpectationDefinition
+			def expect(expectation_method, *args)
+				@expectation_instantiator = expectation_instantiator_for(expectation_method)
+				@args = args
+			end
+
+			def expectation_instantiator()
+				PartialApplicationInstantiator.new(@expectation_instantiator, @args)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/expectation-builders/negating-expectation-definition.rb

@@ -0,0 +1,16 @@
+require_relative "expectation-definition"
+require "cabeza-de-termo/json-spec/instantiators/negated-expectation-instantiator"
+
+module CabezaDeTermo
+	module JsonSpec
+		class NegatingExpectationDefinition < ExpectationDefinition
+			def negate(expectation_method)
+				@expectation_instantiator = expectation_instantiator_for(expectation_method)
+			end
+
+			def expectation_instantiator()
+				NegatedExpectationInstantiator.new(@expectation_instantiator)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/expectation-library-definition-builder.rb

@@ -0,0 +1,35 @@
+require_relative "modifier-builders/modifiers-definition-builder"
+require_relative "expectation-builders/expectations-definition-builder"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ExpectationLibraryDefinitionBuilder
+			# Initializing
+
+			def initialize(expectations_library)
+				@expectations_library = expectations_library
+			end
+
+			# Accessing
+
+			def expectations_library
+				@expectations_library
+			end
+
+			def expectations(&block)
+				ExpectationsDefinitionBuilder.for(expectations_library, &block)
+				self
+			end
+
+			def modifiers(&block)
+				ModifiersDefinitionBuilder.for(expectations_library, &block)
+				self
+			end
+
+			def default_expectations(&block)
+				Bind.evaluation of: block, to: expectations_library.default_expectations
+				self
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/modifier-builders/class-modifier-definition.rb

@@ -0,0 +1,15 @@
+require_relative "modifier-definition"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ClassModifierDefinition < ModifierDefinition
+			def klass(klass)
+				@klass = klass
+			end
+
+			def modifier_instantiator
+				@klass
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/modifier-builders/composing-modifiers-definition.rb

@@ -0,0 +1,28 @@
+require_relative "modifier-definition"
+require "cabeza-de-termo/json-spec/instantiators/modifier-composite-instantiator"
+require "cabeza-de-termo/json-spec/instantiators/patial-application-instantiator"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ComposingModifiersDefinition < ModifierDefinition
+			def initialize(expectations_library)
+				super(expectations_library)
+
+				@modifier_instantiators = []
+			end
+
+			def with(modifier_method, *args)
+				@modifier_instantiators <<  PartialApplicationInstantiator.new(modifier_instantiator_for(modifier_method), args)
+				self
+			end
+
+			def modifier_instantiator
+				ModifierCompositeInstantiator.with_all(@modifier_instantiators)
+			end
+
+			def modifier_instantiator_for(method_name)
+				@expectations_library.modifier_instantiator_for(method_name)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/modifier-builders/modifier-definition.rb

@@ -0,0 +1,13 @@
+module CabezaDeTermo
+	module JsonSpec
+		class ModifierDefinition
+			def initialize(expectations_library)
+				@expectations_library = expectations_library
+			end
+
+			def modifier_instantiator
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/definition-builders/modifier-builders/modifiers-definition-builder.rb

@@ -0,0 +1,73 @@
+require_relative "class-modifier-definition"
+require_relative "composing-modifiers-definition"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ModifiersDefinitionBuilder
+			def self.for(expectations_library, &block)
+				new(expectations_library, &block)
+			end
+
+			def initialize(expectations_library, &block)
+				@expectations_library = expectations_library
+
+				Bind.evaluation of: block, to: self
+			end
+
+			# Accessing
+
+			def expectations_library 
+				@expectations_library
+			end
+
+			def method_name 
+				@method_name
+			end
+
+			def definition 
+				@definition
+			end
+
+			# Building definition
+
+			def reset_current_definition
+				@method_name = nil
+				@definition = nil
+			end
+
+			def define(method_name, &block)
+				@method_name = method_name.to_sym
+
+				block.call
+
+				define_modifier_in_library
+				reset_current_definition
+			end
+
+			def with_class(klass)
+				@definition = ClassModifierDefinition.new(expectations_library)
+				@definition.klass klass
+			end
+
+			def composing(modifier)
+				@definition = ComposingModifiersDefinition.new(expectations_library)
+				@definition.with modifier
+			end
+
+			def define_modifier_in_library
+				expectations_library.define_modifier(method_name, modifier_instantiator)
+			end
+
+			def modifier_instantiator
+				definition.modifier_instantiator
+			end
+
+			# Messages delegation
+
+			# Delegate every method to the current definition builder
+			def method_missing(method_name, *args, &block)
+				@definition.send(method_name, *args, &block)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/expectations-library.rb

@@ -0,0 +1,150 @@
+require_relative "initializers/default-library-initializer"
+require_relative "messages/expectation-messages-mapping"
+require_relative "default-expectations/default-expectations-mapping"
+
+require_relative "definition-builders/expectation-library-definition-builder"
+
+require "cabeza-de-termo/json-spec/errors/expectation-not-found-error"
+require "cabeza-de-termo/json-spec/errors/modifier-not-found-error"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ExpectationsLibrary
+			@current = nil
+			@default_library_initializer = nil
+
+			# Instance accessing
+
+			def self.current()
+				@current = new_default if @current.nil?
+				@current
+			end
+
+			def self.set_current(expectations_library)
+				to_be_replaced = current
+				@current = expectations_library
+
+				to_be_replaced
+			end
+
+			def self.define(&block)
+				current.define(&block)
+			end
+
+			def self.reset()
+				@current = nil
+			end
+
+			# Initializing
+
+			def self.default_library_initializer()
+				set_default_library_initializer(new_default_library_initializer) if @default_library_initializer.nil?
+
+				@default_library_initializer
+			end
+
+			def self.set_default_library_initializer(library_initializer)
+				to_be_replaced = @default_library_initializer
+				@default_library_initializer = library_initializer
+
+				to_be_replaced
+			end
+
+			def self.new_default_library_initializer()
+				DefaultLibraryInitializer.new
+			end
+
+			def self.new_default()
+				default_library_initializer.new_library
+			end
+
+			# Instance methods
+
+			def initialize()
+				@expectations = {}
+				@modifiers = {}
+				@expectation_messages_mapping = new_expectations_messages_mapping
+				@default_expectations_mapping = new_default_expectations_mapping
+			end
+
+			# Accessing
+
+			def default_expectations()
+				@default_expectations_mapping
+			end
+
+			# Defining
+
+			def define(&block)
+				Bind.evaluation of: block, to: ExpectationLibraryDefinitionBuilder.new(self)
+			end
+
+			# Expectation messages
+
+			def has_message_formatter_for?(expectation_method)
+				@expectation_messages_mapping.has_message_formatter_for?(expectation_method)
+			end
+
+			def message_formatter_for(expectation_method)
+				@expectation_messages_mapping.message_formatter_for(expectation_method)
+			end
+
+			def define_message_formatter_for(expectation_method, message_block)
+				@expectation_messages_mapping.define_message_formatter_for(expectation_method, message_block)
+
+				self
+			end
+
+			# Expectations
+
+			def define_expectation(expectation_method, expectation_instantiator)
+				@expectations[expectation_method.to_sym] = expectation_instantiator
+				self
+			end
+
+			def has_expectation_for?(expectation_method)
+				@expectations.key?(expectation_method.to_sym)
+			end
+
+			def expectation_instantiator_for(expectation_method)
+				return @expectations[expectation_method.to_sym] if has_expectation_for?(expectation_method)
+				raise ExpectationNotFoundError.new("The Expectation method '#{expectation_method}' was not found.")
+			end
+
+			def new_expectation_from_message(message)
+				expectation_instantiator_for( message.method_name ).new( *message.args )
+			end
+
+			# Modifiers
+
+			def define_modifier(expectation_method, modifier_instantiator)
+				@modifiers[expectation_method.to_sym] = modifier_instantiator
+
+				self
+			end
+
+			def has_modifier_for?(expectation_method)
+				@modifiers.key?(expectation_method.to_sym)
+			end
+
+			def modifier_instantiator_for(method_name)
+				return @modifiers[method_name.to_sym] if has_modifier_for?(method_name)
+				raise ModifierNotFoundError.new("The modifier method '#{method_name}' was not found.")
+			end
+
+			def new_modifier_from_message(message)
+				modifier_instantiator_for(message.method_name).new( *message.args )
+			end
+
+			# Helpers
+
+			def new_expectations_messages_mapping()
+				ExpectationMessagesMapping.new
+			end
+
+			def new_default_expectations_mapping()
+				DefaultExpectationsMapping.new
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations-library/initializers/default-library-initializer.rb

@@ -0,0 +1,265 @@
+require_relative "library-initializer"
+
+require "cabeza-de-termo/json-spec/expectations/is-scalar-expectation"
+require "cabeza-de-termo/json-spec/expectations/is-url-expectation"
+require "cabeza-de-termo/json-spec/expectations/is-email-expectation"
+
+require "cabeza-de-termo/json-spec/modifiers/can-be-absent-modifier"
+require "cabeza-de-termo/json-spec/modifiers/can-be-null-modifier"
+
+module CabezaDeTermo
+	module JsonSpec
+		class DefaultLibraryInitializer < LibraryInitializer
+			def new_library()
+				library = ExpectationsLibrary.new
+				define_library(library)
+			end
+
+			def define_library(library)
+				library.define do
+
+					# Define expectations
+					expectations do
+						define :to_exist do
+							with_block { |value_holder, expected_value| value_holder.not_missing_value? }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' exists."
+						end
+
+						define :to_be_absent do
+							negating :to_exist
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is absent."
+						end
+
+						define :to_be_kind_of do
+							with_block { |value_holder, expected_class| value_holder.value.kind_of? expected_class }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a <%= expectation.args[0] %>."
+						end
+
+						define :to_be_true do
+							expecting :to_be_kind_of, ::TrueClass
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is true."
+						end
+
+						define :to_be_false do
+							expecting :to_be_kind_of, ::FalseClass
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is false."
+						end
+
+						define :to_be_boolean do
+							expecting_any_of :to_be_true
+							or_also :to_be_true
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a boolean."
+						end
+
+						define :to_be_float do
+							expecting :to_be_kind_of, ::Float
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a float."
+						end
+
+						define :to_be_integer do
+							expecting :to_be_kind_of, ::Integer
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is an integer."
+						end
+
+						define :to_be_list do
+							expecting :to_be_kind_of, ::Array
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a list."
+						end
+
+						define :to_be_number do
+							expecting :to_be_kind_of, ::Numeric
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a number."
+						end
+
+						define :to_be_scalar do
+							with_class IsScalarExpectation
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a scalar."
+						end
+
+						define :to_be_object do
+							expecting :to_be_kind_of, ::Hash
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is an object."
+						end
+
+						define :to_be_string do
+							expecting :to_be_kind_of, ::String
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is a string."
+						end
+
+						define :to_be_null do
+							with_block { |value_holder, expected_value| value_holder.value.nil? }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is null."
+						end
+
+						define :not_null do
+							negating :to_be_null
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not null."
+						end
+
+						define :to_be_defined do
+							expecting_all_of :to_exist
+							and_also :not_null
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is defined."
+						end
+
+						define :not_defined do
+							negating :to_be_defined
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not defined."
+						end
+
+						define :to_be_empty do
+							with_block { |value_holder, expected_value| value_holder.is_empty? }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is empty."
+						end
+
+						define :not_empty do
+							negating :to_be_empty
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not empty."
+						end
+
+						define :_to_be_blank do
+							with_block { |value_holder, expected_value| value_holder.value.strip.empty? }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is blank."
+						end
+
+						define :to_be_blank do
+							expecting_all_of :to_be_string
+							and_also :_to_be_blank
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is blank."
+						end
+
+						define :not_blank do
+							negating :to_be_blank
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not blank."
+						end
+
+						define :to_be_equal_to do
+							with_block { |value_holder, expected_value| expected_value == value_holder.value }
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is equal to '<%= expectation.args[0] %>'."
+						end
+
+						define :not_equal_to do
+							negating :to_be_equal_to
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not equal to '<%= expectation.args[0] %>'."
+						end
+
+						define :_to_match do
+							with_block do |value_holder, expected_regex| 
+								expected_regex.match(value_holder.value) != nil
+							end
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' matches '<%= expectation.args[0] %>'."
+						end
+
+						define :to_match do
+							expecting_all_of :to_be_string
+							and_also :_to_match
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' matches '<%= expectation.child_expectations[1].args[0] %>'."
+						end
+
+						define :not_to_match do
+							negating :to_match
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' does not match '<%= expectation.child_expectations[1].args[0] %>'."
+						end
+
+						define :to_be_string_as_integer do
+							expecting :to_match, /^[-+]?\d+$/
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' has a valid integer format."
+						end
+
+						define :to_be_string_as_float do
+							expecting :to_match, /^[-+]?[0-9]*\.?[0-9]+$/
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' has a valid float format."
+						end
+
+						define :to_be_in do
+							with_block do |value_holder, possible_values|
+								possible_values.include?( value_holder.value )
+							end
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is equal to any of <%= expectation.args[0] %>."
+						end
+
+						define :not_in do
+							negating :to_be_in
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not equal to any of <%= expectation.args[0] %>."
+						end
+
+						define :to_be_email do
+							with_class IsEmailExpectation
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is an email."
+						end
+
+						define :to_be_url do
+							with_class IsUrlExpectation
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is an url."
+						end
+
+						define :to_be_in_range do
+							with_block do |value_holder, expectedRange|
+								expectedRange.includes?( value_holder.value )
+							end
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is in range <%= expectation.args[0] %>."
+						end
+
+						define :not_in_range do
+							negating :to_be_in_range
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not in range <%= expectation.args[0] %>."
+						end
+
+						define :to_be_between do
+							with_block do |value_holder, min, max| 
+								Range::new_from('[', min, max, ']').includes?( value_holder.value )
+							end
+
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is between <%= Range.new(expectation.args[0], expectation.args[1]).to_s %>."
+						end
+
+						define :not_between do
+							negating :to_be_between
+							message "Failed asserting that the field '<%= field %>' with value = '<%= format value %>' is not between <%= Range.new(expectation.args[0], expectation.args[1]).to_s %>."
+						end
+					end
+
+					# Define modifiers
+					modifiers do
+						define :can_be_absent do
+							with_class CanBeAbsentModifier
+						end
+
+						define :can_be_null do
+							with_class CanBeNullModifier
+						end
+
+						define :can_be_undefined do
+							composing :can_be_null
+							with :can_be_absent
+						end
+					end
+	
+					# Define default expectations
+					default_expectations do
+						for_every_object do
+							to_be_object
+						end
+
+						for_every_list do
+							to_be_list
+						end
+
+						for_every_scalar do
+							to_be_scalar
+						end
+					end
+				end
+
+				library
+			end
+		end
+	end
+end