tests: intro test for polymorphic use of extern classes

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

diff --git a/tests/sav/test_ffi_c_polymorphism.res b/tests/sav/test_ffi_c_polymorphism.res
new file mode 100644 (file)
index 0000000..de98044
--- /dev/null
+++ b/tests/sav/test_ffi_c_polymorphism.res
@@ -0,0 +1,3 @@
+a
+b
+c

diff --git a/tests/sav/test_ffi_c_polymorphism_alt1.res b/tests/sav/test_ffi_c_polymorphism_alt1.res
new file mode 100644 (file)
index 0000000..a2c2d95
--- /dev/null
+++ b/tests/sav/test_ffi_c_polymorphism_alt1.res
@@ -0,0 +1 @@
+alt/test_ffi_c_polymorphism_alt1.nit:56,15--25: Type error: expected NativeB, got NativeA

diff --git a/tests/sav/test_ffi_c_polymorphism_alt2.res b/tests/sav/test_ffi_c_polymorphism_alt2.res
new file mode 100644 (file)
index 0000000..58254a5
--- /dev/null
+++ b/tests/sav/test_ffi_c_polymorphism_alt2.res
@@ -0,0 +1 @@
+alt/test_ffi_c_polymorphism_alt2.nit:58,12--22: Type error: expected NativeB, got NativeA

diff --git a/tests/test_ffi_c_polymorphism.nit b/tests/test_ffi_c_polymorphism.nit
new file mode 100644 (file)
index 0000000..e66fdbc
--- /dev/null
+++ b/tests/test_ffi_c_polymorphism.nit
@@ -0,0 +1,58 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# Copyright 2014 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.
+
+extern class NativeA
+       new `{ return NULL; `}
+       fun foo do print "a"
+end
+
+extern class NativeB
+       super NativeA
+       new `{ return NULL; `}
+       redef fun foo do print "b"
+end
+
+extern class NativeC
+       super NativeA
+       new `{ return NULL; `}
+       redef fun foo do print "c"
+end
+
+class A
+       type NATIVE: NativeA
+       var native: NATIVE
+end
+
+class B
+       super A
+       redef type NATIVE: NativeB
+end
+
+class C
+       super A
+       redef type NATIVE: NativeC
+end
+
+for a in [new A(new NativeA), new B(new NativeB), new C(new NativeC)] do
+       a.native.foo
+end
+
+var a = new A(new NativeA)
+var b = new A(new NativeB)
+var c = new B(new NativeB)
+#alt1# var d = new B(new NativeA)
+a.native = new NativeB
+#alt2# c.native = new NativeA