mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
c1fb6a82dc
to Fiddle::Handle. * ext/fiddle/pointer.c: Make Fiddle independent of DL, copy DL::Pointer to Fiddle::Pointer. * test/fiddle/test_func.rb: relevent tests * test/fiddle/test_handle.rb: ditto * test/fiddle/test_pointer.rb: ditto * ext/dl/lib/dl/struct.rb: use Fiddle::Pointer if available * ext/fiddle/extconf.rb: check for dlfcn.h * ext/fiddle/fiddle.c: add constants for sizeof() things * ext/fiddle/fiddle.h: include dlfcn.h * ext/fiddle/function.c: expose a C function for creating new Fiddle::Function objects. * ext/fiddle/lib/fiddle.rb: include constants for dl backwards compat * ext/fiddle/lib/fiddle/function.rb: read the pointer from the function for dl backwards compat. * test/dl/test_callback.rb: check the addresses of the pointers rather than their types. * test/fiddle/helper.rb: remove dependency on dl * test/fiddle/test_closure.rb: ditto * test/fiddle/test_fiddle.rb: ditto git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@37907 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
84 lines
2 KiB
Ruby
84 lines
2 KiB
Ruby
begin
|
|
require_relative 'helper'
|
|
rescue LoadError
|
|
end
|
|
|
|
module Fiddle
|
|
class TestClosure < Fiddle::TestCase
|
|
def test_argument_errors
|
|
assert_raises(TypeError) do
|
|
Closure.new(TYPE_INT, TYPE_INT)
|
|
end
|
|
|
|
assert_raises(TypeError) do
|
|
Closure.new('foo', [TYPE_INT])
|
|
end
|
|
|
|
assert_raises(TypeError) do
|
|
Closure.new(TYPE_INT, ['meow!'])
|
|
end
|
|
end
|
|
|
|
def test_call
|
|
closure = Class.new(Closure) {
|
|
def call
|
|
10
|
|
end
|
|
}.new(TYPE_INT, [])
|
|
|
|
func = Function.new(closure, [], TYPE_INT)
|
|
assert_equal 10, func.call
|
|
end
|
|
|
|
def test_returner
|
|
closure = Class.new(Closure) {
|
|
def call thing
|
|
thing
|
|
end
|
|
}.new(TYPE_INT, [TYPE_INT])
|
|
|
|
func = Function.new(closure, [TYPE_INT], TYPE_INT)
|
|
assert_equal 10, func.call(10)
|
|
end
|
|
|
|
def test_block_caller
|
|
cb = Closure::BlockCaller.new(TYPE_INT, [TYPE_INT]) do |one|
|
|
one
|
|
end
|
|
func = Function.new(cb, [TYPE_INT], TYPE_INT)
|
|
assert_equal 11, func.call(11)
|
|
end
|
|
|
|
def test_memsize
|
|
require 'objspace'
|
|
bug = '[ruby-dev:42480]'
|
|
n = 10000
|
|
assert_equal(n, n.times {ObjectSpace.memsize_of(Closure.allocate)}, bug)
|
|
end
|
|
|
|
%w[INT SHORT CHAR LONG LONG_LONG].each do |name|
|
|
type = Fiddle.const_get("TYPE_#{name}") rescue next
|
|
size = Fiddle.const_get("SIZEOF_#{name}")
|
|
[[type, size-1, name], [-type, size, "unsigned_"+name]].each do |t, s, n|
|
|
define_method("test_conversion_#{n.downcase}") do
|
|
arg = nil
|
|
|
|
clos = Class.new(Closure) do
|
|
define_method(:call) {|x| arg = x}
|
|
end.new(t, [t])
|
|
|
|
v = ~(~0 << (8*s))
|
|
|
|
arg = nil
|
|
assert_equal(v, clos.call(v))
|
|
assert_equal(arg, v, n)
|
|
|
|
arg = nil
|
|
func = Function.new(clos, [t], t)
|
|
assert_equal(v, func.call(v))
|
|
assert_equal(arg, v, n)
|
|
end
|
|
end
|
|
end
|
|
end
|
|
end if defined?(Fiddle)
|