require_relative 'helper' module Fiddle class TestFunc < TestCase def test_random f = Function.new(@libc['srand'], [-TYPE_LONG], TYPE_VOID) assert_nil f.call(10) end def test_sinf begin f = Function.new(@libm['sinf'], [TYPE_FLOAT], TYPE_FLOAT) rescue Fiddle::DLError skip "libm may not have sinf()" end assert_in_delta 1.0, f.call(90 * Math::PI / 180), 0.0001 end def test_sin f = Function.new(@libm['sin'], [TYPE_DOUBLE], TYPE_DOUBLE) assert_in_delta 1.0, f.call(90 * Math::PI / 180), 0.0001 end def test_string stress, GC.stress = GC.stress, true f = Function.new(@libc['strcpy'], [TYPE_VOIDP, TYPE_VOIDP], TYPE_VOIDP) buff = "000" str = f.call(buff, "123") assert_equal("123", buff) assert_equal("123", str.to_s) ensure GC.stress = stress end def test_isdigit f = Function.new(@libc['isdigit'], [TYPE_INT], TYPE_INT) r1 = f.call(?1.ord) r2 = f.call(?2.ord) rr = f.call(?r.ord) assert_operator r1, :>, 0 assert_operator r2, :>, 0 assert_equal 0, rr end def test_atof f = Function.new(@libc['atof'], [TYPE_VOIDP], TYPE_DOUBLE) r = f.call("12.34") assert_includes(12.00..13.00, r) end def test_strtod f = Function.new(@libc['strtod'], [TYPE_VOIDP, TYPE_VOIDP], TYPE_DOUBLE) buff1 = Pointer["12.34"] buff2 = buff1 + 4 r = f.call(buff1, - buff2) assert_in_delta(12.34, r, 0.001) end def test_qsort1 cb = Class.new(Closure) { def call(x, y) Pointer.new(x)[0] <=> Pointer.new(y)[0] end }.new(TYPE_INT, [TYPE_VOIDP, TYPE_VOIDP]) qsort = Function.new(@libc['qsort'], [TYPE_VOIDP, TYPE_SIZE_T, TYPE_SIZE_T, TYPE_VOIDP], TYPE_VOID) buff = "9341" qsort.call(buff, buff.size, 1, cb) assert_equal("1349", buff) bug4929 = '[ruby-core:37395]' buff = "9341" EnvUtil.under_gc_stress {qsort.call(buff, buff.size, 1, cb)} assert_equal("1349", buff, bug4929) end end end