* ext/fiddle/*: Adding fiddle library to wrap libffi

* test/fiddle/*: testing fiddle extension
* ext/dl/lib/dl.rb: Requiring fiddle if it is available
* ext/dl/lib/dl/callback.rb: using Fiddle if it is available
* ext/dl/lib/dl/func.rb: ditto

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@27640 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 66 insertions, 0 deletions

diff --git a/test/fiddle/test_function.rb b/test/fiddle/test_function.rb
new file mode 100644
index 0000000000..50b214a9e0
--- /dev/null
+++ b/test/fiddle/test_function.rb
@@ -0,0 +1,66 @@
+require_relative 'helper'
+
+module Fiddle
+  class TestFunction < Fiddle::TestCase
+    def setup
+      super
+      Fiddle.last_error = nil
+    end
+
+    def test_default_abi
+      func = Function.new(@libm['sin'], [TYPE_DOUBLE], TYPE_DOUBLE)
+      assert_equal Function::DEFAULT, func.abi
+    end
+
+    def test_argument_errors
+      assert_raises(TypeError) do
+        Function.new(@libm['sin'], TYPE_DOUBLE, TYPE_DOUBLE)
+      end
+
+      assert_raises(TypeError) do
+        Function.new(@libm['sin'], ['foo'], TYPE_DOUBLE)
+      end
+
+      assert_raises(TypeError) do
+        Function.new(@libm['sin'], [TYPE_DOUBLE], 'foo')
+      end
+    end
+
+    def test_call
+      func = Function.new(@libm['sin'], [TYPE_DOUBLE], TYPE_DOUBLE)
+      assert_in_delta 1.0, func.call(90 * Math::PI / 180), 0.0001
+    end
+
+    def test_argument_count
+      closure = Class.new(Closure) {
+        def call one
+          10 + one
+        end
+      }.new(TYPE_INT, [TYPE_INT])
+      func = Function.new(closure, [TYPE_INT], TYPE_INT)
+
+      assert_raises(ArgumentError) do
+        func.call(1,2,3)
+      end
+      assert_raises(ArgumentError) do
+        func.call
+      end
+    end
+
+    def test_last_error
+      func = Function.new(@libc['strcpy'], [TYPE_VOIDP, TYPE_VOIDP], TYPE_VOIDP)
+
+      assert_nil Fiddle.last_error
+      str = func.call("000", "123")
+      refute_nil Fiddle.last_error
+    end
+
+    def test_strcpy
+      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)
+    end
+  end
+end