diff options
Diffstat (limited to 'mrbgems/mruby-objectspace/test/objectspace.rb')
| -rw-r--r-- | mrbgems/mruby-objectspace/test/objectspace.rb | 25 |
1 files changed, 21 insertions, 4 deletions
diff --git a/mrbgems/mruby-objectspace/test/objectspace.rb b/mrbgems/mruby-objectspace/test/objectspace.rb index 612137019..e70650e84 100644 --- a/mrbgems/mruby-objectspace/test/objectspace.rb +++ b/mrbgems/mruby-objectspace/test/objectspace.rb @@ -1,5 +1,6 @@ assert('ObjectSpace.count_objects') do h = {} + f = Fiber.new {} if Object.const_defined? :Fiber ObjectSpace.count_objects(h) assert_kind_of(Hash, h) assert_true(h.keys.all? {|x| x.is_a?(Symbol) || x.is_a?(Integer) }) @@ -7,6 +8,7 @@ assert('ObjectSpace.count_objects') do assert_true(h.has_key?(:TOTAL)) assert_true(h.has_key?(:FREE)) + assert_true(h.has_key?(:T_FIBER)) if Object.const_defined? :Fiber h = ObjectSpace.count_objects assert_kind_of(Hash, h) @@ -15,9 +17,9 @@ assert('ObjectSpace.count_objects') do assert_raise(TypeError) { ObjectSpace.count_objects(1) } - h0 = {:MRB_TT_FOO=>1000} + h0 = {:T_FOO=>1000} h = ObjectSpace.count_objects(h0) - assert_false(h0.has_key?(:MRB_TT_FOO)) + assert_false(h0.has_key?(:T_FOO)) GC.start h_after = {} @@ -32,6 +34,21 @@ assert('ObjectSpace.count_objects') do GC.start ObjectSpace.count_objects(h_after) - assert_equal(h[:MRB_TT_HASH], h_before[:MRB_TT_HASH] + 1000) - assert_equal(h_after[:MRB_TT_HASH], h_before[:MRB_TT_HASH]) + assert_equal(h[:T_HASH], h_before[:T_HASH] + 1000) + assert_equal(h_after[:T_HASH], h_before[:T_HASH]) +end + +assert('ObjectSpace.each_object') do + objs = [] + objs_count = ObjectSpace.each_object { |obj| + objs << obj + } + assert_equal objs.length, objs_count + + arys = [] + arys_count = ObjectSpace.each_object(Array) { |obj| + arys << obj + } + assert_equal arys.length, arys_count + assert_true arys.length < objs.length end |