rroonga 0.9.3-x86-mingw32 → 0.9.4-x86-mingw32

data/test-unit/lib/test/unit/attribute.rb

@@ -1,125 +0,0 @@
-module Test
-  module Unit
-    module Attribute
-      class << self
-        def included(base)
-          base.extend(BaseClassMethods)
-          base.extend(ClassMethods)
-        end
-      end
-
-      module BaseClassMethods
-        def attributes_table
-          {}
-        end
-      end
-
-      module ClassMethods
-        def method_added(name)
-          super
-          return unless defined?(@current_attributes)
-
-          attributes = {}
-          kept_attributes = {}
-          @current_attributes.each do |attribute_name, attribute|
-            attributes[attribute_name] = attribute[:value]
-            kept_attributes[attribute_name] = attribute if attribute[:keep]
-          end
-          set_attributes(name, attributes)
-          @current_attributes = kept_attributes
-        end
-
-        def attribute(name, value, options={}, *method_names)
-          unless options.is_a?(Hash)
-            method_names << options
-            options = {}
-          end
-          @current_attributes ||= {}
-          if method_names.empty?
-            @current_attributes[name] = options.merge(:value => value)
-          else
-            method_names.each do |method_name|
-              set_attributes(method_name, {name => value})
-            end
-          end
-        end
-
-        def attributes_table
-          @attributes_table ||= {}
-          super.merge(@attributes_table)
-        end
-
-        def set_attributes(method_name, new_attributes)
-          return if new_attributes.empty?
-          method_name = normalize_method_name(method_name)
-          @attributes_table ||= {}
-          @attributes_table[method_name] ||= {}
-          current_attributes = @attributes_table[method_name]
-          new_attributes.each do |key, value|
-            key = normalize_attribute_name(key)
-            observers = attribute_observers(key) || []
-            observers.each do |observer|
-              observer.call(self,
-                            key,
-                            (attributes(method_name) || {})[key],
-                            value,
-                            method_name)
-            end
-            current_attributes[key] = value
-          end
-        end
-
-        def attributes(method_name)
-          method_name = normalize_method_name(method_name)
-          attributes = attributes_table[method_name]
-          ancestors[1..-1].each do |ancestor|
-            if ancestor.is_a?(Class) and ancestor < Test::Unit::Attribute
-              parent_attributes = ancestor.attributes(method_name)
-              if attributes
-                attributes = (parent_attributes || {}).merge(attributes)
-              else
-                attributes = parent_attributes
-              end
-              break
-            end
-          end
-          attributes
-        end
-
-        def get_attribute(method_name, attribute_name)
-          attribute_name = normalize_attribute_name(attribute_name)
-          (attributes(method_name) || {})[attribute_name]
-        end
-
-        @@attribute_observers = {}
-        def register_attribute_observer(attribute_name, observer=Proc.new)
-          attribute_name = normalize_attribute_name(attribute_name)
-          @@attribute_observers[attribute_name] ||= []
-          @@attribute_observers[attribute_name] << observer
-        end
-
-        def attribute_observers(attribute_name)
-          attribute_name = normalize_attribute_name(attribute_name)
-          @@attribute_observers[attribute_name]
-        end
-
-        private
-        def normalize_attribute_name(name)
-          name.to_s
-        end
-
-        def normalize_method_name(name)
-          name.to_s
-        end
-      end
-
-      def attributes
-        self.class.attributes(@method_name) || {}
-      end
-
-      def [](name)
-        self.class.get_attribute(@method_name, name)
-      end
-    end
-  end
-end

data/test-unit/lib/test/unit/autorunner.rb

@@ -1,360 +0,0 @@
-require 'test/unit/color-scheme'
-require 'optparse'
-
-module Test
-  module Unit
-    class AutoRunner
-      RUNNERS = {}
-      COLLECTORS = {}
-      ADDITIONAL_OPTIONS = []
-
-      class << self
-        def register_runner(id, runner_builder=Proc.new)
-          RUNNERS[id] = runner_builder
-          RUNNERS[id.to_s] = runner_builder
-        end
-
-        def runner(id)
-          RUNNERS[id.to_s]
-        end
-
-        @@default_runner = nil
-        def default_runner
-          runner(@@default_runner)
-        end
-
-        def default_runner=(id)
-          @@default_runner = id
-        end
-
-        def register_collector(id, collector_builder=Proc.new)
-          COLLECTORS[id] = collector_builder
-          COLLECTORS[id.to_s] = collector_builder
-        end
-
-        def collector(id)
-          COLLECTORS[id.to_s]
-        end
-
-        def register_color_scheme(id, scheme)
-          ColorScheme[id] = scheme
-        end
-
-        def setup_option(option_builder=Proc.new)
-          ADDITIONAL_OPTIONS << option_builder
-        end
-      end
-
-      def self.run(force_standalone=false, default_dir=nil, argv=ARGV, &block)
-        r = new(force_standalone || standalone?, &block)
-        r.base = default_dir
-        r.process_args(argv)
-        r.run
-      end
-      
-      def self.standalone?
-        return false unless("-e" == $0)
-        ObjectSpace.each_object(Class) do |klass|
-          return false if(klass < TestCase)
-        end
-        true
-      end
-
-      register_collector(:descendant) do |auto_runner|
-        require 'test/unit/collector/descendant'
-        collector = Collector::Descendant.new
-        collector.filter = auto_runner.filters
-        collector.collect($0.sub(/\.rb\Z/, ''))
-      end
-
-      register_collector(:load) do |auto_runner|
-        require 'test/unit/collector/load'
-        collector = Collector::Load.new
-        collector.patterns.concat(auto_runner.pattern) if auto_runner.pattern
-        collector.excludes.concat(auto_runner.exclude) if auto_runner.exclude
-        collector.base = auto_runner.base
-        collector.filter = auto_runner.filters
-        collector.collect(*auto_runner.to_run)
-      end
-
-      # deprecated
-      register_collector(:object_space) do |auto_runner|
-        require 'test/unit/collector/objectspace'
-        c = Collector::ObjectSpace.new
-        c.filter = auto_runner.filters
-        c.collect($0.sub(/\.rb\Z/, ''))
-      end
-
-      # deprecated
-      register_collector(:dir) do |auto_runner|
-        require 'test/unit/collector/dir'
-        c = Collector::Dir.new
-        c.filter = auto_runner.filters
-        c.pattern.concat(auto_runner.pattern) if auto_runner.pattern
-        c.exclude.concat(auto_runner.exclude) if auto_runner.exclude
-        c.base = auto_runner.base
-        $:.push(auto_runner.base) if auto_runner.base
-        c.collect(*(auto_runner.to_run.empty? ? ['.'] : auto_runner.to_run))
-      end
-
-      attr_reader :suite, :runner_options
-      attr_accessor :filters, :to_run, :pattern, :exclude, :base, :workdir
-      attr_accessor :color_scheme
-      attr_writer :runner, :collector
-
-      def initialize(standalone)
-        Unit.run = true
-        @standalone = standalone
-        @runner = default_runner
-        @collector = default_collector
-        @filters = []
-        @to_run = []
-        @color_scheme = ColorScheme.default
-        @runner_options = {}
-        @default_arguments = []
-        @workdir = nil
-        config_file = "test-unit.yml"
-        if File.exist?(config_file)
-          load_config(config_file)
-        else
-          load_global_config
-        end
-        yield(self) if block_given?
-      end
-
-      def process_args(args = ARGV)
-        begin
-          args.unshift(*@default_arguments)
-          options.order!(args) {|arg| @to_run << arg}
-        rescue OptionParser::ParseError => e
-          puts e
-          puts options
-          exit(false)
-        end
-        not @to_run.empty?
-      end
-
-      def options
-        @options ||= OptionParser.new do |o|
-          o.banner = "Test::Unit automatic runner."
-          o.banner << "\nUsage: #{$0} [options] [-- untouched arguments]"
-
-          o.on
-          o.on('-r', '--runner=RUNNER', RUNNERS,
-               "Use the given RUNNER.",
-               "(" + keyword_display(RUNNERS) + ")") do |r|
-            @runner = r
-          end
-
-          if (@standalone)
-            o.on('-b', '--basedir=DIR', "Base directory of test suites.") do |b|
-              @base = b
-            end
-
-            o.on('-w', '--workdir=DIR', "Working directory to run tests.") do |w|
-              @workdir = w
-            end
-
-            o.on('-a', '--add=TORUN', Array,
-                 "Add TORUN to the list of things to run;",
-                 "can be a file or a directory.") do |a|
-              @to_run.concat(a)
-            end
-
-            @pattern = []
-            o.on('-p', '--pattern=PATTERN', Regexp,
-                 "Match files to collect against PATTERN.") do |e|
-              @pattern << e
-            end
-
-            @exclude = []
-            o.on('-x', '--exclude=PATTERN', Regexp,
-                 "Ignore files to collect against PATTERN.") do |e|
-              @exclude << e
-            end
-          end
-
-          o.on('-n', '--name=NAME', String,
-               "Runs tests matching NAME.",
-               "(patterns may be used).") do |n|
-            n = (%r{\A/(.*)/\Z} =~ n ? Regexp.new($1) : n)
-            case n
-            when Regexp
-              @filters << proc{|t| n =~ t.method_name ? true : false}
-            else
-              @filters << proc{|t| n == t.method_name}
-            end
-          end
-
-          o.on('-t', '--testcase=TESTCASE', String,
-               "Runs tests in TestCases matching TESTCASE.",
-               "(patterns may be used).") do |n|
-            n = (%r{\A/(.*)/\Z} =~ n ? Regexp.new($1) : n)
-            case n
-            when Regexp
-              @filters << proc{|t| n =~ t.class.name ? true : false}
-            else
-              @filters << proc{|t| n == t.class.name}
-            end
-          end
-
-          priority_filter = Proc.new do |test|
-            if @filters == [priority_filter]
-              Priority::Checker.new(test).need_to_run?
-            else
-              nil
-            end
-          end
-          o.on("--[no-]priority-mode",
-               "Runs some tests based on their priority.") do |priority_mode|
-            if priority_mode
-              Priority.enable
-              @filters |= [priority_filter]
-            else
-              Priority.disable
-              @filters -= [priority_filter]
-            end
-          end
-
-          o.on("--default-priority=PRIORITY",
-               Priority.available_values,
-               "Uses PRIORITY as default priority",
-               "(#{keyword_display(Priority.available_values)})") do |priority|
-            Priority.default = priority
-          end
-
-          o.on('-I', "--load-path=DIR[#{File::PATH_SEPARATOR}DIR...]",
-               "Appends directory list to $LOAD_PATH.") do |dirs|
-            $LOAD_PATH.concat(dirs.split(File::PATH_SEPARATOR))
-          end
-
-          color_schemes = ColorScheme.all
-          o.on("--color-scheme=SCHEME", color_schemes,
-               "Use SCHEME as color scheme.",
-               "(#{keyword_display(color_schemes)})") do |scheme|
-            @color_scheme = scheme
-          end
-
-          o.on("--config=FILE",
-               "Use YAML fomat FILE content as configuration file.") do |file|
-            load_config(file)
-          end
-
-          o.on("--order=ORDER", TestCase::AVAILABLE_ORDERS,
-               "Run tests in a test case in ORDER order.",
-               "(#{keyword_display(TestCase::AVAILABLE_ORDERS)})") do |order|
-            TestCase.test_order = order
-          end
-
-          ADDITIONAL_OPTIONS.each do |option_builder|
-            option_builder.call(self, o)
-          end
-
-          o.on('--',
-               "Stop processing options so that the",
-               "remaining options will be passed to the",
-               "test."){o.terminate}
-
-          o.on('-h', '--help', 'Display this help.'){puts o; exit}
-
-          o.on_tail
-          o.on_tail('Deprecated options:')
-
-          o.on_tail('--console', 'Console runner (use --runner).') do
-            warn("Deprecated option (--console).")
-            @runner = self.class.runner(:console)
-          end
-
-          if RUNNERS[:fox]
-            o.on_tail('--fox', 'Fox runner (use --runner).') do
-              warn("Deprecated option (--fox).")
-              @runner = self.class.runner(:fox)
-            end
-          end
-
-          o.on_tail
-        end
-      end
-
-      def keyword_display(keywords)
-        keywords = keywords.collect do |keyword, _|
-          keyword.to_s
-        end.uniq.sort
-
-        i = 0
-        keywords.collect do |keyword|
-          if (i > 0 and keyword[0] == keywords[i - 1][0]) or
-              ((i < keywords.size - 1) and (keyword[0] == keywords[i + 1][0]))
-            n = 2
-          else
-            n = 1
-          end
-          i += 1
-          keyword.sub(/^(.{#{n}})([A-Za-z]+)(?=\w*$)/, '\\1[\\2]')
-        end.join(", ")
-      end
-
-      def run
-        suite = @collector[self]
-        return false if suite.nil?
-        runner = @runner[self]
-        return false if runner.nil?
-        @runner_options[:color_scheme] ||= @color_scheme
-        Dir.chdir(@workdir) if @workdir
-        runner.run(suite, @runner_options).passed?
-      end
-
-      def load_config(file)
-        require 'yaml'
-        config = YAML.load(File.read(file))
-        runner_name = config["runner"]
-        @runner = self.class.runner(runner_name) || @runner
-        @collector = self.class.collector(config["collector"]) || @collector
-        (config["color_schemes"] || {}).each do |name, options|
-          ColorScheme[name] = options
-        end
-        runner_options = {}
-        (config["#{runner_name}_options"] || {}).each do |key, value|
-          key = key.to_sym
-          value = ColorScheme[value] if key == :color_scheme
-          if key == :arguments
-            @default_arguments.concat(value.split)
-          else
-            runner_options[key.to_sym] = value
-          end
-        end
-        @runner_options = @runner_options.merge(runner_options)
-      end
-
-      private
-      def default_runner
-        runner = self.class.default_runner
-        if ENV["EMACS"] == "t"
-          runner ||= self.class.runner(:emacs)
-        else
-          runner ||= self.class.runner(:console)
-        end
-        runner
-      end
-
-      def default_collector
-        self.class.collector(@standalone ? :load : :descendant)
-      end
-
-      def global_config_file
-        File.expand_path("~/.test-unit.xml")
-      rescue ArgumentError
-        nil
-      end
-
-      def load_global_config
-        file = global_config_file
-        load_config(file) if file and File.exist?(file)
-      end
-    end
-  end
-end
-
-require 'test/unit/runner/console'
-require 'test/unit/runner/emacs'
-require 'test/unit/runner/tap'

data/test-unit/lib/test/unit/collector/descendant.rb

@@ -1,23 +0,0 @@
-require 'test/unit/collector'
-
-module Test
-  module Unit
-    module Collector
-      class Descendant
-        include Collector
-
-        NAME = 'collected from the subclasses of TestCase'
-
-        def collect(name=NAME)
-          suite = TestSuite.new(name)
-          sub_suites = []
-          TestCase::DESCENDANTS.each do |descendant_test_case|
-            add_suite(sub_suites, descendant_test_case.suite)
-          end
-          sort(sub_suites).each {|s| suite << s}
-          suite
-        end
-      end
-    end
-  end
-end

data/test-unit/lib/test/unit/collector/dir.rb

@@ -1,108 +0,0 @@
-require 'test/unit/testsuite'
-require 'test/unit/collector'
-
-module Test
-  module Unit
-    module Collector
-      class Dir
-        include Collector
-
-        attr_reader :pattern, :exclude
-        attr_accessor :base
-
-        def initialize(dir=::Dir, file=::File, object_space=::ObjectSpace, req=nil)
-          super()
-          @dir = dir
-          @file = file
-          @object_space = object_space
-          @req = req
-          @pattern = [/\btest_.*\.rb\Z/m]
-          @exclude = []
-          @base = nil
-        end
-
-        def collect(*from)
-          basedir = @base
-          $:.push(basedir) if basedir
-          if(from.empty?)
-            recursive_collect('.', find_test_cases)
-          elsif(from.size == 1)
-            recursive_collect(from.first, find_test_cases)
-          else
-            suites = []
-            from.each do |f|
-              suite = recursive_collect(f, find_test_cases)
-              suites << suite unless(suite.tests.empty?)
-            end
-            suite = TestSuite.new("[#{from.join(', ')}]")
-            sort(suites).each{|s| suite << s}
-            suite
-          end
-        ensure
-          $:.delete_at($:.rindex(basedir)) if basedir
-        end
-
-        def find_test_cases(ignore=[])
-          cases = []
-          @object_space.each_object(Class) do |c|
-            cases << c if(c < TestCase && !ignore.include?(c))
-          end
-          ignore.concat(cases)
-          cases
-        end
-
-        def recursive_collect(name, already_gathered)
-          sub_suites = []
-          path = realdir(name)
-          if @file.directory?(path)
-	    dir_name = name unless name == '.'
-            @dir.entries(path).each do |e|
-              next if(e == '.' || e == '..')
-              e_name = dir_name ? @file.join(dir_name, e) : e
-              if @file.directory?(realdir(e_name))
-                next if /\A(?:CVS|\.svn|\.git)\z/ =~ e
-                sub_suite = recursive_collect(e_name, already_gathered)
-                sub_suites << sub_suite unless(sub_suite.empty?)
-              else
-                next if /~\z/ =~ e_name or /\A\.\#/ =~ e
-                if @pattern and !@pattern.empty?
-                  next unless @pattern.any? {|pat| pat =~ e_name}
-                end
-                if @exclude and !@exclude.empty?
-                  next if @exclude.any? {|pat| pat =~ e_name}
-                end
-                collect_file(e_name, sub_suites, already_gathered)
-              end
-            end
-          else
-            collect_file(name, sub_suites, already_gathered)
-          end
-          suite = TestSuite.new(@file.basename(name))
-          sort(sub_suites).each{|s| suite << s}
-          suite
-        end
-
-        def collect_file(name, suites, already_gathered)
-          dir = @file.dirname(@file.expand_path(name, @base))
-          $:.unshift(dir)
-          if(@req)
-            @req.require(name)
-          else
-            require(name)
-          end
-          find_test_cases(already_gathered).each{|t| add_suite(suites, t.suite)}
-        ensure
-          $:.delete_at($:.rindex(dir)) if(dir)
-        end
-
-	def realdir(path)
-	  if @base
-	    @file.join(@base, path)
-	  else
-	    path
-	  end
-	end
-      end
-    end
-  end
-end