From d84f9b16946bca06ce0557ebe99152d7d445c9ec Mon Sep 17 00:00:00 2001
From: ko1 <ko1@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 6 Mar 2015 12:24:58 +0000
Subject: * fix namespace issue on singleton class expressions. [Bug #10943] *
 vm_core.h, method.h: remove rb_iseq_t::cref_stack. CREF is stored   to
 rb_method_definition_t::body.iseq_body.cref. * vm_insnhelper.c: modify SVAR
 usage.   When calling ISEQ type method, push CREF information onto method  
 frame, SVAR located place. Before this fix, SVAR is simply nil.   After this
 patch, CREF (or NULL == Qfalse for not iseq methods)   is stored at the
 method invocation.   When SVAR is requierd, then put NODE_IF onto SVAR
 location,   and NDOE_IF::nd_reserved points CREF itself. * vm.c (vm_cref_new,
 vm_cref_dump, vm_cref_new_toplevel): added. * vm_insnhelper.c
 (vm_push_frame): accept CREF. * method.h, vm_method.c (rb_add_method_iseq):
 added. This function   accepts iseq and CREF. * class.c (clone_method): use
 rb_add_method_iseq(). * gc.c (mark_method_entry): mark
 method_entry::body.iseq_body.cref. * iseq.c: remove CREF related codes. *
 insns.def (getinlinecache/setinlinecache): CREF should be cache key   because
 a different CREF has a different namespace. * node.c (rb_gc_mark_node): mark
 NODE_IF::nd_reserved for SVAR. * proc.c: catch up changes. * struct.c: ditto.
 * insns.def: ditto. * vm_args.c (raise_argument_error): ditto. * vm_eval.c:
 ditto. * test/ruby/test_class.rb: add a test.

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

(limited to 'test/ruby')

diff --git a/test/ruby/test_class.rb b/test/ruby/test_class.rb
index e17f56f913..36aeaf2bdf 100644
--- a/test/ruby/test_class.rb
+++ b/test/ruby/test_class.rb
@@ -399,4 +399,124 @@ class TestClass < Test::Unit::TestCase
       def c.f; end
     }
   end
+
+  def test_singleton_class_should_has_own_namespace
+    # CONST in singleton class
+    objs = []
+    $i = 0
+
+    2.times{
+      objs << obj = Object.new
+      class << obj
+        CONST = ($i += 1)
+        def foo
+          CONST
+        end
+      end
+    }
+    assert_equal(1, objs[0].foo, '[Bug #10943]')
+    assert_equal(2, objs[1].foo, '[Bug #10943]')
+
+    # CONST in block in singleton class
+    objs = []
+    $i = 0
+
+    2.times{
+      objs << obj = Object.new
+      class << obj
+        1.times{
+          CONST = ($i += 1)
+        }
+        def foo
+          [nil].map{
+            CONST
+          }
+        end
+      end
+    }
+    assert_equal([1], objs[0].foo, '[Bug #10943]')
+    assert_equal([2], objs[1].foo, '[Bug #10943]')
+
+    # class def in singleton class
+    objs = []
+    $xs = []
+    $i = 0
+
+    2.times{
+      objs << obj = Object.new
+      class << obj
+        CONST = ($i += 1)
+        class X
+          $xs << self
+          CONST = ($i += 1)
+          def foo
+            CONST
+          end
+        end
+
+        def x
+          X
+        end
+      end
+    }
+    assert_not_equal($xs[0], $xs[1], '[Bug #10943]')
+    assert_not_equal(objs[0].x, objs[1].x, '[Bug #10943]')
+    assert_equal(2, $xs[0]::CONST, '[Bug #10943]')
+    assert_equal(2, $xs[0].new.foo, '[Bug #10943]')
+    assert_equal(4, $xs[1]::CONST, '[Bug #10943]')
+    assert_equal(4, $xs[1].new.foo, '[Bug #10943]')
+
+    # class def in block in singleton class
+    objs = []
+    $xs = []
+    $i = 0
+
+    2.times{
+      objs << obj = Object.new
+      class << obj
+        1.times{
+          CONST = ($i += 1)
+        }
+        1.times{
+          class X
+            $xs << self
+            CONST = ($i += 1)
+            def foo
+              CONST
+            end
+          end
+
+          def x
+            X
+          end
+        }
+      end
+    }
+    assert_not_equal($xs[0], $xs[1], '[Bug #10943]')
+    assert_not_equal(objs[0].x, objs[1].x, '[Bug #10943]')
+    assert_equal(2, $xs[0]::CONST, '[Bug #10943]')
+    assert_equal(2, $xs[0].new.foo, '[Bug #10943]')
+    assert_equal(4, $xs[1]::CONST, '[Bug #10943]')
+    assert_equal(4, $xs[1].new.foo, '[Bug #10943]')
+
+    # method def in singleton class
+    ms = []
+    ps = $test_singleton_class_shared_cref_ps = []
+    2.times{
+      ms << Module.new do
+        class << self
+          $test_singleton_class_shared_cref_ps << Proc.new{
+            def xyzzy
+              self
+            end
+          }
+        end
+      end
+    }
+
+    ps.each{|p| p.call} # define xyzzy methods for each singleton classes
+    ms.each{|m|
+      assert_equal(m, m.xyzzy, "Bug #10871")
+    }
+  end
 end
-- 
cgit v1.2.3