vcs 0.1 → 0.2.148

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

@@ -0,0 +1,164 @@
+# 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

@@ -0,0 +1,10 @@
+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

@@ -0,0 +1,81 @@
+# 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

@@ -0,0 +1,73 @@
+# 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

@@ -0,0 +1,26 @@
+# 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

@@ -0,0 +1,81 @@
+# 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

@@ -0,0 +1,65 @@
+# 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