From 093d264a0eefcd2ec0e969a17154c183cab3e2a1 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 17 May 2008 02:44:38 +0000
Subject: * test/ruby/test_eval.rb (test_define_method_block): new test

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@16441 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/ruby/test_eval.rb | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'test/ruby')

diff --git a/test/ruby/test_eval.rb b/test/ruby/test_eval.rb
index 876aaafc0..c838141a1 100644
--- a/test/ruby/test_eval.rb
+++ b/test/ruby/test_eval.rb
@@ -358,6 +358,19 @@ class TestEval < Test::Unit::TestCase
     }
   end
 
+  def test_define_method_block
+    cc = Class.new do
+      define_method(:foo) {|&block|
+        block.call if block
+      }
+    end
+
+    c = cc.new
+    x = "ng"
+    c.foo() {x = "ok"}
+    assert_equal("ok", x)
+  end
+
   def test_eval_using_integer_as_binding
     assert_raise(TypeError) { eval("", 1) }
   end
-- 
cgit