mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
Daniel Bovensiepen
57 lines
927 B
Ruby
57 lines
927 B
Ruby
##
|
|
# Proc ISO Test
|
|
|
|
assert('Proc', '15.2.17') do
|
|
assert_equal Proc.class, Class
|
|
end
|
|
|
|
assert('Proc superclass', '15.2.17.2') do
|
|
assert_equal Proc.superclass, Object
|
|
end
|
|
|
|
assert('Proc.new', '15.2.17.3.1') do
|
|
assert_raise ArgumentError do
|
|
Proc.new
|
|
end
|
|
|
|
assert_equal (Proc.new {}).class, Proc
|
|
end
|
|
|
|
assert('Proc#[]', '15.2.17.4.1') do
|
|
a = 0
|
|
b = Proc.new { a += 1 }
|
|
b.[]
|
|
|
|
a2 = 0
|
|
b2 = Proc.new { |i| a2 += i }
|
|
b2.[](5)
|
|
|
|
assert_equal a, 1
|
|
assert_equal a2, 5
|
|
end
|
|
|
|
assert('Proc#arity', '15.2.17.4.2') do
|
|
a = Proc.new {|x, y|}.arity
|
|
b = Proc.new {|x, *y, z|}.arity
|
|
c = Proc.new {|x=0, y|}.arity
|
|
d = Proc.new {|(x, y), z=0|}.arity
|
|
|
|
assert_equal a, 2
|
|
assert_equal b, -3
|
|
assert_equal c, 1
|
|
assert_equal d, 1
|
|
end
|
|
|
|
assert('Proc#call', '15.2.17.4.3') do
|
|
a = 0
|
|
b = Proc.new { a += 1 }
|
|
b.call
|
|
|
|
a2 = 0
|
|
b2 = Proc.new { |i| a2 += i }
|
|
b2.call(5)
|
|
|
|
assert_equal a, 1
|
|
assert_equal a2, 5
|
|
end
|