tests: adds an FFI test with strings

Signed-off-by: Alexis Laferrière <alexis.laf@xymus.net>

diff --git a/tests/sav/test_ffi_c_strings.sav b/tests/sav/test_ffi_c_strings.sav
new file mode 100644 (file)
index 0000000..884e078
--- /dev/null
+++ b/tests/sav/test_ffi_c_strings.sav
@@ -0,0 +1,7 @@
+cstr-> char* to C
+12
+cstr-> char* from C
+str-> Nit string to C
+Nit string from C
+17
+Nit string from C

diff --git a/tests/test_ffi_c_strings.nit b/tests/test_ffi_c_strings.nit
new file mode 100644 (file)
index 0000000..9af7023
--- /dev/null
+++ b/tests/test_ffi_c_strings.nit
@@ -0,0 +1,46 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net>
+#
+# Licensed under the Apache License, Version 2.0 (the "License");
+# you may not use this file except in compliance with the License.
+# You may obtain a copy of the License at
+#
+#     http://www.apache.org/licenses/LICENSE-2.0
+#
+# Unless required by applicable law or agreed to in writing, software
+# distributed under the License is distributed on an "AS IS" BASIS,
+# WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+# See the License for the specific language governing permissions and
+# limitations under the License.
+
+fun print_cstring(cstr: NativeString) `{
+       printf("cstr-> %s\n", cstr);
+`}
+
+fun get_cstring: NativeString `{
+       return "char* from C";
+`}
+
+fun print_string(str: String) import String::to_cstring `{
+       printf("str-> %s\n", String_to_cstring(str) );
+`}
+
+fun get_string: String import String::from_cstring, String::output `{
+       String str = new_String_from_cstring("Nit string from C");
+       String_output(str);
+       printf("\n");
+       return str;
+`}
+
+print_cstring( "char* to C".to_cstring )
+
+var cstr = get_cstring
+print cstr.cstring_length
+print_cstring cstr
+
+print_string( "Nit string to C" )
+
+var str = get_string
+print str.length
+print str