require 'assert/config'
require 'assert/factory'
require 'assert/result'
require 'assert/suite'
require 'assert/test'

module Factory
  extend Assert::Factory

  def self.context_info_called_from
    "#{Factory.path}_tests.rb:#{Factory.integer}"
  end

  def self.context_info(context_klass = nil)
    Assert::Suite::ContextInfo.new(context_klass || self.context_class, context_info_called_from)
  end

  # Generate an anonymous `Context` inherited from `Assert::Context` by default.
  # This provides a common interface for all contexts used in testing.

  def self.context_class(inherit_from = nil, &block)
    klass = Class.new(inherit_from || Assert::Context, &block)
    default = const_name = "FactoryAssertContext"

    while(Object.const_defined?(const_name)) do
      const_name = "#{default}#{rand(Time.now.to_i)}"
    end
    Object.const_set(const_name, klass)
    klass
  end

  # Generate a no-op test for use in testing.

  def self.test(*args, &block)
    config, context_info, name = [
      args.last.kind_of?(Assert::Config) ? args.pop : self.modes_off_config,
      args.last.kind_of?(Assert::Suite::ContextInfo) ? args.pop : self.context_info,
      args.last.kind_of?(::String) ? args.pop : 'a test'
    ]
    Assert::Test.for_block(name, context_info, config, &block)
  end

  # Generate results for use in testing.

  def self.pass_result(msg = nil)
    Assert::Result::Pass.for_test(Factory.test(Factory.string), msg || Factory.string, [])
  end

  def self.ignore_result(msg = nil)
    Assert::Result::Ignore.for_test(Factory.test(Factory.string), msg || Factory.string, [])
  end

  def self.fail_result(msg = nil)
    Assert::Result::Fail.for_test(Factory.test(Factory.string), msg || Factory.string, [])
  end

  def self.skip_result(exception = nil)
    exception ||= Assert::Result::TestSkipped.new
    Assert::Result::Skip.for_test(Factory.test(Factory.string), exception)
  end

  def self.error_result(exception = nil)
    exception ||= StandardError.new
    Assert::Result::Error.for_test(Factory.test(Factory.string), exception)
  end

  def self.modes_off_config
    Assert::Config.new({
      :capture_output => false,
      :halt_on_fail   => false,
      :changed_only   => false,
      :pp_objects     => false,
      :debug          => false
    })
  end

  def self.modes_off_suite
    Assert::Suite.new(self.modes_off_config)
  end

  def self.modes_off_context_class(*args, &block)
    suite_obj = self.modes_off_suite
    self.context_class(*args) do
      suite(suite_obj)
      instance_eval(&block) if !block.nil?
    end
  end

end