removed the containing subdir

kernel/test-013.moo

@@ -0,0 +1,103 @@
+
+#include "Moo.moo".
+
+////////////////////////////////////////////////////////////////#
+// MAIN
+////////////////////////////////////////////////////////////////#
+
+// TODO: use #define to define a class or use #class to define a class.
+//       use #extend to extend a class
+//       using #class for both feels confusing.
+
+extend Apex
+{
+
+}
+
+extend SmallInteger
+{
+	method getTrue: anInteger
+	{
+		^anInteger + 9999.
+	}
+
+	method inc
+	{
+		^self + 1.
+	}
+}
+
+class TestObject(Object)
+{
+	var(#class) Q, R.
+	var(#classinst) a1, a2.
+
+	method test999
+	{
+		^self.Q
+	}
+}
+
+class B.TestObject(Object)
+{
+	var(#class) Q, R.
+	var(#classinst) a1, a2.
+
+	method test000
+	{
+		^self.Q
+	}
+}
+
+pooldic ABC 
+{
+	KKK := 20
+}
+
+
+class MyObject(TestObject)
+{
+	method(#class) main
+	{
+		| v1 v2 |
+		System logNl: "START OF MAIN".
+		v2 := [ 
+			[ v1 := [ System logNl: "xxxxxxxxxxxxxxxxc". Exception signal: "qqqqq" ] value.
+			"OK OK OK" dump. ] ensure: [ System logNl: "ENSURE ENSURE ENSURE"].
+		]
+		on: Exception
+		do: [:ex |
+			System logNl: ("Exception: " & ex messageText).
+			ex return: 10.
+			//ex retry.
+			System logNl: "--- THIS MUST NOT BE PRINTED ---".
+		].
+
+
+		System logNl: "---------------------".
+		System log: "v1=>"; log: v1; log: " v2=>"; logNl: v2.
+
+		v1 := [
+			[    
+				[ 
+					//1 to: 20000 by: 1 do: [:i | System logNl: i asString. "System sleepForSecs: 1." ]  
+					Processor activeProcess terminate.
+				] ensure: [ System logNl: "<<<PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP>>>" ].
+
+			] ensure: [ System logNl: "<<--------------------->>" ].
+		] newProcess.
+
+		System logNl: "RESUMING v1".
+		v1 resume.
+		System sleepForSecs: 1.
+		v1 terminate.
+
+ 		//[    
+		//	[ Processor activeProcess terminate. ] ensure: [System logNl: "<<<PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP>>>" ].
+		//] ensure: [ System logNl: "<<--------------------->>" ].
+
+		System logNl: "\0\0\0END OF MAIN\0AB\0\0\0C\0\0\0".
+	}
+
+}
+