Merge: doc: fixed some typos and other misc. corrections

[nit.git] / tests / test_meta.nit

diff --git a/tests/test_meta.nit b/tests/test_meta.nit
index b649f99..936982e 100644 (file)
--- a/tests/test_meta.nit
+++ b/tests/test_meta.nit
@@ -1,7 +1,5 @@
 # This file is part of NIT ( http://www.nitlanguage.org ).
 #
-# Copyright 2004-2008 Jean Privat <jean@pryen.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
@@ -14,74 +12,45 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
+import meta
 
-class A
-   fun foo
-      do
-          printn("A")
-      end
-   fun blup(a: Int)
-      do
-         blup2(a, 1)
-      end
-   fun blup2(a: Int, b : Int)
-      do
-         printn(a+b)
-      end
-   fun blop(a: Int, b: Int...)
-      do
-         var i = b.iterator
-         while i.is_ok do
-            printn(a+i.item)
-            i.next
-         end
-      end
+class XObject
+       redef type CLASS: XClass[SELF]
+       redef fun class_factory(name) do return new XClass[SELF](name)
 end
 
-class B
-       super A
-   redef fun foo
-      do
-          printn("B")
-      end
+class XClass[E: XObject]
+       super Class[E]
 end
 
-class C
-       super A
-   fun foo2
-      do
-          printn("C")
-      end
+class YObject
+       redef type CLASS: YClass[SELF]
+       redef fun class_factory(name) do return new YClass[SELF](name)
 end
 
-class D
-       super B
-       super C
-   redef fun foo
-      do
-          printn("D")
-      end
-
-   init do end
+class YClass[E: YObject]
+       super Class[E]
+       super YObject # Yeah, a meta-loop!
 end
 
-fun test1
-do
-       var b: B
-       b = new D
-       b.foo
-       b.blup2(1,2)
-       b.blup(3)
-end
+var s = "hello"
+print s.class_name
+print s.get_class
+print s.get_class.get_class
+print s.get_class.get_class.get_class
 
-fun test2
-do
-       var b = new D
-       var a = [1,2,3]
-       var u: Object
-       printn("=",5)
-       b.blop(5,2,3)
-end
+print ""
+
+var x = new XObject
+print x.class_name
+print x.get_class
+print x.get_class.get_class
+print x.get_class.get_class.get_class
+
+print ""
 
-test1
-test2
+var y = new YObject
+print y.class_name
+print y.get_class
+print y.get_class.get_class
+print y.get_class.get_class.get_class