From 7c982059ea464cbdb951eab239afdffb2d0553ca Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 25 Dec 2008 03:51:35 +0000
Subject: * proc.c (proc_new): should use proc_dup() if block has Proc. * vm.c
 (vm_make_proc_from_block): should use rb_cProc for block. * vm.c
 (vm_make_proc): add an assertion. * bootstraptest/test_proc.rb: add a test.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@20980 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 bootstraptest/test_proc.rb | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'bootstraptest/test_proc.rb')

diff --git a/bootstraptest/test_proc.rb b/bootstraptest/test_proc.rb
index 1ab9444c31..9bef6ea85e 100644
--- a/bootstraptest/test_proc.rb
+++ b/bootstraptest/test_proc.rb
@@ -394,3 +394,27 @@ assert_equal 'ok', %q{
   a_proc = give_it
   f.call_it(&give_it())
 }, '[ruby-core:15711]'
+
+assert_equal 'foo!', %q{
+  class FooProc < Proc
+    def initialize
+      @foo = "foo!"
+    end
+
+    def bar
+      @foo
+    end
+  end
+
+  def bar
+    FooProc.new &lambda{
+      p 1
+    }
+  end
+
+  fp = bar(&lambda{
+    p 2
+  })
+
+  fp.bar
+}, 'Subclass of Proc'
-- 
cgit v1.2.3