test: add new test base_virtual_type_check.nit
authorJean Privat <jean@pryen.org>
Fri, 25 Nov 2011 14:19:02 +0000 (09:19 -0500)
committerJean Privat <jean@pryen.org>
Fri, 25 Nov 2011 16:02:05 +0000 (11:02 -0500)
This test verify explicit and implicit type checks on virtual types.

Signed-off-by: Jean Privat <jean@pryen.org>

12 files changed:
tests/base_virtual_type_check.nit [new file with mode: 0644]
tests/sav/base_virtual_type_check.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt1.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt10.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt2.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt3.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt4.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt5.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt6.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt7.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt8.sav [new file with mode: 0644]
tests/sav/base_virtual_type_check_alt9.sav [new file with mode: 0644]

diff --git a/tests/base_virtual_type_check.nit b/tests/base_virtual_type_check.nit
new file mode 100644 (file)
index 0000000..37a682a
--- /dev/null
@@ -0,0 +1,90 @@
+# This file is part of NIT ( http://www.nitlanguage.org ).
+#
+# 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.
+
+import kernel
+class A
+       type T: K
+       type U: T
+       fun check(o: Object)
+       do
+               o.output
+               '<'.output
+               'T'.output
+               (o isa T).output
+               o.output
+               '<'.output
+               'U'.output
+               (o isa U).output
+       end
+       fun check2(o: T)
+       do
+               o.output
+               '<'.output
+               'T'.output
+               '\n'.output
+       end
+       fun check3(o: U)
+       do
+               o.output
+               '<'.output
+               'U'.output
+               '\n'.output
+       end
+end
+class B
+       super A
+       redef type T: L
+end
+class J
+       redef fun output do 'J'.output
+end
+class K
+       super J
+       redef fun output do 'K'.output
+end
+class L
+       super K
+       redef fun output do 'L'.output
+end
+
+var a = new A
+a.check(new J)
+a.check(new K)
+a.check(new L)
+#alt1#a.check2(new J) # Static error
+a.check2(new K)
+a.check2(new L)
+#alt2#a.check3(new J) # Static error
+a.check3(new K)
+a.check3(new L)
+var b = new B
+b.check(new J)
+b.check(new K)
+b.check(new L)
+#alt3#b.check2(new J) # Static error
+#alt4#b.check2(new K) # Static error
+b.check2(new L)
+#alt5#b.check3(new J) # Static error
+#alt6#b.check3(new K) # Static error
+b.check3(new L)
+var ab: A = new B
+ab.check(new J)
+ab.check(new K)
+ab.check(new L)
+#alt7#ab.check2(new J) # Static error
+#alt8#ab.check2(new K) # Dynamic error
+ab.check2(new L)
+#alt9#ab.check3(new J) # Static error
+#alt10#ab.check3(new K) # Dynamic error
+ab.check3(new L)
diff --git a/tests/sav/base_virtual_type_check.sav b/tests/sav/base_virtual_type_check.sav
new file mode 100644 (file)
index 0000000..43474d8
--- /dev/null
@@ -0,0 +1,26 @@
+J<Tfalse
+J<Ufalse
+K<Ttrue
+K<Utrue
+L<Ttrue
+L<Utrue
+K<T
+L<T
+K<U
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+L<T
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+L<T
+L<U
diff --git a/tests/sav/base_virtual_type_check_alt1.sav b/tests/sav/base_virtual_type_check_alt1.sav
new file mode 100644 (file)
index 0000000..819b665
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt1.nit:65,10--14: Type error: expected K, got J
diff --git a/tests/sav/base_virtual_type_check_alt10.sav b/tests/sav/base_virtual_type_check_alt10.sav
new file mode 100644 (file)
index 0000000..7153c5b
--- /dev/null
@@ -0,0 +1,26 @@
+J<Tfalse
+J<Ufalse
+K<Ttrue
+K<Utrue
+L<Ttrue
+L<Utrue
+K<T
+L<T
+K<U
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+L<T
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+L<T
+Cast failed (alt/base_virtual_type_check_alt10.nit)
diff --git a/tests/sav/base_virtual_type_check_alt2.sav b/tests/sav/base_virtual_type_check_alt2.sav
new file mode 100644 (file)
index 0000000..242e277
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt2.nit:68,10--14: Type error: expected K, got J
diff --git a/tests/sav/base_virtual_type_check_alt3.sav b/tests/sav/base_virtual_type_check_alt3.sav
new file mode 100644 (file)
index 0000000..7706749
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt3.nit:75,10--14: Type error: expected L, got J
diff --git a/tests/sav/base_virtual_type_check_alt4.sav b/tests/sav/base_virtual_type_check_alt4.sav
new file mode 100644 (file)
index 0000000..468367c
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt4.nit:76,10--14: Type error: expected L, got K
diff --git a/tests/sav/base_virtual_type_check_alt5.sav b/tests/sav/base_virtual_type_check_alt5.sav
new file mode 100644 (file)
index 0000000..1b6e33e
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt5.nit:78,10--14: Type error: expected L, got J
diff --git a/tests/sav/base_virtual_type_check_alt6.sav b/tests/sav/base_virtual_type_check_alt6.sav
new file mode 100644 (file)
index 0000000..580dda0
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt6.nit:79,10--14: Type error: expected L, got K
diff --git a/tests/sav/base_virtual_type_check_alt7.sav b/tests/sav/base_virtual_type_check_alt7.sav
new file mode 100644 (file)
index 0000000..017e247
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt7.nit:85,11--15: Type error: expected K, got J
diff --git a/tests/sav/base_virtual_type_check_alt8.sav b/tests/sav/base_virtual_type_check_alt8.sav
new file mode 100644 (file)
index 0000000..bad2b10
--- /dev/null
@@ -0,0 +1,25 @@
+J<Tfalse
+J<Ufalse
+K<Ttrue
+K<Utrue
+L<Ttrue
+L<Utrue
+K<T
+L<T
+K<U
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+L<T
+L<U
+J<Tfalse
+J<Ufalse
+K<Tfalse
+K<Ufalse
+L<Ttrue
+L<Utrue
+Cast failed (alt/base_virtual_type_check_alt8.nit)
diff --git a/tests/sav/base_virtual_type_check_alt9.sav b/tests/sav/base_virtual_type_check_alt9.sav
new file mode 100644 (file)
index 0000000..ac24c00
--- /dev/null
@@ -0,0 +1 @@
+alt/base_virtual_type_check_alt9.nit:88,11--15: Type error: expected K, got J