add cycle tests

test/test/spec/cycle_spec.rb

@@ -0,0 +1,70 @@
+describe "cycles" do
+  class TestObjectCycle
+    def test_block_retain
+      test_block_assign { 42 }
+    end
+    def test_block_assign(&b)
+      @b = b
+    end
+    def test_array_retain
+      @a = []
+      @a << self
+    end
+    def test_hash_retain
+      @h = {}
+      @h[42] = self
+    end
+    def dealloc
+      $test_dealloc = true
+      super
+    end
+  end
+  it "created by Proc->self are solved" do
+    $test_dealloc = false
+    autorelease_pool { TestObjectCycle.new.test_block_retain }
+    $test_dealloc.should == true
+  end
+
+  it "created by Array are solved" do
+    $test_dealloc = false
+    autorelease_pool { TestObjectCycle.new.test_array_retain }
+    $test_dealloc.should == true
+  end
+
+  it "created by Hash are solved" do
+    $test_dealloc = false
+    autorelease_pool { TestObjectCycle.new.test_hash_retain }
+    $test_dealloc.should == true
+  end
+
+  it "created by Hash->ifnone are solved" do
+    $test_dealloc = false
+    autorelease_pool do
+      h = Hash.new { |h, k| h[k] = [] }
+      h['1'] << TestObjectCycle.new
+    end
+    $test_dealloc.should == true
+  end
+
+  class TestObjectCircle
+    attr_accessor :ref
+    def dealloc
+      $test_dealloc[object_id] = true
+      super
+    end
+  end
+  it "created by 2 objects are solved" do
+    $test_dealloc = {}
+    obj1id = obj2id = nil
+    autorelease_pool do
+      obj1 = TestObjectCircle.new
+      obj2 = TestObjectCircle.new
+      obj1id = obj1.object_id
+      obj2id = obj2.object_id
+      obj1.ref = obj2
+      obj2.ref = obj1
+    end
+    $test_dealloc[obj1id].should == true
+    $test_dealloc[obj2id].should == true
+  end
+end