From 09d57b8e0c3bb80d43798d7a2bfc239229126e9a Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 8 Aug 2005 23:24:29 +0000
Subject: * parse.y (f_block_arg), eval.c (rb_yield_0): deal with dynamic  
 variable lambda arguments.  [ruby-core:05540]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8955 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 test/ruby/test_lambda.rb | 53 ++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 53 insertions(+)
 create mode 100644 test/ruby/test_lambda.rb

(limited to 'test/ruby')

diff --git a/test/ruby/test_lambda.rb b/test/ruby/test_lambda.rb
new file mode 100644
index 0000000000..0173bead11
--- /dev/null
+++ b/test/ruby/test_lambda.rb
@@ -0,0 +1,53 @@
+require 'test/unit'
+
+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
+
+  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 })
+    assert_not_nil(b)
+  end
+
+  def foo
+    assert_equal(nil, ->(&b){ b }.call)
+  end
+
+  def test_lambda_as_iterator
+    a = 0
+    2.times ->(_){ a += 1 }
+    assert_equal(a, 2)
+  end
+end
-- 
cgit v1.2.3