From a0c4f8558b15f1b5de0cb22f2d45d215f15ecd08 Mon Sep 17 00:00:00 2001 From: Masamitsu MURASE Date: Wed, 18 Jul 2012 02:17:29 +0900 Subject: Kernel#respond_to? should return false if the method is undefined. --- src/class.c | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/src/class.c b/src/class.c index d0063529d..8a58eb70e 100644 --- a/src/class.c +++ b/src/class.c @@ -1052,8 +1052,14 @@ mrb_obj_respond_to(struct RClass* c, mrb_sym mid) if (h) { k = kh_get(mt, h, mid); - if (k != kh_end(h)) - return 1; /* exist method */ + if (k != kh_end(h)) { + if (kh_value(h, k)) { + return 1; /* exist method */ + } + else { + return 0; + } + } } c = c->super; } -- cgit v1.2.3 From 6f2aefae1f6032be5c7a7ba82734543b90be5ccc Mon Sep 17 00:00:00 2001 From: Masamitsu MURASE Date: Wed, 18 Jul 2012 02:23:16 +0900 Subject: Add test for 'respond_to?'. --- test/t/kernel.rb | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/test/t/kernel.rb b/test/t/kernel.rb index 4f1d2b42f..6e68b1b22 100644 --- a/test/t/kernel.rb +++ b/test/t/kernel.rb @@ -300,7 +300,12 @@ assert('Kernel#raise', '15.3.1.3.40') do end assert('Kernel#respond_to?', '15.3.1.3.43') do - respond_to? :nil? + class Test4RespondTo + def test_method; end + undef test_method + end + + respond_to?(:nil?) and Test4RespondTo.new.respond_to?(:test_method) == false end assert('Kernel#send', '15.3.1.3.44') do -- cgit v1.2.3