mirror of https://gitee.com/bigwinds/arangodb
57 lines
930 B
Ruby
57 lines
930 B
Ruby
##
|
|
# Proc ISO Test
|
|
|
|
assert('Proc', '15.2.17') do
|
|
assert_equal Class, Proc.class
|
|
end
|
|
|
|
assert('Proc superclass', '15.2.17.2') do
|
|
assert_equal Object, Proc.superclass
|
|
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 2, a
|
|
assert_equal(-3, b)
|
|
assert_equal 1, c
|
|
assert_equal 1, d
|
|
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 1, a
|
|
assert_equal 5, a2
|
|
end
|