masterkain / macruby

Ruby 1.9 ported to run directly on top of Mac OS X core technologies. Trunk mirror.

This URL has Read+Write access

macruby / bootstraptest / test_objectspace.rb
100644 45 lines (40 sloc) 1.209 kb
raw blame history 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

assert_normal_exit %q{
  eval("", TOPLEVEL_BINDING)
  minobj = ObjectSpace.to_enum(:each_object).min_by {|a| a.object_id }
  maxobj = ObjectSpace.to_enum(:each_object).max_by {|a| a.object_id }
  minobj.object_id.upto(maxobj.object_id) {|id|
    begin
      o = ObjectSpace._id2ref(id)
    rescue RangeError
      next
    end
    # Some CF containers cannot be inspected because they contain pointers
    # to C raw data.
    next if o.is_a?(Hash) or o.is_a?(Array)
    o.inspect if defined?(o.inspect)
  }
}, '[ruby-dev:31911]'
 
assert_normal_exit %q{
  ary = (1..10).to_a
  ary.permutation(2) {|x|
    if x == [1,2]
      ObjectSpace.each_object(String) {|s|
        s.clear if !s.frozen? && (s.length == 40 || s.length == 80)
      }
    end
  }
}, '[ruby-dev:31982]'
 
assert_normal_exit %q{
  ary = (1..100).to_a
  ary.permutation(2) {|x|
    if x == [1,2]
      ObjectSpace.each_object(Array) {|o| o.clear if o == ary && o.object_id != ary.object_id }
    end
  }
}, '[ruby-dev:31985]'
 
assert_equal "[Class]", %q{
  ObjectSpace.each_object(Class).map { |x| x.class }.uniq
}, 'macruby #61'
 
assert_equal "[Class, Module]", %q{
  ObjectSpace.each_object(Module).map { |x| x.class }.uniq
}, 'macruby #61'