Documentation Support

$LOAD_PATH.unshift File.expand_path("../../lib", __FILE__)
require 'xspec'

$initial = Object.constants

module ExpectToFail
  def expect_to_fail!
    @expect_to_fail = caller
  end

  def call(uow)
    result = super
    return result unless @expect_to_fail

    if result.empty?
      [XSpec::Failure.new(uow, "expected failure", @expect_to_fail)]
    else
      []
    end
  end
end

def documentation_stack(&block)
  Module.new do
    include XSpec::Evaluator::Bottom
    instance_exec &block if block
    include XSpec::Evaluator::Top
    include ExpectToFail
  end
end