diff options
Diffstat (limited to 'ext/dl/test/test_dl2.rb')
-rw-r--r-- | ext/dl/test/test_dl2.rb | 89 |
1 files changed, 89 insertions, 0 deletions
diff --git a/ext/dl/test/test_dl2.rb b/ext/dl/test/test_dl2.rb new file mode 100644 index 0000000000..d1b18057cf --- /dev/null +++ b/ext/dl/test/test_dl2.rb @@ -0,0 +1,89 @@ +require 'test_base.rb' +require 'dl/callback' + +module DL +class TestDL < TestBase + def test_call_int() + cfunc = CFunc.new(@libc['atoi'], TYPE_INT, 'atoi') + x = cfunc.call(["100"].pack("p").unpack("l!*")) + assert_equal(100, x) + + cfunc = CFunc.new(@libc['atoi'], TYPE_INT, 'atoi') + x = cfunc.call(["-100"].pack("p").unpack("l!*")) + assert_equal(-100, x) + end + + def test_call_long() + cfunc = CFunc.new(@libc['atol'], TYPE_LONG, 'atol') + x = cfunc.call(["100"].pack("p").unpack("l!*")) + assert_equal(100, x) + cfunc = CFunc.new(@libc['atol'], TYPE_LONG, 'atol') + x = cfunc.call(["-100"].pack("p").unpack("l!*")) + assert_equal(-100, x) + end + + def test_call_double() + cfunc = CFunc.new(@libc['atof'], TYPE_DOUBLE, 'atof') + x = cfunc.call(["0.1"].pack("p").unpack("l!*")) + assert_match(0.09..0.11, x) + + cfunc = CFunc.new(@libc['atof'], TYPE_DOUBLE, 'atof') + x = cfunc.call(["-0.1"].pack("p").unpack("l!*")) + assert_match(-0.11 .. -0.09, x) + end + + def test_sin() + cfunc = CFunc.new(@libm['sin'], TYPE_DOUBLE, 'sin') + x = cfunc.call([3.14/2].pack("d").unpack("l!*")) + assert_equal(x, Math.sin(3.14/2)) + + cfunc = CFunc.new(@libm['sin'], TYPE_DOUBLE, 'sin') + x = cfunc.call([-3.14/2].pack("d").unpack("l!*")) + assert_equal(Math.sin(-3.14/2), x) + end + + def test_strlen() + cfunc = CFunc.new(@libc['strlen'], TYPE_INT, 'strlen') + x = cfunc.call(["abc"].pack("p").unpack("l!*")) + assert_equal("abc".size, x) + end + + def test_strcpy() + buff = "xxxx" + str = "abc" + cfunc = CFunc.new(@libc['strcpy'], TYPE_VOIDP, 'strcpy') + x = cfunc.call([buff,str].pack("pp").unpack("l!*")) + assert_equal("abc\0", buff) + assert_equal("abc\0", CPtr.new(x).to_s(4)) + + buff = "xxxx" + str = "abc" + cfunc = CFunc.new(@libc['strncpy'], TYPE_VOIDP, 'strncpy') + x = cfunc.call([buff,str,3].pack("ppi").unpack("l!*")) + assert_equal("abcx", buff) + assert_equal("abcx", CPtr.new(x).to_s(4)) + + ptr = CPtr.malloc(4) + str = "abc" + cfunc = CFunc.new(@libc['strcpy'], TYPE_VOIDP, 'strcpy') + x = cfunc.call([ptr.to_i,str].pack("lp").unpack("l!*")) + assert_equal("abc\0", ptr[0,4]) + assert_equal("abc\0", CPtr.new(x).to_s(4)) + end + + def test_callback() + buff = "foobarbaz" + cb = set_callback(TYPE_INT,2){|x,y| CPtr.new(x)[0] <=> CPtr.new(y)[0]} + cfunc = CFunc.new(@libc['qsort'], TYPE_VOID, 'qsort') + cfunc.call([buff, buff.size, 1, cb].pack("pI!I!L!").unpack("l!*")) + assert_equal('aabbfoorz', buff) + end + + def test_dlwrap() + ary = [0,1,2,4,5] + addr = dlwrap(ary) + ary2 = dlunwrap(addr) + assert_equal(ary, ary2) + end +end +end # module DL |