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
|
assert("Kernel.#binding") do
assert_kind_of Binding, binding
end
assert("Binding#local_variables") do
block = Proc.new do |a|
b = 1
binding
end
assert_equal [:a, :b, :block], block.call(0).local_variables.sort
end
assert("Binding#local_variable_set") do
bind = binding
1.times {
assert_equal(9, bind.local_variable_set(:x, 9))
assert_raise(NameError) { x }
assert_equal([:bind, :x], bind.local_variables.sort)
}
end
assert("Binding#local_variable_get") do
bind = binding
x = 1
1.times {
y = 2
assert_equal(1, bind.local_variable_get(:x))
x = 10
assert_equal(10, bind.local_variable_get(:x))
assert_raise(NameError) { bind.local_variable_get(:y) }
assert_equal([:bind, :x], bind.local_variables.sort)
}
end
assert("Binding#source_location") do
skip unless -> {}.source_location
bind, source_location = binding, [__FILE__, __LINE__]
assert_equal source_location, bind.source_location
end
assert("Binding#dup") do
x = 5
bind1 = binding
bind1.local_variable_set(:y, 10)
bind2 = bind1.dup
assert_equal 5, bind2.local_variable_get(:x)
assert_equal 10, bind2.local_variable_get(:y)
x = 50
assert_equal 50, bind1.local_variable_get(:x)
assert_equal 50, bind2.local_variable_get(:x)
bind1.local_variable_set(:y, 20)
assert_equal 20, bind1.local_variable_get(:y)
assert_equal 20, bind2.local_variable_get(:y)
bind1.local_variable_set(:z, 30)
assert_raise(NameError) { bind2.local_variable_get(:z) }
bind2.local_variable_set(:z, 40)
assert_equal 30, bind1.local_variable_get(:z)
assert_equal 40, bind2.local_variable_get(:z)
end
assert "Kernel#binding and .eval from C" do
assert_raise(RuntimeError) { binding_in_c }
end
|
