admin/mruby-mruby
1
0
Fork 0
mirror of https://github.com/mruby/mruby synced 2026-06-08 16:11:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improve test of mruby-proc-ext GEM

Browse Source
This commit is contained in:
Daniel Bovensiepen
2013-08-04 22:41:56 +08:00
parent b99aa126a6
commit 8936965945
1 changed files with 8 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
mrbgems/mruby-proc-ext/test/proc.rb
+8 -8
View File
@@ -8,24 +8,24 @@ end
assert('Proc#===') do
proc = Proc.new {|a| a * 2}
assert_equal (proc === 10), 20
assert_equal 20, (proc === 10)
end
assert('Proc#yield') do
proc = Proc.new {|a| a * 2}
assert_equal proc.yield(10), 20
assert_equal 20, proc.yield(10)
end
assert('Proc#curry') do
b = proc {|x, y, z| (x||0) + (y||0) + (z||0) }
assert_equal b.curry[1][2][3], 6
assert_equal b.curry[1, 2][3, 4], 6
assert_equal b.curry(5)[1][2][3][4][5], 6
assert_equal b.curry(5)[1, 2][3, 4][5], 6
assert_equal b.curry(1)[1], 1
assert_equal 6, b.curry[1][2][3]
assert_equal 6, b.curry[1, 2][3, 4]
assert_equal 6, b.curry(5)[1][2][3][4][5]
assert_equal 6, b.curry(5)[1, 2][3, 4][5]
assert_equal 1, b.curry(1)[1]
b = lambda {|x, y, z| (x||0) + (y||0) + (z||0) }
assert_equal b.curry[1][2][3], 6
assert_equal 6, b.curry[1][2][3]
assert_raise(ArgumentError) { b.curry[1, 2][3, 4] }
assert_raise(ArgumentError) { b.curry(5) }
assert_raise(ArgumentError) { b.curry(1) }