mirror of
https://github.com/mruby/mruby
synced 2026-06-08 16:11:16 +00:00
Keita Obo
94 lines
1.6 KiB
Ruby
94 lines
1.6 KiB
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
|
|
|
|
assert('Proc#return_does_not_break_self') do
|
|
class TestClass
|
|
attr_accessor :block
|
|
def initialize
|
|
end
|
|
def return_array
|
|
@block = Proc.new { self }
|
|
return []
|
|
end
|
|
def return_instance_variable
|
|
@block = Proc.new { self }
|
|
return @block
|
|
end
|
|
def return_const_fixnum
|
|
@block = Proc.new { self }
|
|
return 123
|
|
end
|
|
def return_nil
|
|
@block = Proc.new { self }
|
|
return nil
|
|
end
|
|
end
|
|
|
|
c = TestClass.new
|
|
assert_equal [], c.return_array
|
|
assert_equal c, c.block.call
|
|
|
|
c.return_instance_variable
|
|
assert_equal c, c.block.call
|
|
|
|
assert_equal 123, c.return_const_fixnum
|
|
assert_equal c, c.block.call
|
|
|
|
assert_equal nil, c.return_nil
|
|
assert_equal c, c.block.call
|
|
end
|