core_ex 0.1.0

data/lib/core_ex/test/unit/ui/yaml/testrunner.rb

@@ -0,0 +1,166 @@
+# Author:: Nicolas Despres  <nicolas.despres@epita.fr>.
+# Copyright:: Copyright (c) 2004 TTK Team. All rights reserved.
+# License:: Ruby license.
+
+# $LastChangedBy: ertai $
+# $Id: testrunner.rb 252 2005-05-31 23:41:42Z ertai $
+
+
+require 'test/unit/autorunner'
+require 'test/unit/ui/testrunnermediator'
+require 'test/unit/ui/testrunnermediator'
+require 'test/unit/ui/testrunnerutilities'
+require 'core_ex'
+
+
+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/lib/core_ex/time.rb

@@ -0,0 +1,91 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: time.rb 252 2005-05-31 23:41:42Z ertai $
+
+require 'time'
+require 'core_ex'
+require 'core_ex/dtime'
+
+class Time
+
+  PRECISION = 1e-016
+
+  def float_minus ( rhs )
+    diff = to_f - rhs.to_f
+    (diff / PRECISION).to_i * PRECISION
+  end
+  private :float_minus
+
+
+  undef :-
+  undef :+
+
+
+  def - ( rhs )
+    case rhs
+    when Time
+      DTime.new(float_minus(rhs))
+    when 0
+      self
+    when Numeric
+      Time.at(float_minus(rhs)).utc
+    when DTime
+      Time.at(float_minus(rhs)).utc
+    else
+      raise TypeError, rhs
+    end
+  end
+
+
+  def + ( rhs )
+    if rhs.is_a? Numeric or rhs.is_a? DTime
+      Time.at(to_f + rhs.to_f).utc
+    else
+      raise TypeError, rhs
+    end
+  end
+
+
+  def self.diff ( *args, &block )
+    DTime.diff(*args, &block)
+  end
+
+end # class Time
+
+
+
+test_section __FILE__ do
+
+  class TimeExTest < Test::Unit::TestCase
+
+    def setup
+      @t1, @t2 = Time.now, Time.now
+    end
+
+    def test_minus
+      d1 = @t1 - @t2
+      assert_kind_of(DTime, d1)
+      assert_kind_of(Time, Time.now - d1)
+      assert_kind_of(Time, Time.now - 1.4)
+      assert_kind_of(Time, Time.now - 4)
+      assert_equal(@t1, @t1 - 0)
+      assert_equal(@t1, @t1 - 0.0)
+      assert_equal(0, (@t1 - @t1).to_f)
+    end
+
+    def test_minus_2
+      t = Time.utc(1937, 1, 1, 11, 40, 27, 870000)
+      s = "1937-01-01T12:00:27.87+00:20"
+      assert_equal(0, (t - Time.iso8601(s)).to_f)
+    end
+
+    def test_plus
+      d1 = @t1 - @t2
+      assert_raise(TypeError) { @t1 + @t2 }
+      assert_kind_of(Time, @t1 + d1)
+    end
+
+  end # TimeExTest
+
+end

data/lib/core_ex/version.rb

@@ -0,0 +1,119 @@
+# Copyright: Copyright (c) 2004  Nicolas Despres. All rights reserved.
+# Author: Nicolas Despres  <polrop@lrde.epita.fr>.
+# License: Gnu General Public License.
+
+# $LastChangedBy: ertai $
+# $Id: version.rb 252 2005-05-31 23:41:42Z ertai $
+
+require 'core_ex'
+
+class Version
+  include Comparable
+
+  attr_accessor :major, :minor, :build, :revision
+
+  def initialize(major, minor, build, revision)
+    @major = major
+    @minor = minor
+    @build = build
+    @revision = revision
+  end
+
+  def <=>(other)
+    to_a <=> other.to_a
+  end
+
+  def pp
+    "#{to_s} (Revision: #@revision)"
+  end
+
+  def to_s
+    "#@major.#@minor.#@build"
+  end
+
+  def to_a
+    [ @major, @minor, @build, @revision ]
+  end
+
+  def major_release
+    @major += 1
+    @minor = 0
+    @build = 0
+    @revision += 1
+    self
+  end
+
+  def minor_release
+    @minor += 1
+    @build = 0
+    @revision += 1
+    self
+  end
+
+  def build_release
+    @build += 1
+    @revision += 1
+    self
+  end
+
+end # class Version
+
+
+test_section __FILE__ do
+
+
+class VersionTest < Test::Unit::TestCase
+
+  def setup
+    @a = Version.new(0, 1, 2, 3)
+    @b = Version.new(2, 1, 0, 10)
+    @c = Version.new(0, 0, 0, 0)
+  end
+
+
+  def test_simple
+    assert(Version.new(0, 1, 2, 3) < Version.new(0, 1, 2, 4))
+    assert(Version.new(0, 1, 2, 4) > Version.new(0, 1, 2, 3))
+    assert(Version.new(0, 1, 2, 3) == Version.new(0, 1, 2, 3))
+    assert(Version.new(0, 1, 3, 3) > Version.new(0, 1, 2, 3))
+    assert(Version.new(0, 1, 2, 3) < Version.new(0, 1, 3, 3))
+    assert(Version.new(3, 2, 2, 3) > Version.new(3, 1, 2, 3))
+    assert(Version.new(0, 1, 2, 3) < Version.new(0, 2, 2, 3))
+    assert(Version.new(0, 3, 3, 3) < Version.new(1, 2, 2, 10))
+  end
+
+  def checker ( my, meth, *ref )
+    assert_equal(Version.new(*ref), my.send(meth), meth)
+    assert_equal(Version.new(*ref), my, meth)
+  end
+
+  def test_major_release
+    checker(@a, :major_release, 1, 0, 0, 4)
+    checker(@b, :major_release, 3, 0, 0, 11)
+    checker(@c, :major_release, 1, 0, 0, 1)
+  end
+
+  def test_minor_release
+    checker(@a, :minor_release, 0, 2, 0, 4)
+    checker(@b, :minor_release, 2, 2, 0, 11)
+    checker(@c, :minor_release, 0, 1, 0, 1)
+  end
+
+  def test_build_release
+    checker(@a, :build_release, 0, 1, 3, 4)
+    checker(@b, :build_release, 2, 1, 1, 11)
+    checker(@c, :build_release, 0, 0, 1, 1)
+  end
+
+  def test_pp
+    assert_equal('0.1.2 (Revision: 3)', @a.pp)
+    assert_equal('2.1.0 (Revision: 10)', @b.pp)
+    assert_equal('0.0.0 (Revision: 0)', @c.pp)
+  end
+
+end # class VersionTest
+
+
+end
+
+

data/lib/core_ex/yaml.rb

@@ -0,0 +1,24 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: yaml.rb 249 2005-05-31 13:23:42Z ertai $
+
+require 'yaml'
+
+YAML.add_builtin_type('!re') do |type, val|
+  Regexp.new(val.to_s)
+end
+
+YAML.add_builtin_type('!path') do |type, val|
+  Pathname.new(val.to_s)
+end
+
+YAML.add_builtin_type('!proc') do |type, val|
+  require 'dumpable_proc'
+  DumpableProc.new(val.to_s)
+end
+
+YAML.add_builtin_type('!filelist') do |type, val|
+  require 'rake'
+  FileList.new(val)
+end

data/lib/core_ex.rb

@@ -0,0 +1,55 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: core_ex.rb 252 2005-05-31 23:41:42Z ertai $
+
+require 'pathname'
+
+module CoreEx
+  @@dir = Pathname.new(__FILE__).dirname.expand_path
+  $: << @@dir.to_s
+  $" << 'core_ex.rb'
+
+  @@core_ex = @@dir + 'core_ex'
+
+  %w[ embedded_tests pathname require ].each do |aPath|
+    require "core_ex/#{aPath}"
+  end
+  RequireSystem.instance
+  %w[ attr_once enumerable exception string fileutils yaml ].each do |aPath|
+    (@@core_ex + aPath).require
+  end
+
+  def self.each ( &block )
+    @@core_list ||= FileList[@@core_ex + '**/*.rb']
+    @@core_list.each(&block)
+  end
+
+  def self.require
+    @@core_list ||= FileList[@@core_ex + '**/*.rb']
+    @@core_list.require
+  end
+
+  def self.dir
+    @@dir
+  end
+
+end # module CoreEx
+
+core_ex = CoreEx.dir + 'core_ex'
+{
+  :Time         => 'time',
+  :DTime        => 'dtime',
+  :Version      => 'version',
+  :FileList     => 'filelist',
+  :Test         => 'test/unit/ui/yaml/testrunner',
+  :TempPath     => 'temp_path'
+}.each do |k, v|
+  k = [k] unless k.is_a? Enumerable
+  v = [v] unless v.is_a? Enumerable
+  k.each do |aConst|
+    v.each do |aPath|
+      Kernel.autoload(aConst, (core_ex + aPath).to_s)
+    end
+  end
+end

data/test/check-core_ex.yml

@@ -0,0 +1,12 @@
+---
+
+CoreEx Main Test Suite:
+
+    strategy: Glob
+    glob    : <<pwd>>/*-suite.yml
+    regexp  : !re ([^/]*)\.yml$
+
+    test:
+        <<match>>:
+            strategy: Import
+            import  : <<path>>

data/test/check-pkg-core_ex.yml

@@ -0,0 +1,15 @@
+---
+
+# Run this suite with -S 'url: scheme://the/url/to/the/ttk/package'
+CoreEx Package Test Suite:
+  strategy: Suite
+  contents:
+
+    - Checkout:
+        strategy: Checkout
+        url: <<url>>
+        fatal: true
+
+    - Check the package:
+        strategy: Import
+        import: <<checkout_dir>>/test/check-core_ex.yml

data/test/resources/autoload_tree/A.rb

@@ -0,0 +1,11 @@
+
+
+module AutoloadTree
+
+  class A
+
+  end
+
+end
+
+

data/test/resources/autoload_tree/B.rb

@@ -0,0 +1,10 @@
+
+require 'A'
+
+module AutoloadTree
+
+  class B < A
+
+  end
+
+end

data/test/resources/autoload_tree/foo/C.rb

@@ -0,0 +1,18 @@
+
+
+require 'A'
+
+module AutoloadTree
+
+  module Foo
+
+    class C < A
+
+    end
+
+  end
+
+end
+
+
+

data/test/resources/require/test_require

@@ -0,0 +1 @@
+$REQUIRE_SYSTEM_TEST_COUNTER += 1

data/test/resources/require/test_require_rb.rb

@@ -0,0 +1 @@
+$REQUIRE_SYSTEM_TEST_COUNTER += 1

data/test/resources/require/test_require_so.so

@@ -0,0 +1 @@
+$REQUIRE_SYSTEM_TEST_COUNTER += 1

data/test/resources/use-from-gems.rb

@@ -0,0 +1,9 @@
+require 'rubygems'
+require_gem 'core_ex' # FIXME version
+require 'core_ex'
+require 'test/unit'
+class TC_ < Test::Unit::TestCase
+  def test_string_to_pathmame
+    assert_respond_to('', :to_path)
+  end
+end

data/test/resources/yaml_testrunner/unit_test.rb

@@ -0,0 +1,43 @@
+
+
+
+class Good
+
+
+end
+
+
+# FIXME bootstrap me
+if __FILE__ == $0
+
+require 'test/unit/ui/yaml/testrunner'
+
+class GoodTest < Test::Unit::TestCase
+
+  def test_1
+    assert(true)
+  end
+
+  def test_2
+    assert(false, 'bad')
+  end
+
+  def test_3
+    assert(true, 'good')
+    assert(true, 'very good')
+  end
+
+  def test_4
+    raise 'error'
+  end
+
+  def test_5
+    assert(true)
+  end
+
+end
+
+Test::Unit::UI::Yaml::TestRunner.run(GoodTest)
+
+end
+

data/test/sanity/multiple-requires.yml

@@ -0,0 +1,20 @@
+---
+
+CoreEx Sanity Multiple Requires Test Suite:
+
+  strategy: Cmd
+  command: ruby
+  exit: 0
+  error: ""
+  output: !re 0 failures, 0 errors$
+  args: -I<<pwd>>/../../lib
+  input: |2
+    require 'core_ex'
+    CoreEx.require
+    class TC_ < Test::Unit::TestCase
+      def test_definitions
+        CoreEx.each do |file|
+          assert(RequireSystem.instance.required?(file), "#{file} not present")
+        end
+      end
+    end

data/test/sanity/single-requires.yml

@@ -0,0 +1,24 @@
+---
+
+CoreEx Sanity Single Requires Test Suite:
+
+  strategy: Glob
+  glob: <<pwd>>/../../lib/**/*.rb
+  regexp: !re ^<<pwd>>\/\.\.\/\.\.\/lib\/(.*)\.rb$
+  test:
+    <<match>>:
+      strategy: RUnit
+      strategy: Cmd
+      command: ruby
+      exit: 0
+      error: ""
+      output: !re 0 failures, 0 errors$
+      args: -I<<pwd>>/../../lib
+      input: |
+        require '<<match>>'
+        require 'test/unit'
+        class TC_ < Test::Unit::TestCase
+          def test_definitions
+            assert($".include?('<<match>>.rb')) #"
+          end
+        end

data/test/sanity-suite.yml

@@ -0,0 +1,12 @@
+---
+
+CoreEx Sanity Test Suite:
+
+  strategy: Glob
+  glob    : <<pwd>>/sanity/**/*.yml
+  regexp  : !re ([^\/]*)\.yml$
+
+  test:
+    <<match>>:
+        strategy: Import
+        import  : <<path>>

data/test/test-unit-setup.rb

@@ -0,0 +1,6 @@
+require 'pathname'
+require 'core_ex/embedded_tests'
+args = ARGV.inject(nil) { |accu, x| (accu)? accu << x : ((x == '--')? [] : accu) }
+path = Pathname.new(args[0]).expand_path.cleanpath
+test_mode Regexp.new(path)
+require path.to_s

data/test/unit-suite.yml

@@ -0,0 +1,14 @@
+---
+
+CoreEx Unit Test Suite:
+
+  strategy: Glob
+  glob    : <<pwd>>/../lib/**/*.rb
+  regexp  : !re ([^/]*)\.rb$
+  symbols : { core_ex: <<pwd>>/../lib }
+
+  test:
+      <<match>>:
+          strategy: RUnit
+          unit_file: <<pwd>>/test-unit-setup.rb
+          args: <<path>>