First implementation of ObjectSpace moved outside of gc.c

1 files changed, 34 insertions, 0 deletions

diff --git a/mrbgems/mruby-objectspace/test/objectspace.rb b/mrbgems/mruby-objectspace/test/objectspace.rb
new file mode 100644
index 000000000..dbf3bcbb8
--- /dev/null
+++ b/mrbgems/mruby-objectspace/test/objectspace.rb
@@ -0,0 +1,34 @@
+assert('ObjectSpace.count_objects') do
+	h = {}
+	ObjectSpace.count_objects(h)
+	assert_kind_of(Hash, h)
+	assert_true(h.keys.all? {|x| x.is_a?(Symbol) || x.is_a?(Integer) })
+	assert_true(h.values.all? {|x| x.is_a?(Integer) })
+
+	h = ObjectSpace.count_objects
+	assert_kind_of(Hash, h)
+	assert_true(h.keys.all? {|x| x.is_a?(Symbol) || x.is_a?(Integer) })
+	assert_true(h.values.all? {|x| x.is_a?(Integer) })
+
+	assert_raise(TypeError) { ObjectSpace.count_objects(1) }
+
+	h0 = {:MRB_TT_FOO=>1000}
+	h = ObjectSpace.count_objects(h0)
+	assert_false(h0.has_key?(:MRB_TT_FOO))
+
+	GC.start
+	h_after = {}
+	h_before = ObjectSpace.count_objects
+
+	objs = []
+	1000.times do
+		objs << {}
+	end
+	objs = nil
+	ObjectSpace.count_objects(h)
+	GC.start
+	ObjectSpace.count_objects(h_after)
+
+	assert_equal(h_before[:MRB_TT_HASH] + 1000, h[:MRB_TT_HASH])
+	assert_equal(h_before[:MRB_TT_HASH], h_after[:MRB_TT_HASH])
+end
\ No newline at end of file