json-spec 0.1.0

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

@@ -0,0 +1,9 @@
+module CabezaDeTermo
+	module JsonSpec
+		class LibraryInitializer
+			def new_library()
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

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

@@ -0,0 +1,27 @@
+module CabezaDeTermo
+	module JsonSpec
+		class ExpectationMessagesMapping
+			def initialize()
+				@messages = {}
+			end
+
+			def messages
+				@messages
+			end
+
+			def message_formatter_for(expectation_method)
+				messages[expectation_method.to_sym]
+			end
+
+			def has_message_formatter_for?(expectation_method)
+				messages.key?(expectation_method.to_sym)
+			end
+
+			def define_message_formatter_for(expectation_method, message_block)
+				messages[expectation_method.to_sym] = message_block
+
+				self
+			end
+		end
+	end
+end

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

@@ -0,0 +1,39 @@
+module CabezaDeTermo
+	module JsonSpec
+		class AbstractExpectation
+			# Accessing
+
+			def set_json_spec(json_spec)
+				raise 'Subclass responsibility'
+			end
+
+			def set_expectation_method(expectation_method)
+				raise 'Subclass responsibility'
+			end
+
+			# Message format
+
+			def failed_message_on(value_holder)
+				raise 'Subclass responsibility'
+			end
+
+			# Evaluating
+
+			def is_satisfied_by?(value_holder)
+				raise 'Subclass responsibility'
+			end
+
+			# Walking
+
+			def accept_walker(expression_walker)
+				raise 'Subclass responsibility'
+			end
+
+			# Explaining
+
+			def explain()
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

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

@@ -0,0 +1,33 @@
+require_relative "expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class AllExpectationsComposite < Expectation
+			def initialize()
+				@child_expectations = []
+			end
+
+			def child_expectations
+				@child_expectations
+			end
+
+			def set_json_spec(json_spec)
+				super(json_spec)
+
+				child_expectations.each do |child_expectation|
+					child_expectation.set_json_spec(json_spec)
+				end
+			end
+
+			def add_child(child_expectation)
+				child_expectations << child_expectation
+			end
+
+			def is_satisfied_by?(value_holder)
+				child_expectations.all? do |child_expectation|
+					child_expectation.is_satisfied_by?(value_holder) 
+				end
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/any-expectation-composite.rb

@@ -0,0 +1,33 @@
+require_relative "expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class AnyExpectationComposite < Expectation
+			def initialize()
+				@child_expectations = []
+			end
+
+			def child_expectations
+				@child_expectations
+			end
+
+			def set_json_spec(json_spec)
+				super(json_spec)
+
+				child_expectations.each do |child_expectation|
+					child_expectation.set_json_spec(json_spec)
+				end
+			end
+
+			def add_child(child_expectation)
+				child_expectations << child_expectation
+			end
+
+			def is_satisfied_by?(value_holder)
+				child_expectations.any? do |child_expectation|
+					child_expectation.is_satisfied_by?(value_holder)
+				end
+			end
+		end
+	end
+end

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

@@ -0,0 +1,28 @@
+require_relative "expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class BlockExpectation < Expectation
+			def initialize(block , *args)
+				super()
+
+				@block = block
+				@args = args
+			end
+
+			def args
+				@args
+			end
+
+			def is_satisfied_by?(value_holder)
+				@block.call(value_holder, *args)
+			end
+
+			# Explaining
+
+			def explain_parameters()
+				'(' + args.join(', ') + ')'
+			end
+		end
+	end
+end

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

@@ -0,0 +1,51 @@
+require_relative 'abstract-expectation'
+
+module CabezaDeTermo
+	module JsonSpec
+		class Expectation < AbstractExpectation
+			# Accessing
+
+			def set_json_spec(json_spec)
+				@json_spec = json_spec
+			end
+
+			def json_spec()
+				@json_spec
+			end
+
+			def expectation_method()
+				@expectation_method
+			end
+
+			def set_expectation_method(expectation_method)
+				@expectation_method = expectation_method
+			end
+
+			# Message format
+
+			def failed_message_on(value_holder)
+				failed_message_block.message_on(self, value_holder)
+			end
+
+			def failed_message_block()
+				json_spec.message_formatter_for(expectation_method)
+			end
+
+			# Walking
+
+			def accept_walker(expression_walker)
+				expression_walker.walk_expectation(self)
+			end
+
+			# Explaining
+
+			def explain()
+				expectation_method.to_s + explain_parameters
+			end
+
+			def explain_parameters()
+				'()'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/is-email-expectation.rb

@@ -0,0 +1,16 @@
+require_relative "expectation"
+require "validates_email_format_of"
+
+module CabezaDeTermo
+	module JsonSpec
+		class IsEmailExpectation < Expectation
+			def is_satisfied_by?(value_holder)
+				is_valid_email?(value_holder.value)
+			end
+
+			def is_valid_email?(value)
+				ValidatesEmailFormatOf.validate_email_format(value).nil?
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/is-scalar-expectation.rb

@@ -0,0 +1,17 @@
+require_relative "expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class IsScalarExpectation < Expectation
+			def is_satisfied_by?(value_holder)
+				is_scalar?(value_holder)
+			end
+
+			def is_scalar?(value_holder)
+				[::String, ::Numeric, ::TrueClass, ::FalseClass, ::NilClass].any? do |type|
+					value_holder.value.kind_of?(type)
+				end
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/is-url-expectation.rb

@@ -0,0 +1,21 @@
+require_relative "expectation"
+require 'uri'
+
+module CabezaDeTermo
+	module JsonSpec
+		class IsUrlExpectation < Expectation
+			def is_satisfied_by?(value_holder)
+				begin
+					is_valid_url?(value_holder.value)
+				rescue URI::Error
+					false
+				end
+			end
+
+			def is_valid_url?(value)
+				uri = URI.parse(value)
+				!uri.scheme.nil? && !uri.host.nil?
+			end
+		end
+	end
+end

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

@@ -0,0 +1,31 @@
+require_relative "expectation"
+
+module CabezaDeTermo
+	module JsonSpec
+		class NegatedExpectation < Expectation
+			def initialize(expectation)
+				super()
+
+				@negated_expectation = expectation
+			end
+
+			def negated_expectation()
+				@negated_expectation
+			end
+
+			def is_satisfied_by?(value_holder)
+				!negated_expectation.is_satisfied_by?(value_holder)
+			end
+
+			def failed_message_on(value_holder)
+				failed_message_block.message_on(negated_expectation, value_holder)
+			end
+
+			# Explaining
+
+			def explain()
+				expectation_method.to_s + negated_expectation.explain_parameters
+			end
+		end
+	end
+end

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

@@ -0,0 +1,27 @@
+module CabezaDeTermo
+	module JsonSpec
+		class AbstractExpectationsRunner
+			# Adding
+
+			def add(expectation)
+				raise 'Subclass responsibility'
+			end
+
+			# Walking
+
+			def accept_walker(expression_walker)
+				raise 'Subclass responsibility'
+			end
+
+			def accept_walker_with_value_holder(expression_walker, value_holder)
+				raise 'Subclass responsibility'
+			end
+
+			# Explaining
+
+			def explain_with(expression_walker)
+				raise 'Subclass responsibility'
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/runner/can-be-absent-expectations-runner.rb

@@ -0,0 +1,50 @@
+require_relative 'abstract-expectations-runner'
+require 'cabeza-de-termo/json-spec/signals/skip-branch-signal'
+
+module CabezaDeTermo
+	module JsonSpec
+		class CanBeAbsentExpectationsRunner < AbstractExpectationsRunner
+			def initialize(expectations_runner)
+				@underlaying_runner = expectations_runner
+			end
+
+			# Accessing
+
+			def underlaying_runner
+				@underlaying_runner
+			end
+
+			# Adding
+
+			def add(expectation)
+				underlaying_runner.add(expectation)
+			end
+
+			# Walking
+
+			def accept_walker(expression_walker)
+				expression_walker.walk_expectation_runner(self)
+			end
+
+			def accept_walker_with_value_holder(expression_walker, value_holder)
+				raise SkipBranchSignal.new if value_holder.is_missing_value?
+
+				underlaying_runner.accept_walker_with_value_holder(expression_walker, value_holder)
+			end
+
+			#
+			# Yes, this sucks. But I got kind of tired of this library and want to move on
+			# to something else.
+			#
+			def explain_with(expression_walker)
+				expression_walker.during_tab do 
+					expression_walker.append_in_new_line('if present')
+					expression_walker.cr
+					expression_walker.append_tabs
+
+					underlaying_runner.explain_with(expression_walker)
+				end
+			end
+		end
+	end
+end

data/lib/cabeza-de-termo/json-spec/expectations/runner/can-be-null-expectations-runner.rb

@@ -0,0 +1,48 @@
+require_relative 'abstract-expectations-runner'
+require 'cabeza-de-termo/json-spec/signals/skip-branch-signal'
+
+module CabezaDeTermo
+	module JsonSpec
+		class CanBeNullExpectationsRunner < AbstractExpectationsRunner
+			def initialize(expectations_runner)
+				@underlaying_runner = expectations_runner
+			end
+
+			# Accessing
+
+			def underlaying_runner
+				@underlaying_runner
+			end
+
+			# Adding
+
+			def add(expectation)
+				underlaying_runner.add(expectation)
+			end
+
+			# Walking
+
+			def accept_walker(expression_walker)
+				expression_walker.walk_expectation_runner(self)
+			end
+
+			def accept_walker_with_value_holder(expression_walker, value_holder)
+				raise SkipBranchSignal.new if value_holder.value.nil?
+
+				underlaying_runner.accept_walker_with_value_holder(expression_walker, value_holder)
+			end
+
+			# Explaining
+
+			def explain_with(expression_walker)
+				expression_walker.during_tab do
+					expression_walker.append_in_new_line('if not null')
+					expression_walker.cr
+					expression_walker.append_tabs
+
+					underlaying_runner.explain_with(expression_walker)
+				end
+			end
+		end
+	end
+end