1 # This file is part of NIT ( http://www.nitlanguage.org ).
3 # Copyright 2013 Lucas Bajolet <lucas.bajolet@gmail.com>
5 # Licensed under the Apache License, Version 2.0 (the "License");
6 # you may not use this file except in compliance with the License.
7 # You may obtain a copy of the License at
9 # http://www.apache.org/licenses/LICENSE-2.0
11 # Unless required by applicable law or agreed to in writing, software
12 # distributed under the License is distributed on an "AS IS" BASIS,
13 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
14 # See the License for the specific language governing permissions and
15 # limitations under the License.
17 module string_ffi_ref_test
19 intrude import text
::flat
24 var copied_str
: nullable String = null
26 var referenced_str
: nullable String = null
28 fun get_c_string
import FlatString.items
, NativeString.to_s
, NativeString.to_s_with_copy
, StringTest.ref_test
, StringTest.copy_test
`{
29 char* string = "This is a test string";
31 FlatString ref_string = NativeString_to_s(string);
32 StringTest_ref_test(self, ref_string);
34 FlatString copy_string = NativeString_to_s_with_copy(string);
35 StringTest_copy_test(self, copy_string);
37 int same_refs = FlatString_items(copy_string) == FlatString_items(ref_string);
39 printf("Do the strings have the same NativeString reference ? ");
48 private fun ref_test
(referenced
: String)
51 referenced_str
= referenced
54 private fun copy_test
(copied
: String)
62 var str_test
= new StringTest