extensions 0.4.0 → 0.5.0

data/test/tc_binding.rb

@@ -0,0 +1,87 @@
+require 'test/unit'
+require 'extensions/binding'
+
+  #
+  # Special test case for Binding#of_caller.
+  #
+class TC_Binding_of_caller < Test::Unit::TestCase
+    #
+    # Tests Binding.of_caller
+    #
+  def test_of_caller
+    x = 5
+    _foo        # This will increment x.
+    assert_equal 6, x
+  end
+
+    #
+    # Test the exception that should result if Binding.of_caller is used incorrectly.
+    #
+  def test_of_caller_exception
+    x = 10
+    assert_raises(Exception) do
+      _bar
+      puts x
+    end
+  end
+
+    # Use Binding.of_caller correctly.
+  def _foo
+    Binding.of_caller do |b|
+      eval "x += 1", b
+    end
+  end
+
+    # Use Binding.of_caller incorrectly (dangling code).
+  def _bar
+    Binding.of_caller do |b|
+      eval "x += 1", b
+    end
+    "foo".strip!        # This code not allowed to be here.
+  end
+end  # class TC_Binding_of_caller
+
+
+  #
+  # Test case for the other Binding methods.
+  #
+class TC_Binding < Test::Unit::TestCase
+
+    # Test all the Binding methods except of_caller.
+  def test_binding_methods
+    x = y = 5
+    b = binding
+    assert_equal 5, b.eval('x')
+    assert_equal ['b', 'x', 'y'], b.local_variables.sort
+    assert_equal 5, b[:x]
+    assert_equal 7, (b[:y] = 7)
+    assert_equal 7, y
+    assert_equal 'local-variable', b.defined?(:y)
+  end
+
+    # Test the Binding methods in the of_caller context.
+  def test_binding_methods_with_of_caller
+    x = "foo"
+    y = 33
+    _target
+    assert_equal "FOO", x
+    assert_equal -33, y
+  end
+
+    # Target method for #test_binding_methods_with_of_caller.
+  def _target
+    Binding.of_caller do |b|
+      assert_equal "foo", b[:x]
+      assert_equal 33, b[:y]
+      assert_equal ['x', 'y'], b.local_variables.sort
+      assert_equal "foo!", b.eval('x + y.chr')
+      b[:x].upcase!
+      b[:y] *= -1
+      assert_equal "FOO", b[:x]
+      assert_equal -33, b[:y]
+      assert_equal 'local-variable', b.defined?(:y)
+      assert_equal nil, b.defined?(:foobar)
+    end
+  end
+
+end  # class TC_Binding

data/test/tc_continuation.rb

@@ -0,0 +1,38 @@
+require 'test/unit'
+require 'extensions/continuation'
+
+class TC_Continuation < Test::Unit::TestCase
+
+    # Test Continuation.create using the counter example from the documentation.
+  def test_counter
+    shadow_counter = 11
+    continuation, counter = Continuation.create(10)   # (A)
+      shadow_counter -= 1
+      assert_equal(shadow_counter, counter)
+    continuation.call(counter - 1) if counter > 0     # goto (A) if counter > 0
+    assert_equal(0, counter)
+    assert_equal(shadow_counter, counter)
+  end
+
+    # Test Continuation.create using the cc_inject example from the documentation.
+  def test_cc_inject
+    sum1_5 = [1,2,3,4,5].cc_inject { |acc, n| acc + n }
+    assert_equal(15, sum1_5)
+  end
+
+    # Implement Array#cc_inject for the test_cc_inject method.
+  class ::Array
+    def cc_inject( value=nil )
+      copy = self.clone
+      cc, result, item = Continuation.create( value, nil )
+      next_item = copy.shift 
+      if result and item
+        cc.call( yield(result, item), next_item ) 
+      elsif next_item
+        cc.call( next_item, result ) 
+      end
+      result 
+    end 
+  end
+
+end  # class TC_Continuation

metadata

@@ -3,21 +3,16 @@ rubygems_version: 0.8.1
 specification_version: 1
 name: extensions
 version: !ruby/object:Gem::Version 
-  version: 0.4.0
-date: 2004-09-23
-summary: "'extensions' is a set of extensions to Ruby's built-in classes.  It gathers
-  common idioms, useful additions, and aliases, complete with unit testing and
-  documentation, so they are suitable for production code."
+  version: 0.5.0
+date: 2004-10-04
+summary: "'extensions' is a set of extensions to Ruby's built-in classes.  It gathers common idioms, useful additions, and aliases, complete with unit testing and documentation, so they are suitable for production code."
 require_paths: 
   - lib
 author: Gavin Sinclair
 email: gsinclair@soyabean.com.au
 homepage: http://extensions.rubyforge.org
 rubyforge_project: extensions
-description: "'extensions' is a set of extensions to Ruby's built-in classes.  It gathers
-  common idioms, useful additions, and aliases, complete with unit testing and
-  documentation, so they are suitable for production code. See
-  http://extensions.rubyforge.org for full documentation."
+description: "'extensions' is a set of extensions to Ruby's built-in classes.  It gathers common idioms, useful additions, and aliases, complete with unit testing and documentation, so they are suitable for production code. See http://extensions.rubyforge.org for full documentation."
 autorequire: 
 default_executable: rbxtm
 bindir: bin
@@ -33,6 +28,7 @@ platform: ruby
 files: 
   - ChangeLog
   - HISTORY
+  - InstalledFiles
   - Rakefile
   - README
   - README.1st
@@ -44,7 +40,9 @@ files:
   - lib/extensions
   - lib/extensions/all.rb
   - lib/extensions/array.rb
+  - lib/extensions/binding.rb
   - lib/extensions/class.rb
+  - lib/extensions/continuation.rb
   - lib/extensions/enumerable.rb
   - lib/extensions/hash.rb
   - lib/extensions/io.rb
@@ -56,7 +54,9 @@ files:
   - lib/extensions/_base.rb
   - lib/extensions/_template.rb
   - "./test/tc_array.rb"
+  - "./test/tc_binding.rb"
   - "./test/tc_class.rb"
+  - "./test/tc_continuation.rb"
   - "./test/tc_enumerable.rb"
   - "./test/tc_hash.rb"
   - "./test/tc_io.rb"
@@ -67,14 +67,14 @@ files:
   - "./test/tc_symbol.rb"
   - "./test/TEST.rb"
   - etc/checklist
-  - etc/doctools
-  - etc/release
   - etc/website
   - etc/website/index.html
   - etc/website/upload.sh
 test_files: 
   - test/tc_array.rb
+  - test/tc_binding.rb
   - test/tc_class.rb
+  - test/tc_continuation.rb
   - test/tc_enumerable.rb
   - test/tc_hash.rb
   - test/tc_io.rb