utilrb 0.2

data/test/test_object.rb

@@ -0,0 +1,65 @@
+require 'test_config'
+
+require 'utilrb/object'
+
+class TC_Object < Test::Unit::TestCase
+    def test_address
+	foo = Object.new
+	foo.to_s =~ /#<Object:0x([0-9a-f]+)>/
+	foo_address = $1
+	assert_equal(foo_address, foo.address.to_s(16), "#{foo} #{foo.address} #{foo.object_id}")
+    end
+
+    def check_attribute(object)
+	assert(object.respond_to?(:as_hash))
+	assert(object.respond_to?(:as_hash=))
+	assert(object.respond_to?(:block))
+	assert(object.respond_to?(:block=))
+	hash_attribute = object.as_hash
+	block_attribute = object.block
+	assert(Hash === hash_attribute)
+	assert(Array === block_attribute)
+
+	new_value = Time.now
+
+	assert_same(hash_attribute, object.as_hash)
+	object.as_hash = new_value
+	assert_same(new_value, object.as_hash)
+
+	assert_same(block_attribute, object.block)
+	object.block = new_value
+	assert_same(object.block, new_value)
+    end
+    def test_attribute
+	klass = Class.new do
+	    attribute :as_hash => Hash.new
+	    attribute(:block) { Array.new }
+	    class_attribute :as_hash => Hash.new # do NOT use :hash here as it would override #hash which is a quite useful method ...
+	    class_attribute(:block) { Array.new }
+	end
+
+	obj1, obj2 = klass.new, klass.new
+	check_attribute(obj1)
+	check_attribute(obj2)
+
+	obj1, obj2 = klass.new, klass.new
+	assert_same(obj1.as_hash, obj2.as_hash)
+	obj1.as_hash = Hash.new
+	assert_not_same(obj1.as_hash, obj2.as_hash)
+
+	assert_not_same(obj1.block, obj2.block)
+	obj1.block = obj2.block
+	assert_same(obj1.block, obj2.block)
+    end
+
+    def test_singleton_class
+	klass	= Class.new
+	object	= klass.new
+	assert(! object.has_singleton?)
+	assert_equal(object, object.singleton_class.singleton_instance)
+	assert(object.has_singleton?)
+	assert_equal(klass, object.singleton_class.superclass)
+	assert_equal([object.singleton_class, klass, Object, Kernel], object.singleton_class.ancestors)
+    end
+end
+

data/test/test_objectstats.rb

@@ -0,0 +1,19 @@
+require 'test_config'
+
+require 'utilrb/objectstats'
+
+class TC_ObjectStats < Test::Unit::TestCase
+    def test_object_stats
+	assert( ObjectStats.profile { ObjectStats.count }.empty?, "Object allocation profile changed" )
+	assert_equal({ Hash => 1 }, ObjectStats.profile { ObjectStats.count_by_class }, "Object allocation profile changed")
+	assert_equal({ Array => 1 }, ObjectStats.profile { test = [] })
+	assert_equal({ Array => 2, Hash => 1 }, ObjectStats.profile { a, b = [], {} })
+
+	GC.start
+        GC.disable
+        Hash.new
+        assert([Hash, 1], ObjectStats.profile { Hash.new }.collect { |klass, count| [klass, count] })
+        assert([Hash, -1], ObjectStats.profile { GC.start }.collect { |klass, count| [klass, count] })
+    end
+end
+

data/test/test_unbound_method.rb

@@ -0,0 +1,23 @@
+require 'test_config'
+require 'utilrb/unbound_method'
+require 'flexmock'
+
+class TC_UnboundMethod < Test::Unit::TestCase
+    def test_call
+	FlexMock.use do |mock|
+	    klass = Class.new do
+		define_method(:mock) { mock }
+		def tag(value, &block)
+		    mock.method_called(value)
+		    block.call(value)
+		end
+	    end
+	    obj = klass.new
+
+	    mock.should_receive(:method_called).with(42).once
+	    mock.should_receive(:block_called).with(42).once
+	    klass.instance_method(:tag).call(obj, 42) { |value| mock.block_called(value) }
+	end
+    end
+end
+

metadata

@@ -0,0 +1,128 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.0
+specification_version: 1
+name: utilrb
+version: !ruby/object:Gem::Version 
+  version: "0.2"
+date: 2006-11-22 00:00:00 +01:00
+summary: Yet another Ruby toolkit
+require_paths: 
+- lib
+- ext
+email: sylvain.joyeux@m4x.org
+homepage: "    http://utilrb.rubyforge.org"
+rubyforge_project: utilrb
+description: "This work is licensed under the BSD license. See License.txt for details  == What is Utilrb ? Utilrb is yet another Ruby toolkit, in the spirit of facets. It includes all the standard class extensions I use in my own projects like Genom.rb.  == Utilrb's C extension Utilrb includes a C extension in ext/. It is optional, but some of the functionalities will be disabled if it is not present. Trying to require a file in which there is a C-only feature will yield a warning on STDOUT.  * some features have a Ruby version, but a C version is provided for performance: - Enumerable#each_uniq"
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- Sylvain Joyeux
+files: 
+- bm/allocation.rb
+- bm/speed.rb
+- Changes.txt
+- ext/extconf.rb
+- ext/faster.cc
+- ext/swap.cc
+- ext/value_set.cc
+- lib/utilrb/array.rb
+- lib/utilrb/array/to_s.rb
+- lib/utilrb/common.rb
+- lib/utilrb/enumerable/null.rb
+- lib/utilrb/enumerable/random_element.rb
+- lib/utilrb/enumerable.rb
+- lib/utilrb/enumerable/sequence.rb
+- lib/utilrb/enumerable/uniq.rb
+- lib/utilrb/exception/full_message.rb
+- lib/utilrb/exception.rb
+- lib/utilrb/gc/force.rb
+- lib/utilrb/gc.rb
+- lib/utilrb/hash.rb
+- lib/utilrb/hash/slice.rb
+- lib/utilrb/hash/to_s.rb
+- lib/utilrb/hash/to_sym_keys.rb
+- lib/utilrb/kernel/arity.rb
+- lib/utilrb/kernel/options.rb
+- lib/utilrb/kernel/poll.rb
+- lib/utilrb/kernel.rb
+- lib/utilrb/kernel/require.rb
+- lib/utilrb/kernel/swap.rb
+- lib/utilrb/logger/forward.rb
+- lib/utilrb/logger/hierarchy.rb
+- lib/utilrb/logger.rb
+- lib/utilrb/module/ancestor_p.rb
+- lib/utilrb/module/attr_enumerable.rb
+- lib/utilrb/module/define_method.rb
+- lib/utilrb/module/include.rb
+- lib/utilrb/module/inherited_enumerable.rb
+- lib/utilrb/module.rb
+- lib/utilrb/object/address.rb
+- lib/utilrb/object/attribute.rb
+- lib/utilrb/object.rb
+- lib/utilrb/object/singleton_class.rb
+- lib/utilrb/objectstats.rb
+- lib/utilrb.rb
+- lib/utilrb/time.rb
+- lib/utilrb/time/to_hms.rb
+- lib/utilrb/unbound_method/call.rb
+- lib/utilrb/unbound_method.rb
+- lib/utilrb/value_set.rb
+- License.txt
+- Manifest.txt
+- Rakefile
+- README.txt
+- test/test_array.rb
+- test/test_config.rb
+- test/test_enumerable.rb
+- test/test_gc.rb
+- test/test_hash.rb
+- test/test_kernel.rb
+- test/test_misc.rb
+- test/test_module.rb
+- test/test_object.rb
+- test/test_objectstats.rb
+- test/test_unbound_method.rb
+test_files: 
+- test/test_misc.rb
+- test/test_module.rb
+- test/test_unbound_method.rb
+- test/test_config.rb
+- test/test_kernel.rb
+- test/test_object.rb
+- test/test_gc.rb
+- test/test_array.rb
+- test/test_enumerable.rb
+- test/test_hash.rb
+- test/test_objectstats.rb
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: []
+
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: facets
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: