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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
require 'test/unit'
class TestEval < Test::Unit::TestCase
def testBasicEval
assert_equal(nil, eval(""))
$bad=false
eval 'while false; bad = true; print "foo\n" end'
assert(!$bad)
assert(eval('TRUE'))
assert(eval('true'))
assert(!eval('NIL'))
assert(!eval('nil'))
assert(!eval('FALSE'))
assert(!eval('false'))
foo = 'assert(true)'
eval foo
assert_equal('assert(true)', eval("foo"))
assert_equal(true, eval("true"))
end
def testEvalScoping
i = 5
assert(eval("i == 5"))
assert_equal(5, eval("i"))
assert_not_nil(eval("defined? i"))
end
def evalWithBindingHelper
local1 = "local1"
lambda {
local2 = "local2"
return binding
}.call
end
def testEvalWithBinding
x = evalWithBindingHelper
assert_equal("local1", eval("local1", x)) # normal local var
assert_equal("local2", eval("local2", x)) # nested local var
end
def testEvalNameError
assert_raise(NameError) { eval("local1") }
end
end
module EvTest
EVTEST1 = 25
evtest2 = 125
if respond_to?(:binding, true)
BINDING = binding
end
end
class TestEval
def testEvalModuleBinding
assert_equal(25, eval("EVTEST1", EvTest::BINDING)) # constant in module
assert_equal(125, eval("evtest2", EvTest::BINDING)) # local var in module
assert_raise(NameError) { eval("EVTEST1") }
end
def testEvalWithProcBinding
x = proc{}
eval "i4 = 1", x
assert_equal(1, eval("i4", x))
x = proc{proc{}}.call
eval "i4 = 22", x
assert_equal(22, eval("i4", x))
$x = []
x = proc{proc{}}.call
eval "(0..9).each{|i5| $x[i5] = proc{i5*2}}", x
assert_equal(8, $x[4].call)
x = binding
eval "i = 1", x
assert_equal(1, eval("i", x))
x = proc{binding}.call
eval "i = 22", x
assert_equal(22, eval("i", x))
$x = []
x = proc{binding}.call
eval "(0..9).each{|i5| $x[i5] = proc{i5*2}}", x
assert_equal(8, $x[4].call)
x = proc{binding}.call
eval "for i6 in 1..1; j6=i6; end", x
assert_not_nil(eval("defined? i6", x))
assert_not_nil(eval("defined? j6", x))
end
def testProcNestedBinding
proc {
p = binding
eval "foo11 = 1", p
foo22 = 5
proc{foo11=22}.call
proc{foo22=55}.call
assert_equal(eval("foo11"), eval("foo11", p))
assert_equal(1, eval("foo11"))
assert_equal(eval("foo22"), eval("foo22", p))
assert_equal(55, eval("foo22"))
}.call
end
def testProcMoreFunWithBinding
p1 = proc{i7 = 0; proc{i7}}.call
assert_equal(0, p1.call)
eval "i7=5", p1
assert_equal(5, p1.call)
assert(!defined?(i7))
p1 = proc{i7 = 0; proc{i7}}.call
i7 = nil
assert_equal(0, p1.call)
eval "i7=1", p1
assert_equal(1, p1.call)
eval "i7=5", p1
assert_equal(5, p1.call)
assert_equal(nil, i7)
end
end
|
