46 lines
877 B
Ruby
46 lines
877 B
Ruby
|
require 'test/unit'
|
||
|
|
|
||
|
|
$KCODE = 'none'
|
||
|
|
|
||
|
|
class TestProc < Test::Unit::TestCase
|
||
|
|
def test_proc
|
||
|
|
$proc = proc{|i| i}
|
||
|
|
assert($proc.call(2) == 2)
|
||
|
|
assert($proc.call(3) == 3)
|
||
|
|
|
||
|
|
$proc = proc{|i| i*2}
|
||
|
|
assert($proc.call(2) == 4)
|
||
|
|
assert($proc.call(3) == 6)
|
||
|
|
|
||
|
|
proc{
|
||
|
|
iii=5 # nested local variable
|
||
|
|
$proc = proc{|i|
|
||
|
|
iii = i
|
||
|
|
}
|
||
|
|
$proc2 = proc {
|
||
|
|
$x = iii # nested variables shared by procs
|
||
|
|
}
|
||
|
|
# scope of nested variables
|
||
|
|
assert(defined?(iii))
|
||
|
|
}.call
|
||
|
|
assert(!defined?(iii)) # out of scope
|
||
|
|
|
||
|
|
loop{iii=5; assert(eval("defined? iii")); break}
|
||
|
|
loop {
|
||
|
|
iii = 10
|
||
|
|
def dyna_var_check
|
||
|
|
loop {
|
||
|
|
assert(!defined?(iii))
|
||
|
|
break
|
||
|
|
}
|
||
|
|
end
|
||
|
|
dyna_var_check
|
||
|
|
break
|
||
|
|
}
|
||
|
|
$x=0
|
||
|
|
$proc.call(5)
|
||
|
|
$proc2.call
|
||
|
|
assert($x == 5)
|
||
|
|
end
|
||
|
|
end
|