tests/test_ffi_c_callback_extern_receiver.nit

   1 # This file is part of NIT ( http://www.nitlanguage.org ).
   2 #
   3 # Copyright 2013 Jean-Philippe Caissy <jpcaissy@piji.ca>
   4 # Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net>
   5 #
   6 # Licensed under the Apache License, Version 2.0 (the "License");
   7 # you may not use this file except in compliance with the License.
   8 # You may obtain a copy of the License at
   9 #
  10 #     http://www.apache.org/licenses/LICENSE-2.0
  11 #
  12 # Unless required by applicable law or agreed to in writing, software
  13 # distributed under the License is distributed on an "AS IS" BASIS,
  14 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  15 # See the License for the specific language governing permissions and
  16 # limitations under the License.
  17
  18 # tests for a recurring bug when callbacking a Nit method on an extern receiver
  19 module test_ffi_c_callback_extern_receiver
  20
  21 `{
  22 #include <stdio.h>
  23 `}
  24
  25 extern class Test
  26     new create_me is extern `{
  27         int* foobar = malloc(sizeof(int));
  28         *foobar = 12345;
  29         return foobar;
  30     `}
  31
  32     fun test_me is extern import Test.foo, CString.to_s `{
  33         int i;
  34         for(i = 0; i < 2000; ++i) {
  35             printf("%d\n", i);
  36             Test_foo(self, CString_to_s("asdf"));
  37         }
  38     `}
  39
  40     fun foo(bar : String) do
  41         print bar
  42     end
  43 end
  44
  45 var t = new Test.create_me
  46 t.test_me