gobject-introspection.ffi: new tests

diff --git a/basis/gobject-introspection/ffi/ffi-tests.factor b/basis/gobject-introspection/ffi/ffi-tests.factor
new file mode 100644 (file)
index 0000000..ba45684
--- /dev/null
+++ b/basis/gobject-introspection/ffi/ffi-tests.factor
@@ -0,0 +1,30 @@
+USING: accessors alien.c-types compiler.units
+gobject-introspection.ffi gobject-introspection.repository kernel
+tools.test ;
+IN: gobject-introspection.ffi.tests
+
+! callback
+{
+    T{ return
+       { type T{ simple-type { name "none" } } }
+       { transfer-ownership "none" }
+    }
+} [
+    "blah" "blah" f
+    "none" f simple-type boa "none" return boa
+    { } f callback boa return>>
+] unit-test
+
+! def-callback-type
+{ } [
+    [
+        "blah" "blah"
+        f "none" f simple-type boa "none" return boa
+        { } f callback boa def-callback-type
+    ] with-compilation-unit
+] unit-test
+
+! return-c-type
+{ void } [
+    "none" f simple-type boa "none" return boa return-c-type
+] unit-test