This commit was manufactured by cvs2svn to create branch 'ruby_1_8'.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8948 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 42 insertions, 0 deletions

diff --git a/test/ruby/test_method.rb b/test/ruby/test_method.rb
new file mode 100644
index 0000000000..c30705cb15
--- /dev/null
+++ b/test/ruby/test_method.rb
@@ -0,0 +1,42 @@
+require 'test/unit'
+
+class TestMethod < Test::Unit::TestCase
+  def m0() end
+  def m1(a) end
+  def m2(a, b) end
+  def mo1(a = nil, &b) end
+  def mo2(a, b = nil) end
+  def mo3(*a) end
+  def mo4(a, *b, &c) end
+
+  class Base
+    def foo() :base end
+  end
+  class Derived < Base
+    def foo() :derived end
+  end
+
+  def test_arity
+    assert_equal(0, method(:m0).arity)
+    assert_equal(1, method(:m1).arity)
+    assert_equal(2, method(:m2).arity)
+    assert_equal(-1, method(:mo1).arity)
+    assert_equal(-2, method(:mo2).arity)
+    assert_equal(-1, method(:mo3).arity)
+    assert_equal(-2, method(:mo4).arity)
+  end
+
+  def test_unbind
+    assert_equal(:derived, Derived.new.foo)
+    um = Derived.new.method(:foo).unbind
+    assert_instance_of(UnboundMethod, um)
+    Derived.class_eval do
+      def foo() :changed end
+    end
+    assert_equal(:changed, Derived.new.foo)
+    assert_equal(:derived, um.bind(Derived.new).call)
+    assert_raise(TypeError) do
+      um.bind(Base.new)
+    end
+  end
+end