mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
3ce642f5af
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24833 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
33 lines
773 B
Ruby
33 lines
773 B
Ruby
require_relative 'test_base'
|
|
require_relative '../ruby/envutil'
|
|
|
|
module DL
|
|
class TestCPtr < TestBase
|
|
def test_free
|
|
ptr = CPtr.malloc(4)
|
|
assert_nil ptr.free
|
|
end
|
|
|
|
def test_free=
|
|
assert_normal_exit(<<-"End", '[ruby-dev:39269]')
|
|
require 'dl'
|
|
DL::LIBC_SO = #{DL::LIBC_SO.dump}
|
|
DL::LIBM_SO = #{DL::LIBM_SO.dump}
|
|
include DL
|
|
@libc = dlopen(LIBC_SO)
|
|
@libm = dlopen(LIBM_SO)
|
|
free = CFunc.new(@libc['free'], TYPE_VOID, 'free')
|
|
ptr = CPtr.malloc(4)
|
|
ptr.free = free
|
|
free.ptr
|
|
ptr.free.ptr
|
|
End
|
|
|
|
free = CFunc.new(@libc['free'], TYPE_VOID, 'free')
|
|
ptr = CPtr.malloc(4)
|
|
ptr.free = free
|
|
|
|
assert_equal free.ptr, ptr.free.ptr
|
|
end
|
|
end
|
|
end
|