baretest 0.1.0 → 0.2.3

data/lib/test/assertion.rb

@@ -1,117 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-require 'test/assertion/failure'
-
-
-
-module Test
-
-  # Defines an assertion
-  # An assertion belongs to a suite and consists of a description and a block.
-  # The verify the assertion, the suite's (and its ancestors) setup blocks are
-  # executed, then the assertions block is executed and after that, the suite's
-  # (and ancestors) teardown blocks are invoked.
-  #
-  # An assertion has 5 possible states, see Assertion#status for a list of them.
-  #
-  # There are various helper methods in lib/test/support.rb which help you
-  # defining nicer diagnostics or just easier ways to test common scenarios.
-  # The following are test helpers:
-  # * Kernel#raises(exception_class=StandardError)
-  # * Kernel#within_delta(a, b, delta)
-  # * Kernel#equal_unordered(a,b)
-  # * Enumerable#equal_unordered(other)
-  class Assertion
-
-    # An assertion has 5 possible states:
-    # :success
-    # :    The assertion passed. This means the block returned a trueish value.
-    # :failure
-    # :    The assertion failed. This means the block returned a falsish value.
-    #      Alternatively it raised a Test::Failure (NOT YET IMPLEMENTED).
-    #      The latter has the advantage that it can provide nicer diagnostics.
-    # :pending
-    # :    No block given to the assertion to be run
-    # :skipped
-    # :    If one of the parent suites is missing a dependency, its assertions
-    #      will be skipped
-    # :error
-    # :    The assertion errored out. This means the block raised an exception
-    attr_reader :status
-
-    # If an exception occured in Assertion#execute, this will contain the
-    # Exception object raised.
-    attr_reader :exception
-
-    # The description of this assertion.
-    attr_reader :description
-
-    # The failure reason.
-    attr_reader :failure_reason
-
-    # The suite this assertion belongs to
-    attr_reader :suite
-
-    # The block specifying the assertion
-    attr_reader :block
-
-    # suite
-    # :   The suite the Assertion belongs to
-    # description
-    # :   A descriptive string about what this Assertion tests.
-    # &block
-    # :   The block definition. Without one, the Assertion will have a :pending
-    #     status.
-    def initialize(suite, description, &block)
-      @suite          = suite
-      @status         = nil
-      @failure_reason = nil
-      @exception      = nil
-      @description    = description || "No description given"
-      @block          = block
-    end
-
-    # Run all setups in the order of their nesting (outermost first, innermost last)
-    def setup
-      @suite.ancestry_setup.each { |setup| instance_eval(&setup) } if @suite
-    end
-
-    # Run all teardowns in the order of their nesting (innermost first, outermost last)
-    def teardown
-      @suite.ancestry_teardown.each { |setup| instance_eval(&setup) } if @suite
-    end
-
-    # Runs the assertion and sets the status and exception
-    def execute
-      @exception = nil
-      if @block then
-        setup
-        # run the assertion
-        begin
-          @status = instance_eval(&@block) ? :success : :failure
-        rescue ::Test::Assertion::Failure => failure
-          @status         = :failure
-          @failure_reason = failure
-        rescue => exception
-          @failure_reason = "An error occurred"
-          @exception      = exception
-          @status         = :error
-        end
-        teardown
-      else
-        @status = :pending
-      end
-      self
-    end
-
-    def clean_copy(use_class=nil)
-      (use_class || self.class).new(@suite, @description, &@block)
-    end
-  end
-end

data/lib/test/debug.rb

@@ -1,34 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-require 'pp'
-require 'yaml'
-
-
-
-module Test
-  class Suite
-    def to_s
-      sprintf "%s %s", self.class, @description
-    end
-
-    def inspect
-      sprintf "#<%s:%08x %p>", self.class, object_id>>1, @description
-    end
-  end
-
-  class Assertion
-    def to_s
-      sprintf "%s %s", self.class, @description
-    end
-
-    def inspect
-      sprintf "#<%s:%08x @suite=%p %p>", self.class, object_id>>1, @suite, @description
-    end
-  end
-end

data/lib/test/irb_mode.rb

@@ -1,104 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-require 'test/debug'
-
-
-
-module Test
-  module IRBMode
-    module AssertionExtensions
-    end
-
-    class AssertionContext < ::Test::Assertion
-      attr_accessor :original_assertion
-
-      def to_s
-        "Assertion"
-      end
-
-      def e!
-        em!
-        bt!
-      end
-
-      def em!
-        puts @original_assertion.exception
-      end
-
-      def bt!
-        size = caller.size+3
-        puts @original_assertion.exception.backtrace[0..-size]
-      end
-    end
-
-    def self.extended(by)
-      by.init do
-        require 'irb'
-        require 'test/debug'
-        IRB.setup(nil) # must only be called once
-      end
-    end
-
-    # Formatter callback.
-    # Invoked once for every assertion.
-    # Gets the assertion to run as single argument.
-    def run_test(assertion)
-      rv = super
-      # drop into irb if assertion failed
-      if [:failure, :error].include?(rv.status) then
-        start_irb_mode(assertion)
-        irb_mode_for_assertion(assertion)
-        stop_irb_mode(assertion)
-      end
-
-      @count[:test]            += 1
-      @count[assertion.status] += 1
-      rv
-    end
-
-    def start_irb_mode(assertion)
-      ancestry = assertion.suite.ancestors.reverse.map { |suite| suite.name }
-
-      puts
-      puts "#{assertion.status.to_s.capitalize} in #{ancestry.join(' > ')}"
-      puts "  #{assertion.description}"
-      puts "#{assertion.exception} - #{assertion.exception.backtrace.first}"
-      super
-    rescue NoMethodError # HAX, not happy about that. necessary due to order of extend
-    end
-
-    # This method is highlevel hax, try to add necessary API to
-    # Test::Assertion
-    def irb_mode_for_assertion(assertion)
-      irb_context = assertion.clean_copy(AssertionContext)
-      irb_context.original_assertion = assertion
-      irb_context.setup
-      @irb = IRB::Irb.new(IRB::WorkSpace.new(irb_context.send(:binding)))
-      irb  = @irb # for closure
-
-      # HAX - cargo cult, taken from irb.rb, not yet really understood.
-      IRB.conf[:IRB_RC].call(irb.context) if IRB.conf[:IRB_RC] # loads the irbrc?
-      IRB.conf[:MAIN_CONTEXT] = irb.context # why would the main context be set here?
-      # /HAX
-
-      trap("SIGINT") do
-        irb.signal_handle
-      end
-      catch(:IRB_EXIT) do irb.eval_input end
-
-      irb_context.teardown
-    end
-
-    def stop_irb_mode(assertion)
-      puts
-      super
-    rescue NoMethodError # HAX, not happy about that. necessary due to order of extend
-    end
-  end
-end

data/lib/test/run/cli.rb

@@ -1,79 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-module Test
-  class Run
-    module CLI
-      Formats = {
-        :pending => "\e[43m%9s\e[0m  %s%s\n",
-        :skipped => "\e[43m%9s\e[0m  %s%s\n",
-        :success => "\e[42m%9s\e[0m  %s%s\n",
-        :failure => "\e[41m%9s\e[0m  %s%s\n",
-        :error   => "\e[37;40;1m%9s\e[0m  %s%s\n"  # ]]]]]]]] - bbedit hates open brackets...
-      }
-
-      FooterFormats = {
-        :incomplete => "\e[43m%9s\e[0m\n",
-        :success    => "\e[42m%9s\e[0m\n",
-        :failure    => "\e[41m%9s\e[0m\n",
-        :error      => "\e[37;40;1m%9s\e[0m\n"  # ]]]]]]]] - bbedit hates open brackets...
-      }
-
-      def run_all(*args)
-        @depth = 0
-        puts "Running all tests\n"
-        start = Time.now
-        super # run all suites
-        status = global_status
-        printf "\n%2$d tests run in %1$.1fs\n%3$d successful, %4$d pending, %5$d failures, %6$d errors\n",
-          Time.now-start, *@count.values_at(:test, :success, :pending, :failure, :error)
-        print "Final status: "
-        printf FooterFormats[status], status_label(status)
-      end
-
-      def run_suite(suite)
-        return super unless suite.description
-        #label, size = '  '*@depth+suite.description, suite.tests.size.to_s
-        #printf "\n\e[1m%-*s\e[0m (%d tests)\n", 71-size.length, label, size
-        case size = suite.tests.size
-          when 0
-            puts "\n           \e[1m#{'  '*@depth+suite.description}\e[0m"
-          when 1
-            puts "\n           \e[1m#{'  '*@depth+suite.description}\e[0m (1 test)"
-          else
-            puts "\n           \e[1m#{'  '*@depth+suite.description}\e[0m (#{size} tests)"
-        end
-        @depth += 1
-        super # run the suite
-        @depth -= 1
-      end
-
-      def run_test(assertion)
-        rv = super # run the assertion
-        printf(Formats[rv.status], status_label(rv.status), '  '*@depth, rv.description)
-        if rv.status == :error then
-          indent = '           '+'  '*@depth
-          print(indent, rv.exception.message, "\n", indent, rv.exception.backtrace.first, "\n")
-        elsif rv.status == :failure && rv.failure_reason then
-          print('           ', '  '*@depth, rv.failure_reason, "\n")
-        end
-        rv
-      end
-
-      def word_wrap(string, cols)
-        str.scan(/[^ ]+ /)
-      end
-
-      def status_label(status)
-        status.to_s.capitalize.center(9)
-      end
-    end
-  end
-
-  @format["test/run/cli"] = Run::CLI # register the extender
-end

data/lib/test/run/interactive.rb

@@ -1,60 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-module Test
-  class Run
-    module Interactive
-      def self.extended(obj)
-        obj.init do
-          require "test/irb_mode"
-          extend(Test::IRBMode)
-        end
-      end
-
-      def run_all
-        count    = proc { |acc,csuite| acc+csuite.tests.size+csuite.suites.inject(0, &count) }
-        @counted = count[0, suite] # count the number of tests to run
-        @depth   = 0
-        @width   = (Math.log(@counted)/Math.log(10)).floor+1
-
-        puts "Running all tests in interactive mode\n"
-        $stdout.sync = true
-        print_count
-
-        super
-
-        puts "\n\nDone"
-        $stdout.sync = false
-        $stdout.flush
-      end
-
-      def run_suite(suite)
-        return super unless suite.description
-        @depth += 1
-        super
-        @depth -= 1
-      end
-
-      def run_test(assertion)
-        rv          = super
-        print_count
-        rv
-      end
-
-      def print_count
-        printf "\rRan %*d of %*d assertions", @width, @count[:test], @width, @counted
-      end
-
-      def stop_irb_mode(assertion)
-        puts "\n\n"
-      end
-    end
-  end
-
-  @format["test/run/interactive"] = Run::Interactive # register the extender
-end

data/lib/test/run/tap.rb

@@ -1,32 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-module Test
-  class Run
-    module TAP
-      def run_all
-        puts "TAP version 13"
-        count = proc { |acc,csuite| acc+csuite.tests.size+csuite.suites.inject(0, &count) }
-        puts "1..#{count[0, suite]}"
-        @current = 0
-        super
-      end
-
-      def run_test(assertion)
-        rv = super
-        printf "%sok %d - %s%s\n",
-          rv.status == :success ? '' : 'not ',
-          @current+=1,
-          rv.description,
-          rv.status == :success ? '' : " # #{rv.status}"
-      end
-    end
-  end
-
-  @format["test/run/tap"] = Run::TAP
-end

data/lib/test/run/xml.rb

@@ -1,56 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-module Test
-  class Run
-    module XML
-      def run_all
-        @depth = 1
-
-        puts '<?xml version="1.0" encoding="utf-8"?>'
-        puts '<tests>'
-        start  = Time.now
-        super
-        stop   = Time.now
-        status = case
-          when @count[:error]   > 0 then 'error'
-          when @count[:failure] > 0 then 'failure'
-          when @count[:pending] > 0 then 'incomplete'
-          when @count[:skipped] > 0 then 'incomplete'
-          else 'success'
-        end
-        puts %{</tests>}
-        puts %{<report>}
-        puts %{\t<duration>#{stop-start}</duration>}
-        @count.each { |key, value|
-          puts %{\t<count type="#{key}">#{value}</count>}
-        }
-        puts %{</report>}
-        puts %{<status>#{status}</status>}
-      end
-
-      def run_suite(suite)
-        puts %{#{"\t"*@depth}<suite description="#{suite.description}">}
-        @depth += 1
-        super
-        @depth -= 1
-        puts %{#{"\t"*@depth}</suite>}
-      end
-
-      def run_test(assertion)
-        rv = super
-        puts %{#{"\t"*@depth}<test>}
-        puts %{#{"\t"*@depth}\t<status>#{rv.status}</status>}
-        puts %{#{"\t"*@depth}\t<description>#{rv.description}</description>}
-        puts %{#{"\t"*@depth}</test>}
-      end
-    end
-  end
-
-  @format["test/run/xml"] = Run::XML
-end

data/lib/test/suite.rb

@@ -1,95 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-module Test
-
-  # A Suite is a container for multiple assertions.
-  # You can give a suite a description, also a suite can contain
-  # setup and teardown blocks that are executed before (setup) and after
-  # (teardown) every assertion.
-  # Suites can also be nested. Nested suites will inherit setup and teardown.
-  class Suite
-
-    # Nested suites
-    attr_reader :suites
-
-    # All assertions in this suite
-    attr_reader :tests
-
-    # This suites description. Toplevel suites usually don't have a description.
-    attr_reader :description
-
-    # This suites direct parent. Nil if toplevel suite.
-    attr_reader :parent
-
-    # An Array containing the suite itself (first element), then its direct
-    # parent suite, then that suite's parent and so on
-    attr_reader :ancestors
-
-    def self.create(description=nil, parent=nil, opts={}, &block)
-      Array(opts[:requires]).each { |file| require file } if opts[:requires]
-    rescue LoadError
-      # A suite is skipped if requirements are not met
-      Skipped::Suite.new(description, parent, &block)
-    else
-      # All suites within Skipped::Suite are Skipped::Suite
-      (block ? self : Skipped::Suite).new(description, parent, &block)
-    end
-
-    def initialize(description=nil, parent=nil, &block)
-      @description = description
-      @parent      = parent
-      @suites      = []
-      @tests       = []
-      @setup       = []
-      @teardown    = []
-      @ancestors   = [self] + (@parent ? @parent.ancestors : [])
-      instance_eval(&block) if block
-    end
-
-    # Define a nested suite.
-    # Nested suites inherit setup & teardown methods.
-    # Also if an outer suite is skipped, all inner suites are skipped too.
-    # Valid values for opts:
-    # requires
-    # :   A list of files to require, if one of the requires fails, the suite
-    #     will be skipped. Accepts a String or an Array
-    def suite(description=nil, opts={}, &block)
-      @suites << self.class.create(description, self, opts, &block)
-    end
-
-    # All setups in the order of their nesting (outermost first, innermost last)
-    def ancestry_setup
-      ancestors.map { |suite| suite.setup }.flatten.reverse
-    end
-
-    # All teardowns in the order of their nesting (innermost first, outermost last)
-    def ancestry_teardown
-      ancestors.map { |suite| suite.teardown }.flatten
-    end
-
-    # Define a setup block for this suite. The block will be ran before every
-    # assertion once, even for nested suites.
-    def setup(&block)
-      block ? @setup << block : @setup
-    end
-
-    # Define a teardown block for this suite. The block will be ran after every
-    # assertion once, even for nested suites.
-    def teardown(&block)
-      block ? @teardown << block : @teardown
-    end
-
-    # Define an assertion. The block is supposed to return a trueish value
-    # (anything but nil or false).
-    # See Assertion for more info.
-    def assert(description=nil, &block)
-      @tests << Assertion.new(self, description, &block)
-    end
-  end
-end

data/lib/test.rb

@@ -1,118 +0,0 @@
-#--
-# Copyright 2009 by Stefan Rusterholz.
-# All rights reserved.
-# See LICENSE.txt for permissions.
-#++
-
-
-
-require 'test/irb_mode'
-require 'test/run'
-require 'test/suite'
-require 'test/assertion'
-# See bottom for more requires
-
-
-
-module Test
-  class <<self
-    # A hash of formatters (require-string => module) to be used with Test::Run.
-    attr_reader :format
-
-    # For mock integration and others, append modules that should extend the Test::Run instance.
-    attr_reader :extender
-
-    # The toplevel suite. That's the one run_if_mainfile and define add suites
-    # and assertions to.
-    attr_reader :toplevel_suite
-
-    # The full path to this file
-    attr_reader :required_file
-  end
-
-  # For bootstrapped selftest
-  def self.init
-    @format         = {}
-    @extender       = []
-    @toplevel_suite = Suite.new
-    @required_file  = ["", *$LOAD_PATH].map { |path|
-      File.expand_path(File.join(path, __FILE__))
-    }.find { |full| File.exist?(full) }
-  end
-  init
-
-  # Adds the contained assertions and suites to the toplevel suite
-  def self.define(name=nil, opts={}, &block)
-    if name then
-      @toplevel_suite.suite(name, opts, &block)
-    elsif opts && !opts.empty?
-      raise ArgumentError, "Suites with options must have names"
-    else
-      @toplevel_suite.instance_eval(&block)
-    end
-  end
-
-  # Creates a Test::Run instance, adds the assertions and suites defined in its
-  # own block to that Test::Run instance's toplevel suite and if $PROGRAM_NAME
-  # (aka $0) is equal to __FILE__ (means the current file is the file directly
-  # executed by ruby, and not just required/loaded/evaled by another file),
-  # subsequently also runs that suite.
-  def self.run_if_mainfile(name=nil, opts={}, &block)
-    define(name, opts, &block)
-    if caller.first[/^[^:]*/] == $0 then # if is mainfile
-      run(:format => ENV['FORMAT'], :interactive => ENV['INTERACTIVE'])
-    end
-  end
-
-  def self.run(opts=nil)
-    Run.new(@toplevel_suite, opts).run_all
-  end
-
-  # Skipped contains variants of Suite and Assertion.
-  # See Skipped::Suite and Skipped::Assertion
-  module Skipped
-    # Like Test::Suite, but all Assertions are defined as Skipped::Assertion
-    class Suite < ::Test::Suite
-      # :nodoc:
-      # All Assertions use Skipped::Assertion instead of Test::Assertion.
-      def assert(description=nil, &block)
-        @tests << Skipped::Assertion.new(self, description, &block)
-      end
-
-      # :nodoc:
-      # All setup blocks are disabled
-      def ancestry_setup
-        []
-      end
-
-      # :nodoc:
-      # All teardown blocks are disabled
-      def ancestry_teardown
-        []
-      end
-
-      # :nodoc:
-      # All setup blocks are disabled
-      def setup(&block)
-        []
-      end
-
-      # :nodoc:
-      # All teardown blocks are disabled
-      def teardown(&block)
-        []
-      end
-    end
-
-    # Like Test::Assertion, but fakes execution and sets status always to
-    # skipped.
-    class Assertion < ::Test::Assertion
-      def execute() @status = :skipped and self end
-    end
-  end
-end
-
-
-
-# At bottom due to dependencies
-require 'test/assertion/support' # Needs Test.extender to be defined