tests: adds tests for the FFI with C

[nit.git] / tests / test_ffi_c_types.nit

diff --git a/tests/test_ffi_c_types.nit b/tests/test_ffi_c_types.nit
new file mode 100644 (file)
index 0000000..9391d7c
--- /dev/null
+++ b/tests/test_ffi_c_types.nit
@@ -0,0 +1,56 @@
+in "C header" `{
+       struct s_a{
+               int x, y;
+               };
+       struct s_b{
+               struct s_a super;
+               int w, h;
+               };
+`}
+
+extern A in "C" `{struct s_a*`}
+       new `{
+               struct s_a* v = malloc(sizeof(struct s_a));
+               v->x = 1;
+               v->y = 2;
+               return v;
+       `}
+       fun p `{
+               printf( "A< %d %d >\n", recv->x, recv->y );
+       `}
+end
+
+extern B in "C" `{struct s_b*`}
+       super A
+       new `{
+               struct s_b* v = malloc(sizeof(struct s_b));
+               v->super.x = 3;
+               v->super.y = 4;
+               v->w = 5;
+               v->h = 6;
+               return v;
+       `}
+       redef fun p import super `{
+               printf( "B< " );
+               B_p___super(recv);
+               printf( "   %d %d >\n", recv->w, recv->h );
+       `}
+end
+
+extern C
+       super A
+       new `{
+               struct s_a* v = malloc(sizeof(struct s_a));
+               v->x = 11;
+               v->y = 22;
+               return v;
+       `}
+       redef fun p `{
+               printf( "C< %d %d >\n", recv->x, recv->y );
+       `}
+end
+
+(new A).p
+(new B).p
+(new C).p
+