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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
describe :rbasic, shared: true do
before :all do
specs = CApiRBasicSpecs.new
@taint = specs.taint_flag
@freeze = specs.freeze_flag
end
it "reports the appropriate FREEZE flag for the object when reading" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
obj.freeze
@specs.get_flags(obj).should == @freeze | initial
end
it "supports setting the FREEZE flag" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
@specs.set_flags(obj, @freeze | initial).should == @freeze | initial
obj.frozen?.should == true
end
ruby_version_is ""..."2.7" do
it "reports the appropriate FREEZE and TAINT flags for the object when reading" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
obj.taint
@specs.get_flags(obj).should == @taint | initial
obj.untaint
@specs.get_flags(obj).should == initial
obj.freeze
@specs.get_flags(obj).should == @freeze | initial
obj, _ = @data.call
obj.taint
obj.freeze
@specs.get_flags(obj).should == @freeze | @taint | initial
end
it "supports setting the FREEZE and TAINT flags" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
@specs.set_flags(obj, @taint | initial).should == @taint | initial
obj.tainted?.should == true
@specs.set_flags(obj, initial).should == initial
obj.tainted?.should == false
@specs.set_flags(obj, @freeze | initial).should == @freeze | initial
obj.frozen?.should == true
obj, _ = @data.call
@specs.set_flags(obj, @freeze | @taint | initial).should == @freeze | @taint | initial
obj.tainted?.should == true
obj.frozen?.should == true
end
end
it "supports user flags" do
obj, _ = @data.call
initial = @specs.get_flags(obj)
@specs.set_flags(obj, 1 << 14 | 1 << 16 | initial).should == 1 << 14 | 1 << 16 | initial
@specs.get_flags(obj).should == 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj, initial).should == initial
end
it "supports copying the flags from one object over to the other" do
obj1, obj2 = @data.call
initial = @specs.get_flags(obj1)
@specs.get_flags(obj2).should == initial
@specs.set_flags(obj1, @taint | 1 << 14 | 1 << 16 | initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == @taint | 1 << 14 | 1 << 16 | initial
@specs.set_flags(obj1, initial)
@specs.copy_flags(obj2, obj1)
@specs.get_flags(obj2).should == initial
end
it "supports retrieving the (meta)class" do
obj, _ = @data.call
@specs.get_klass(obj).should == obj.class
obj.singleton_class # ensure the singleton class exists
@specs.get_klass(obj).should == obj.singleton_class
end
end
|
