From f613a10f5e0c9d255ff06ff61251c987429cc9b8 Mon Sep 17 00:00:00 2001
From: nahi <nahi@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 8 Aug 2005 11:43:56 +0000
Subject:         * test/ruby/test_method.rb: added.  [ruby-dev:26761]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8946 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/ruby/test_method.rb | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 test/ruby/test_method.rb

(limited to 'test/ruby/test_method.rb')

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
-- 
cgit v1.2.3