diff options
Diffstat (limited to 'test/ruby/test_proc.rb')
-rw-r--r-- | test/ruby/test_proc.rb | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/test/ruby/test_proc.rb b/test/ruby/test_proc.rb new file mode 100644 index 0000000000..0cf470ff00 --- /dev/null +++ b/test/ruby/test_proc.rb @@ -0,0 +1,45 @@ +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 |