1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
# frozen_string_literal: false
require 'test/unit'
require '-test-/proc'
class Test_Proc < Test::Unit::TestCase
class TestBMethod < Test::Unit::TestCase
end
end
class Test_Proc::TestBMethod
class Base
def foo(*a)
a
end
end
class Bound < Base
define_method(:foo, Bug::Proc.make_call_super(42))
define_method(:receiver, Bug::Proc.make_call_receiver(nil))
end
def test_super_in_bmethod
obj = Bound.new
assert_equal([1, 42], obj.foo(1))
end
def test_block_super
obj = Bound.new
result = nil
obj.foo(2) {|*a| result = a}
assert_equal([2, 42], result)
end
def test_receiver_in_bmethod
obj = Bound.new
assert_same(obj, obj.receiver)
end
end
|
