ruby_ex 0.1.2 → 0.2.0

data/lib/labeled_node.rb

@@ -6,7 +6,6 @@
 # $Id: node.rb 171 2005-03-29 09:12:47Z polrop $
 
 
-require 'ruby_ex'
 require 'abstract_node'
 
 

data/lib/logger_observer.rb

@@ -3,14 +3,12 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: logger_observer.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: logger_observer.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'logger'
 
-
-class Logger
+module LoggerObserver
 
   def update(*args, &block)
     severity = UNKNOWN
@@ -20,5 +18,11 @@ class Logger
     add(severity, "#{args.inspect} #{block.inspect if block}", $PROGRAME_NAME)
   end
 
+end # module LoggerObserver
+
+class Logger
+
+  include LoggerObserver
+
 end # class Logger
 

data/lib/md5sum.rb

@@ -3,12 +3,13 @@
 # License: Gnu General Public License.
 
 # $LastChangedBy: ertai $
-# $Id: md5sum.rb 279 2005-06-05 17:46:53Z ertai $
+# $Id: md5sum.rb 339 2005-09-06 23:27:27Z ertai $
 
 
-require 'ruby_ex'
 require 'md5'
 
+module Md5sum
+end # module Md5sum
 
 class File
 
@@ -44,7 +45,6 @@ end # class Pathname
 test_section __FILE__ do
 
 
-require 'ruby_ex'
 
 
 class MD5SumTest < Test::Unit::TestCase

data/lib/meta_factory.rb

@@ -0,0 +1,99 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: meta_factory.rb 349 2005-09-12 07:59:21Z ertai $
+
+
+class MetaFactory
+
+  def initialize ( aClass, *a, &b )
+    @record = nil
+    @class, @args, @block = aClass, a, b
+  end
+
+  def create ( prefix_args=[], postfix_args=[], &block )
+    args = prefix_args + @args + postfix_args
+    block = @block if block.nil?
+    anObject = @class.new(*args, &block)
+    @record[anObject] unless @record.nil?
+    anObject
+  end
+
+  alias_method :new, :create
+
+  # Record a block of actions which will be applied on the created object
+  #
+  # Example:
+  # factory = MetaFactory.new(MyClass, some, args, ...)
+  # factory.record do |o|
+  #   o.foo = bar
+  #   o.flou!
+  #   ...
+  # end
+  # factory.create([some, args, to, prepend], [some, to append])
+  def record ( &block )
+    @record = block
+  end
+
+end # class MetaFactory
+
+
+
+test_section __FILE__ do
+
+  class TestMetaFactory < ::Test::Unit::TestCase
+    include Mocks::Assertions
+
+    module Mocks
+      class Class < ::Mocks::Object # FIXME ::Mocks:: const_missing issue
+        def initialize ( *a, &b )
+          super
+          @objects = []
+        end
+        def new ( *a, &b )
+          super
+          obj = ::Mocks::Object.new
+          @objects << obj
+          obj
+        end
+      end # class Class
+    end # module Mocks
+
+    def setup
+      @proc = Proc.new { 42 }
+      @proc2 = Proc.new { 43 }
+      @mock_class = Mocks::Class.new
+      self.mock_object = @mock_class
+      assert_nothing_raised { @factory = MetaFactory.new(@mock_class, 42, :foo => :bar, &@proc) }
+      assert_empty_mock
+    end
+
+    def teardown
+    end
+
+    def test_create
+      10.times do
+        assert_nothing_raised { @instance = @factory.create }
+        assert_last_mock_call [:new, [42, {:foo=>:bar}], @proc]
+      end
+      assert_mock_size 10
+    end
+
+    def test_create_with_args
+      assert_nothing_raised { @instance = @factory.create([43], [:boo]) }
+      assert_last_mock_call [:new, [43, 42, {:foo=>:bar}, :boo], @proc]
+      assert_nothing_raised { @instance = @factory.create([45], &@proc2) }
+      assert_last_mock_call [:new, [45, 42, {:foo=>:bar}], @proc2]
+    end
+
+    def test_record
+      assert_nothing_raised { @factory.record { |o| o.foo(:bar, :qux) } }
+      assert_nothing_raised { @instance = @factory.create([43], [:boo]) }
+      assert_last_mock_call [:new, [43, 42, {:foo=>:bar}, :boo], @proc]
+      self.mock_object = @instance
+      assert_mock_calls [[:foo, [:bar, :qux]]]
+    end
+
+  end # class TestMetaFactory
+
+end

data/lib/method_call.rb

@@ -0,0 +1,87 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: method_call.rb 339 2005-09-06 23:27:27Z ertai $
+
+
+class MethodCall
+  attr_accessor :name, :args, :block
+
+  def initialize ( name, *args, &block )
+    @name, @args, @block = name, args, block
+  end
+
+  def recall ( anObject )
+    anObject.__send__(@name, *@args, &@block)
+  end
+
+  def to_a
+    ary = [@name]
+    unless @args.empty? and @block.nil?
+      if @args.size == 1
+        ary << @args.first
+      else
+        ary << @args
+      end
+    end
+    ary << @block unless @block.nil?
+    ary
+  end
+
+  def to_ruby ( caller )
+    case @name.to_s
+      when /^\w/
+        result = "#{caller}.#@name"
+        unless @args.empty?
+          args = @args.map { |arg| arg.inspect }.join(', ')
+          result += "(#{args})"
+        end
+        result += " { ... }" unless @block.nil?
+        result
+      when /([><=]=[>~=]?|[-+%^*\/&|])/
+        raise ArgumentError, "too many arguments" if @args.size != 1
+        "(#{caller} #@name #{@args.first.inspect})"
+      else raise ArgumentError, "unhandled method #@name"
+    end
+  end
+
+end # class MethodCall
+
+
+test_section __FILE__ do
+
+  class TestMethodCall < ::Test::Unit::TestCase
+
+    def setup
+      @proc = proc { 42 }
+      assert_nothing_raised do
+        @obj1 = MethodCall.new(:foo, 3, [4], &@proc)
+        @obj2 = MethodCall.new(:split, /:/)
+        @obj3 = MethodCall.new(:foo)
+        @obj4 = MethodCall.new(:foo, &@proc)
+        @obj5 = MethodCall.new(:foo, :bar)
+        @obj6 = MethodCall.new(:foo, 3, [4])
+        @obj7 = MethodCall.new(:foo, :bar, &@proc)
+      end
+    end
+
+    def test_init
+    end
+
+    def test_recall
+      assert_equal(%w[a b c], @obj2.recall("a:b:c"))
+    end
+
+    def test_to_a
+      assert_equal([:foo, [3, [4]], @proc], @obj1.to_a)
+      assert_equal([:split, /:/], @obj2.to_a)
+      assert_equal([:foo], @obj3.to_a)
+      assert_equal([:foo, [], @proc], @obj4.to_a)
+      assert_equal([:foo, :bar], @obj5.to_a)
+      assert_equal([:foo, [3, [4]]], @obj6.to_a)
+      assert_equal([:foo, :bar, @proc], @obj7.to_a)
+    end
+
+  end # class TestMethodCall
+
+end

data/lib/mocks.rb

@@ -0,0 +1,12 @@
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# Copyright:: Copyright (c) 2005 Nicolas Pouillard. All rights reserved.
+# License::   GNU General Public License (GPL).
+# Revision::  $Id: mocks.rb 344 2005-09-08 01:44:18Z ertai $
+
+AutoloadTree.import!
+
+module Mocks
+
+  autoloaded_module(__FILE__, false)
+
+end # module Mocks

data/lib/mocks/assertions.rb

@@ -0,0 +1,50 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: assertions.rb 339 2005-09-06 23:27:27Z ertai $
+
+
+module Mocks
+
+  module Assertions
+
+    attr_accessor :mock_object
+
+    def assert_mock ( *ref )
+      if ref.size == 1 and (f = ref.first).is_a? Array and f.first.is_a? Array
+        ref = f
+      end
+      assert_equal(ref, mock_object.mock_args)
+    end
+
+    def assert_mock_calls ( ref, comment='' )
+      assert_equal(ref, mock_object.mock_calls_array, comment)
+    end
+
+    def assert_mock_args ( ref, comment='' )
+      assert_equal(ref, mock_object.mock_args, comment)
+    end
+
+    def assert_empty_mock ( comment='' )
+      assert_mock_calls [], (comment.empty?)? 'not empty' : comment
+    end
+
+    def assert_last_mock ( *ref )
+      assert_equal(ref, mock_object.mock_calls.last.args)
+    end
+
+    def assert_last_mock_args ( ref, comment='' )
+      assert_equal(ref, mock_object.mock_calls_array.last.args, comment)
+    end
+
+    def assert_last_mock_call ( ref, comment='' )
+      assert_equal(ref, mock_object.mock_calls_array.last, comment)
+    end
+
+    def assert_mock_size ( size, comment='' )
+      assert_equal(size, mock_object.mock_size, comment)
+    end
+
+  end # module Assertions
+
+end # module Mocks

data/lib/mocks/method_logger.rb

@@ -0,0 +1,40 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: method_logger.rb 339 2005-09-06 23:27:27Z ertai $
+
+require 'mocks'
+
+module Mocks
+
+  class MethodLogger < Mock
+    concrete
+
+    def log ( *args, &block )
+      mock_add MethodCall.new(*args, &block)
+    end
+
+  end # class MethodLogger
+
+  test_section __FILE__ do
+
+    class TestMethodLogger < ::Test::Unit::TestCase
+      include Mocks::Assertions
+
+      def setup
+        @proc = proc { 43 }
+        @mock_object = Mocks::MethodLogger.new
+      end
+
+      def test_simple
+        @mock_object.log(:foo, :bar, 42, &@proc)
+        @mock_object.log(:bar)
+        assert_mock_calls [[:foo, [:bar, 42], @proc], [:bar]]
+        assert_mock [:bar, 42], []
+      end
+
+    end # class TestMethodLogger
+
+  end
+
+end # module Mocks

data/lib/mocks/mock.rb

@@ -0,0 +1,64 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: mock.rb 344 2005-09-08 01:44:18Z ertai $
+
+require 'mocks'
+
+module Mocks
+
+  class Mock
+    include Abstract
+
+    attr_accessor :mock_calls
+
+    def initialize
+      @mock_calls = []
+    end
+
+    def mock_recall ( anObject )
+      result = nil
+      @mock_calls.each do |call|
+        result = call.recall anObject
+      end
+      result
+    end
+
+    def mock_calls_array
+      @mock_calls.map { |call| call.to_a }
+    end
+
+    def mock_args
+      @mock_calls.map { |call| call.args }
+    end
+
+    def mock_add ( elt )
+      @mock_calls << elt unless @mock_calls.frozen?
+    end
+
+    def mock_freeze
+      @mock_calls.freeze
+    end
+
+    def mock_clear
+      @mock_calls.clear
+    end
+
+    def mock_size
+      @mock_calls.size
+    end
+
+  end # class Mock
+
+  test_section __FILE__ do
+    class TestMock < ::Test::Unit::TestCase
+
+      def test_abstract
+        assert_raise(TypeError) { Mocks::Mock.new }
+      end
+
+    end # class TestMock
+
+  end
+
+end # module Mocks

data/lib/mocks/object.rb

@@ -0,0 +1,47 @@
+# Copyright:: Copyright (c) 2005  Nicolas Pouillard. All rights reserved.
+# Author::    Nicolas Pouillard  <ertai@lrde.epita.fr>.
+# License::   Gnu General Public License.
+# Revision::  $Id: object.rb 339 2005-09-06 23:27:27Z ertai $
+
+require 'mocks'
+require 'blank_slate'
+
+module Mocks
+
+  class Object < Mock
+    concrete
+
+    def self.blank_slate_ignore ( name )
+      super or name =~ /^(mock_|nil\?$)/
+    end
+
+    include BlankSlate
+
+    def method_missing ( meth, *args, &block )
+      mock_add MethodCall.new(meth, *args, &block)
+    end
+
+  end # class Object
+
+  test_section __FILE__ do
+
+    class TestObject < ::Test::Unit::TestCase
+
+      def setup
+        @proc = proc { 43 }
+        @obj = Mocks::Object.new
+      end
+
+      def test_simple
+        @obj.foo(:bar, 42, &@proc)
+        @obj.bar
+        @obj << 42
+        assert_equal([[:foo, [:bar, 42], @proc],
+                      [:bar], [:<<, 42]], @obj.mock_calls_array)
+      end
+
+    end # class TestObject
+
+  end
+
+end # module Mocks