json-spec 0.1.0

data/lib/cabeza-de-termo/json-spec/instantiators/block-expectation-instantiator.rb

@@ -0,0 +1,16 @@
+require_relative "abstract-instantiator"
+require "cabeza-de-termo/json-spec/expectations/block-expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class BlockExpectationInstantiator < AbstractInstantiator
+			def initialize(block)
+				@block = block
+			end
+
+			def new(*args)
+				BlockExpectation.new(@block, *args)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/instantiators/composite-instantiator.rb

@@ -0,0 +1,45 @@
+require_relative "abstract-instantiator"
+
+module CabezaDeTermo
+	module JsonSpec
+		class CompositeInstantiator < AbstractInstantiator
+			def self.with_all(instantiators)
+				self.new.add_all_child_instantiators(instantiators)
+			end
+
+			def initialize()
+				@instantiators = []
+			end
+
+			def instantiators
+				@instantiators
+			end
+
+			def add_all_child_instantiators(instantiators)
+				instantiators.each { |child| add_child_instantiator(child) }
+
+				self
+			end
+
+			def add_child_instantiator(instantiator)
+				instantiators << instantiator
+
+				self
+			end
+
+			def new(*args)
+				composite = new_composite_expectation
+
+				instantiators.each do |instantiator|
+					composite.add_child( instantiator.new(*args) )
+				end
+
+				composite
+			end
+
+			def new_composite_expectation()
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/instantiators/modifier-composite-instantiator.rb

@@ -0,0 +1,12 @@
+require_relative "composite-instantiator"
+require "cabeza-de-termo/json-spec/modifiers/modifier-composite"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ModifierCompositeInstantiator < CompositeInstantiator
+			def new_composite_expectation()
+				ModifierComposite.new
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/instantiators/negated-expectation-instantiator.rb

@@ -0,0 +1,20 @@
+require_relative "abstract-instantiator"
+require "cabeza-de-termo/json-spec/expectations/negated-expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class NegatedExpectationInstantiator < AbstractInstantiator
+			def initialize(instantiator)
+				@instantiator = instantiator
+			end
+
+			def new(*args)
+				NegatedExpectation.new( new_expectation_to_negate(*args) )
+			end
+
+			def new_expectation_to_negate(*args)
+				@instantiator.new(*args)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/instantiators/patial-application-instantiator.rb

@@ -0,0 +1,26 @@
+module CabezaDeTermo
+	module JsonSpec
+		#
+		# A wrapper on an AbstractInstantiator to implement a partial application function
+		# (https://en.wikipedia.org/wiki/Partial_application).
+		#
+		class PartialApplicationInstantiator
+			def initialize(underlaying_instantiator, args = [])
+				@underlaying_instantiator = underlaying_instantiator
+				@args = args
+			end
+
+			def underlaying_instantiator()
+				@underlaying_instantiator
+			end
+
+			def args()
+				@args
+			end
+
+			def new(*more_args)
+				underlaying_instantiator.new( *(args + more_args) )
+			end
+		end
+	end
+end

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

@@ -0,0 +1,2 @@
+require_relative "version"
+require_relative "expressions/json-spec"

data/lib/cabeza-de-termo/json-spec/message-formatters/block-message-formatter.rb

@@ -0,0 +1,15 @@
+require_relative 'message-formatter'
+
+module CabezaDeTermo
+	module JsonSpec
+		class BlockMessageFormatter < MessageFormatter 
+			def initialize(block)
+				@block = block
+			end
+
+			def message_on(expectation, value_holder)
+				@block.call(expectation, value_holder)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/message-formatters/erb-message-formatter.rb

@@ -0,0 +1,60 @@
+require_relative 'message-formatter'
+require 'erb'
+
+module CabezaDeTermo
+	module JsonSpec
+		class ErbMessageFormatter
+			def initialize(message)
+				@message = message
+			end
+
+			def message_on(expectation, value_holder, *params)
+				@expectation = expectation
+				@value_holder = value_holder
+
+				format_message
+			end
+
+			# Formatting
+
+			def format_message
+				ERB.new(@message).result(binding)
+			end
+
+			# Accessing
+
+			def value_holder
+				@value_holder
+			end
+
+			def accessors_chain
+				value_holder.accessors_chain
+			end
+
+			def field
+				accessors_chain.to_s
+			end
+
+			def value
+				@value_holder.value
+			end
+
+			def expectation
+				@expectation
+			end
+
+			def format(value)
+				return 'null' if value == nil
+				return 'an object' if value.kind_of? ::Hash
+				return list_string(value) if value.kind_of? ::Array
+
+				value.to_s
+			end
+
+			def list_string(array)
+				values = array.collect { |each| format each }
+				'[' + values.join(', ') + ']'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/message-formatters/message-formatter.rb

@@ -0,0 +1,9 @@
+module CabezaDeTermo
+	module JsonSpec
+		class MessageFormatter
+			def message_on(expectation, value_holder, *params)
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/metaprogramming/message-send.rb

@@ -0,0 +1,37 @@
+module CabezaDeTermo
+	module JsonSpec
+		#
+		# A message to be sent to an object.
+		# It holds the receiver, the method name and the arguments.
+		# It justs waits to be evaluated with :call.
+		#
+		class MessageSend
+			def  initialize(receiver, method_name, *args, &block)
+				@receiver = receiver
+				@method_name = method_name
+				@args = args
+				@block = block
+			end
+
+			def receiver()
+				@receiver
+			end
+
+			def method_name()
+				@method_name
+			end
+
+			def args()
+				@args
+			end
+
+			def block()
+				@block
+			end
+
+			def call()
+				receiver.send(method_name, *args, &@block)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/metaprogramming/message.rb

@@ -0,0 +1,37 @@
+require_relative "message-send"
+
+module CabezaDeTermo
+	module JsonSpec
+		#
+		# A message with arguments to be sent to an object.
+		#
+		class Message
+			def initialize(method_name, *args, &block)
+				@method_name = method_name
+				@args = args
+				@block = block
+			end
+
+			# Accesing
+
+			def method_name()
+				@method_name
+			end
+
+			def args()
+				@args
+			end
+
+			def block()
+				@block
+			end
+
+			# Evaluating
+
+			# Send the message with its arguments to an object.
+			def send_to(object)
+				MessageSend.new(object, method_name, *args, &block).call
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/metaprogramming/object-method.rb

@@ -0,0 +1,14 @@
+module CabezaDeTermo
+	module JsonSpec
+		class ObjectMethod
+			def initialize(object, method_name)
+				@object = object
+				@method_name = method_name
+			end
+
+			def call(*args, &block)
+				MessageSend.new(@object, @method_name, *args, &block).call
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/modifiers/can-be-absent-modifier.rb

@@ -0,0 +1,13 @@
+require_relative "expression-modifier"
+require "cabeza-de-termo/json-spec/expectations/runner/can-be-absent-expectations-runner"
+
+module CabezaDeTermo
+	module JsonSpec
+		class CanBeAbsentModifier < ExpressionModifier
+			def run_on(expression)
+				can_be_absent_runner = CanBeAbsentExpectationsRunner.new(expression.expectations_runner)
+				expression.set_expectations_runner(can_be_absent_runner)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/modifiers/can-be-null-modifier.rb

@@ -0,0 +1,13 @@
+require_relative "expression-modifier"
+require "cabeza-de-termo/json-spec/expectations/runner/can-be-null-expectations-runner"
+
+module CabezaDeTermo
+	module JsonSpec
+		class CanBeNullModifier < ExpressionModifier
+			def run_on(expression)
+				can_be_null_runner = CanBeNullExpectationsRunner.new(expression.expectations_runner)
+				expression.set_expectations_runner(can_be_null_runner)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/modifiers/expression-modifier.rb

@@ -0,0 +1,9 @@
+module CabezaDeTermo
+	module JsonSpec
+		class ExpressionModifier
+			def run_on(expression)
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/modifiers/modifier-composite.rb

@@ -0,0 +1,27 @@
+require_relative "expression-modifier"
+
+module CabezaDeTermo
+	module JsonSpec
+		class ModifierComposite < ExpressionModifier
+			def initialize()
+				super()
+
+				@child_modifiers = []
+			end
+
+			def child_modifiers
+				@child_modifiers
+			end
+
+			def add_child(expression_modifier)
+				child_modifiers << expression_modifier
+			end
+
+			def run_on(expression)
+				child_modifiers.each do |child_modifier|
+					child_modifier.run_on(expression)
+				end
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/signals/signal.rb

@@ -0,0 +1,6 @@
+module CabezaDeTermo
+	module JsonSpec
+		class Signal < StandardError
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/signals/skip-branch-signal.rb

@@ -0,0 +1,8 @@
+require_relative 'signal'
+
+module CabezaDeTermo
+	module JsonSpec
+		class SkipBranchSignal < Signal
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/utilities/bind.rb

@@ -0,0 +1,20 @@
+module CabezaDeTermo
+	module JsonSpec
+		#
+		# Utility class to evaluate blocks binding :self to an object, but only if the block
+		# does not take parameters.
+		# If the block takes one parameter, call the block with that parameter keeping the binding
+		# as it is.
+		#
+		# Example:
+		# 		Bind.evaluation(of: proc { puts self }, to: 'hello!') # binds self to 'hello!'
+		#
+		# 		Bind.evaluation(of: proc { |string| puts string }, to: 'hello!') # no bindings
+		#
+		class Bind
+			def self.evaluation(of: nil, to: nil)
+				of.arity == 0 ? to.instance_eval(&of) : of.call(to)
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/utilities/range.rb

@@ -0,0 +1,70 @@
+module CabezaDeTermo
+	module JsonSpec
+		class Range
+			def self.new_from(at_min, min, max, at_max)
+				range = self.new(min, max)
+				range.be_open_at_min if at_min == '('
+				range.be_open_at_max if at_max == ')'
+				range
+			end
+
+			def initialize(min, max)
+				@min = min
+				@max = max
+				be_closed_at_min
+				be_closed_at_max
+			end
+
+			# Configuring
+
+			def be_closed_at_min()
+				@open_at_min = false
+			end
+
+			def be_closed_at_max()
+				@open_at_max = false
+			end
+
+			def be_open_at_min()
+				@open_at_min = true
+			end
+
+			def be_open_at_max()
+				@open_at_max = true
+			end
+
+			def min()
+				@min
+			end
+
+			def max()
+				@max
+			end
+
+			# Asking
+
+			def is_open_at_min?()
+				@open_at_min
+			end
+
+			def is_open_at_max?()
+				@open_at_max
+			end
+
+			def includes?(value)
+				return false if is_open_at_min? && value <= min
+				return false if !is_open_at_min? && value < min
+				return false if is_open_at_max? && max <= value
+				return false if !is_open_at_max? && max < value
+
+				true
+			end
+
+			# Displaying
+
+			def to_s()
+				(is_open_at_min? ? '(' : '[') + min.to_s + ', ' + max.to_s + (is_open_at_max? ? ')' : ']')
+			end
+		end
+	end
+end