1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00

* test/dl/test_callback.rb (**): testing return values of dl callbacks

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@25978 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
tenderlove 2009-12-03 03:04:27 +00:00
parent 0f0a744ed6
commit f28a0b6b98

View file

@ -1,10 +1,33 @@
require_relative 'test_base'
require_relative '../ruby/envutil'
require 'dl/callback'
require 'dl/func'
module DL
class TestCallback < TestBase
include DL
def test_callback_return_value
addr = set_callback(TYPE_VOIDP, 1) do |str|
str
end
func = CFunc.new(addr, TYPE_VOIDP, 'test')
f = Function.new(func, [TYPE_VOIDP])
ptr = CPtr['blah']
assert_equal ptr, f.call(ptr)
end
def test_callback_return_arbitrary
addr = set_callback(TYPE_VOIDP, 1) do |ptr|
CPtr['foo'].to_i
end
func = CFunc.new(addr, TYPE_VOIDP, 'test')
f = Function.new(func, [TYPE_VOIDP])
ptr = CPtr['foo']
assert_equal 'foo', f.call(ptr).to_s
end
def test_callback_with_string
called_with = nil
addr = set_callback(TYPE_VOID, 1) do |str|