2005-08-08 23:24:29 +00:00
|
|
|
require 'test/unit'
|
|
|
|
|
* parse.y, node.h, compile.c: change node tree structure. a purpose
of this change is to unify argument structure of method and block.
this change prohibits duplicate block parameter name.
new argument infromation:
NODE_ARGS [m: int, o: NODE_OPT_ARG, ->]
NODE_ARGS_AUX [r: ID, b: ID, ->]
NODE_ARGS_AUX [Pst: id, Plen: int, init: NODE*]
optarg information:
NODE_OPT_ARGS [idx, expr, ->]
* vm_macro.def: ditto.
* gc.c: ditto.
* iseq.c: ditto.
* compile.h: fix debug function name.
* test/ripper/test_scanner_events.rb: |_,_,foo| -> |_1,_2,foo|
* test/ruby/test_lambda.rb: disalbe test temporarily.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@11840 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2007-02-24 02:07:05 +00:00
|
|
|
__END__
|
|
|
|
|
2005-08-08 23:24:29 +00:00
|
|
|
class TestLambdaParameters < Test::Unit::TestCase
|
|
|
|
def test_call_simple
|
|
|
|
assert_equal(1, ->(a){ a }.call(1))
|
|
|
|
assert_equal([1,2], ->(a,b){ [a,b] }.call(1,2))
|
|
|
|
assert_raises(ArgumentError) { ->(a){ }.call(1,2) }
|
|
|
|
assert_raises(ArgumentError) { ->(a){ }.call() }
|
|
|
|
assert_raises(ArgumentError) { ->(){ }.call(1) }
|
|
|
|
assert_raises(ArgumentError) { ->(a,b){ }.call(1,2,3) }
|
|
|
|
end
|
|
|
|
|
2007-01-05 03:43:12 +00:00
|
|
|
def test_lambda_as_iterator
|
|
|
|
a = 0
|
|
|
|
2.times(&->(_){ a += 1 })
|
|
|
|
assert_equal(a, 2)
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_message
|
|
|
|
flunk("YARV doesn't support some argument types for Proc object created by '->' syntax")
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
__END__
|
|
|
|
|
|
|
|
class TestLambdaParameters
|
2005-08-08 23:24:29 +00:00
|
|
|
def test_call_rest_args
|
|
|
|
assert_equal([1,2], ->(*a){ a }.call(1,2))
|
|
|
|
assert_equal([1,2,[]], ->(a,b,*c){ [a,b,c] }.call(1,2))
|
|
|
|
assert_raises(ArgumentError){ ->(a,*b){ }.call() }
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_call_opt_args
|
|
|
|
assert_equal([1,2,3,4], ->(a,b,c=3,d=4){ [a,b,c,d] }.call(1,2))
|
|
|
|
assert_equal([1,2,3,4], ->(a,b,c=0,d=4){ [a,b,c,d] }.call(1,2,3))
|
|
|
|
assert_raises(ArgumentError){ ->(a,b=1){ }.call() }
|
|
|
|
assert_raises(ArgumentError){ ->(a,b=1){ }.call(1,2,3) }
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_call_rest_and_opt
|
|
|
|
assert_equal([1,2,3,[]], ->(a,b=2,c=3,*d){ [a,b,c,d] }.call(1))
|
|
|
|
assert_equal([1,2,3,[]], ->(a,b=0,c=3,*d){ [a,b,c,d] }.call(1,2))
|
|
|
|
assert_equal([1,2,3,[4,5,6]], ->(a,b=0,c=0,*d){ [a,b,c,d] }.call(1,2,3,4,5,6))
|
|
|
|
assert_raises(ArgumentError){ ->(a,b=1,*c){ }.call() }
|
|
|
|
end
|
|
|
|
|
|
|
|
def test_call_with_block
|
|
|
|
f = ->(a,b,c=3,*d,&e){ [a,b,c,d,e.call(d + [a,b,c])] }
|
|
|
|
assert_equal([1,2,3,[],6], f.call(1,2){|z| z.inject{|s,x| s+x} } )
|
|
|
|
assert_equal(nil, ->(&b){ b }.call)
|
|
|
|
foo { puts "bogus block " }
|
|
|
|
assert_equal(1, ->(&b){ b.call }.call { 1 })
|
|
|
|
b = nil
|
|
|
|
assert_equal(1, ->(&b){ b.call }.call { 1 })
|
2005-09-12 23:09:39 +00:00
|
|
|
assert_nil(b)
|
2005-08-08 23:24:29 +00:00
|
|
|
end
|
|
|
|
|
|
|
|
def foo
|
|
|
|
assert_equal(nil, ->(&b){ b }.call)
|
|
|
|
end
|
|
|
|
end
|