vcs 0.2.148 → 0.3.0

data/ruby_ex/test/unit/ui/yaml/testrunner.rb

@@ -1,164 +0,0 @@
-# Author:: Nicolas Despres  <nicolas.despres@epita.fr>.
-# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
-# License:: Ruby license.
-
-# $LastChangedBy: polrop $
-# $Id: testrunner.rb 197 2005-04-12 14:00:10Z polrop $
-
-
-require 'test/unit/ui/testrunnermediator'
-require 'test/unit/ui/testrunnerutilities'
-require 'dtime'
-
-
-module Test
-
-  module Unit
-
-    module UI
-
-      module Yaml
-
-        class TestRunner
-          extend TestRunnerUtilities
-
-          public
-          def initialize(suite, output_level=NORMAL, io=STDOUT)
-            if (suite.respond_to?(:suite))
-              @suite = suite.suite
-            else
-              @suite = suite
-            end
-            @output_level = output_level
-            @io = io
-            @failures = []
-            @errors = []
-          end
-
-          # Begins the test run.
-          public
-          def start
-            setup_mediator
-            attach_to_mediator
-            return start_mediator
-          end
-
-          private
-          def setup_mediator
-            @mediator = create_mediator(@suite)
-            suite_name = @suite.to_s
-            if ( @suite.kind_of?(Module) )
-              suite_name = @suite.name
-            end
-            @io.puts('---')
-            @io.puts("suite_class: #{suite_name}")
-            @io.puts('details:') if $VERBOSE
-            @test_outcome = 'S'
-          end
-
-          private
-          def create_mediator(suite)
-            return TestRunnerMediator.new(suite)
-          end
-
-          private
-          def attach_to_mediator
-            @mediator.add_listener(TestResult::FAULT, &method(:add_fault))
-            @mediator.add_listener(TestRunnerMediator::STARTED,
-                                   &method(:started))
-            @mediator.add_listener(TestRunnerMediator::FINISHED,
-                                   &method(:finished))
-            if $VERBOSE
-              @mediator.add_listener(TestCase::STARTED,
-                                     &method(:test_started))
-              @mediator.add_listener(TestCase::FINISHED,
-                                     &method(:test_finished))
-            end
-          end
-
-          private
-          def test_started(name)
-            @test_start_time = Time.now
-            @io.print("  #{name}:")
-            @io.flush
-          end
-
-          private
-          def test_finished(name)
-            #FIXME: remove the double-quote when the TTK Dumper manages oneline
-            #       feature
-            @io.puts(" \"[ #@test_outcome, #{Time.now - @test_start_time} ]\"")
-            @test_outcome = 'S'
-            @io.flush
-          end
-
-          private
-          def start_mediator
-            return @mediator.run_suite
-          end
-
-          private
-          def add_fault(fault)
-            case fault.class.to_s
-            when 'Test::Unit::Failure'
-              @test_outcome = 'F'
-              @failures << fault
-            when 'Test::Unit::Error'
-              @test_outcome = 'E'
-              @errors << fault
-            else
-              raise(Exception, 'unexpected fault!!')
-            end
-          end
-
-          private
-          def started(result)
-            @result = result
-          end
-
-          private
-          def finished(elapsed_time)
-            t = DTime.new(elapsed_time)
-            @io.puts("elapsed_time: #{t}")
-            if $VERBOSE
-              @io.puts("detail_elpased_time: #{t.inspect}")
-            end
-            @io.puts("tests_number: #{@result.run_count}")
-            @io.puts("assertions_number: #{@result.assertion_count}")
-            @io.puts("errors_number: #{@errors.length}")
-            @io.puts("failures_number: #{@failures.length}")
-            unless @failures.empty?
-              @io.puts('failures:')
-              @failures.each { |fault| print_fault(fault) }
-            end
-            unless @errors.empty?
-              @io.puts('errors:')
-              @errors.each { |err| print_fault(err) }
-            end
-            @io.flush
-          end
-
-          private
-          def print_fault(fault)
-            fault_disp = fault.long_display.split("\n")
-            indent = '  '
-            @io.puts("#{indent}#{fault_disp[1].chomp(':')}: |")
-            for i in 2...fault_disp.length do
-              2.times { @io.print(indent) }
-              @io.puts(fault_disp[i].strip)
-            end
-          end
-
-        end # class TestRunner
-
-      end # module Yaml
-
-    end # module UI
-
-  end # module Unit
-
-end # module Test
-
-Test::Unit::AutoRunner::RUNNERS[:yaml] = lambda do |r|
-  Test::Unit::UI::Yaml::TestRunner
-end

data/ruby_ex/thread_mutex.rb

@@ -1,10 +0,0 @@
-class Thread
-
-  alias :raise_without_exception_call :raise
-
-  def raise ( exc, *a, &b )
-    exc = exc.exception if exc.respond_to? :exception
-    raise_without_exception_call(exc, *a, &b)
-  end
-
-end

data/ruby_ex/timeout_ex.rb

@@ -1,81 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: timeout_ex.rb 186 2005-04-03 00:07:45Z ertai $
-
-
-require 'thread'
-
-
-module TimeoutEx
-
-  class Error < Interrupt; end
-
-  module_function
-  def timeout(sec, exception=Error, mutex=nil, &block)
-    if sec > 0
-      thread = Thread.new(mutex) do |mutex|
-        Thread.current[:timeout_mutex] = mutex
-        block[]
-      end
-      sleep(sec)
-      if thread.alive?
-        unless mutex.nil?
-          mutex.synchronize { thread.kill if thread.alive? }
-        else
-          thread.kill
-        end
-        raise(exception, 'execution expired')
-      end
-    else
-      block[]
-    end
-    true
-  end
-
-end # module TimeoutEx
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-class TimeoutExTest < Test::Unit::TestCase
-
-  def test_timeout
-    run = false
-    assert_raises(TimeoutEx::Error) do
-      TimeoutEx.timeout(0.1) do
-        sleep(0.5)
-        run = true
-      end
-    end
-    assert(! run)
-  end
-
-  def test_mutex
-    run = false
-    assert_raises(TimeoutEx::Error) do
-      TimeoutEx.timeout(0.1, TimeoutEx::Error, Mutex.new) do
-        Thread.current[:timeout_mutex].synchronize do
-          sleep(0.5)
-          run = true
-        end
-      end
-    end
-    assert(run)
-  end
-
-  def test_no_timeout
-    assert(TimeoutEx.timeout(0.1) { nil })
-  end
-
-end # class TimeoutExTest
-
-
-end
-

data/ruby_ex/top_down.rb

@@ -1,73 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: top_down.rb 53 2004-12-02 22:24:03Z ertai $
-
-
-class Object
-
-  def top_down(&block)
-    yield self
-  end
-
-  def top_down_map(&block)
-    yield self
-  end
-
-end
-
-
-class Hash
-
-  def top_down(&block)
-    yield self
-    each { |k,v| v.top_down(&block) }
-  end
-
-  def top_down_map(&block)
-    yield self
-    res = {}
-    each { |k,v| res[k] = v.top_down_map(&block) }
-    res
-  end
-
-end
-
-
-class Array
-
-  def top_down(&block)
-    yield self
-    each { |x| x.top_down(&block) }
-  end
-
-  def top_down_map(&block)
-    yield self
-    res = []
-    each { |x| res << x.top_down_map(&block) }
-    res
-  end
-
-end
-
-
-#
-# Driver
-#
-
-
-#FIXME: make me unit test instead of mini-driver
-
-if __FILE__ == $0
-
-  a = { 'toto' => [ 1, 2, 3 ], 'tata' => { 'foo' => 42, 'bar' => 43 } }
-
-  a.top_down { |x| p x }
-
-  b = a.top_down_map { |x| x.is_a?(Numeric) ? x + 1 : x }
-
-  p b
-
-end

data/ruby_ex/trace.rb

@@ -1,26 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: trace.rb 90 2005-01-09 22:09:32Z polrop $
-
-
-module Kernel
-
-  def trace_on
-    set_trace_func proc { |event, file, line, id, binding, classname|
-      printf("%8s %s:%-2d %10s %8s\n",
-             event,
-             file,
-             line,
-             id,
-             classname)
-    }
-  end
-
-  def trace_off
-    set_trace_func nil
-  end
-
-end # module Kernel

data/ruby_ex/uri/druby.rb

@@ -1,81 +0,0 @@
-# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
-# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: polrop $
-# $Id: druby.rb 140 2005-01-29 15:05:09Z polrop $
-
-
-require 'uri'
-
-
-module URI
-
-  class DRuby < Generic
-
-    SCHEME = 'druby'
-    DEFAULT_HOST = 'localhost'
-    DEFAULT_PORT = 0
-    DEFAULT_QUERY = ''
-    COMPONENT = [ :scheme, :host, :port ].freeze
-
-    def self.build(args)
-      if args.is_a?(Array)
-        args << DEFAULT_HOST if args.size < 1
-        args << DEFAULT_PORT if args.size < 2
-      elsif args.is_a?(Hash)
-        args[:host] = DEFAULT_HOST if args[:host].nil?
-        args[:port] = DEFAULT_PORT if args[:port].nil?
-      end
-      return super(Util::make_components_hash(self, args))
-    end
-
-    #FIXME: find a way to always print the port even if it is the default one.
-
-  end # class DRuby
-
-  @@schemes[DRuby::SCHEME.upcase] = DRuby
-
-end # module URI
-
-
-if defined? TEST_MODE or __FILE__ == $0
-
-
-require 'test/unit/ui/yaml/testrunner'
-
-
-module URI
-
-  class DRubyTest < ::Test::Unit::TestCase
-
-    def test_classic
-      uri = URI.parse('druby://www.foo.com:42000')
-      assert(uri.is_a?(DRuby))
-      assert_equal('druby', uri.scheme)
-      assert_nil(uri.user)
-      assert_nil(uri.password)
-      assert_nil(uri.userinfo)
-      assert_equal('www.foo.com', uri.host)
-      assert_equal(42000, uri.port)
-      assert_equal('druby://www.foo.com:42000', uri.to_s)
-    end
-
-    def test_build
-      assert_equal('druby://localhost', DRuby.build([]).to_s)
-      assert_equal('druby://www.foo.com:52000',
-                   DRuby.build(['www.foo.com', 52000 ]).to_s)
-    end
-
-    def test_query
-      uri = DRuby.build(['www.foo.com', 52000 ])
-      uri.query = 'toto=tata&foo=bar'
-      assert_equal('druby://www.foo.com:52000?toto=tata&foo=bar', uri.to_s)
-    end
-
-  end # class DRubyTest
-
-end # module URI
-
-
-end

data/ruby_ex/uri/file.rb

@@ -1,65 +0,0 @@
-# Copyright: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
-# Author: Nicolas Pouillard  <ertai@lrde.epita.fr>.
-# License: Gnu General Public License.
-
-# $LastChangedBy: ertai $
-# $Id: file.rb 213 2005-05-06 12:55:58Z ertai $
-
-require 'uri_ex'
-
-module URI
-
-  class File < Generic
-
-    COMPONENT = [
-      :scheme,
-      :path
-    ].freeze
-
-    def initialize ( *args )
-      super
-      unless @host.nil? or @host.empty?
-        raise ArgumentError, 
-          "You cannot neither setup a host (#{@host}), nor a relative path"
-      end
-    end
-
-    def self.build ( args )
-      tmp = Util::make_components_hash(self, args)
-      return super(tmp)
-    end
-
-    def checkout
-      p = self.pathname
-      raise CheckoutError, to_s unless p.exist?
-      p
-    end
-
-    def commit ( aPath )
-      FileUtils.cp aPath.to_s, self.pathname.to_s
-    end
-
-    def save
-      p = self.pathname
-      raise SaveError, to_s unless p.exist?
-      if p.directory?
-        out = TempPath.new('save', "#{p.basename}.tar.gz")
-        cmd = "tar czf #{out} #{p}"
-        unless system cmd
-          raise SaveError, "command failed: `#{cmd}' => #{$?}"
-        end
-      else
-        out = TempPath.new('save', "#{p.basename}.gz")
-        cmd = "gzip -c #{p} > #{out}"
-        unless system cmd
-          raise SaveError, "command failed: `#{cmd}' => #{$?}"
-        end
-      end
-      out
-    end
-
-  end # class File
-
-  @@schemes['FILE'] = File
-
-end # module URI