From 0dc342de848a642ecce8db697b8fecd83a63e117 Mon Sep 17 00:00:00 2001
From: yugui <yugui@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 25 Aug 2008 15:02:05 +0000
Subject: added tag v1_9_0_4

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/tags/v1_9_0_4@18845 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 trunk/test/ruby/test_gc.rb | 54 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 54 insertions(+)
 create mode 100644 trunk/test/ruby/test_gc.rb

(limited to 'trunk/test/ruby/test_gc.rb')

diff --git a/trunk/test/ruby/test_gc.rb b/trunk/test/ruby/test_gc.rb
new file mode 100644
index 0000000000..42b249d0dc
--- /dev/null
+++ b/trunk/test/ruby/test_gc.rb
@@ -0,0 +1,54 @@
+require 'test/unit'
+
+class TestGc < Test::Unit::TestCase
+  class S
+    def initialize(a)
+      @a = a
+    end
+  end
+
+  def test_gc
+    prev_stress = GC.stress
+    GC.stress = false
+    
+    assert_nothing_raised do
+      1.upto(10000) {
+        tmp = [0,1,2,3,4,5,6,7,8,9]
+      }
+      tmp = nil
+    end
+    l=nil
+    100000.times {
+      l = S.new(l)
+    }
+    GC.start
+    assert true   # reach here or dumps core
+    l = []
+    100000.times {
+      l.push([l])
+    }
+    GC.start
+    assert true   # reach here or dumps core
+
+    GC.stress = prev_stress
+  end
+
+  def test_enable_disable
+    GC.enable
+    assert_equal(false, GC.enable)
+    assert_equal(false, GC.disable)
+    assert_equal(true, GC.disable)
+    assert_equal(true, GC.disable)
+    assert_nil(GC.start)
+    assert_equal(true, GC.enable)
+    assert_equal(false, GC.enable)
+  ensure
+    GC.enable
+  end
+
+  def test_count
+    c = GC.count
+    GC.start
+    assert_operator(c, :<, GC.count)
+  end
+end
-- 
cgit v1.2.3