compiler/TCompilerTests.st
changeset 9 569bf5707c7e
parent 8 eec72263ed75
child 10 2b9beeac547e
--- a/compiler/TCompilerTests.st	Mon Sep 14 11:19:10 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,94 +0,0 @@
-"{ Package: 'jv:tea/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-TestCase subclass:#TCompilerTests
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Languages-Tea-Compiler-Tests'
-!
-
-!TCompilerTests methodsFor:'tests'!
-
-test_01
-    | class method compiler |
-
-    class := TClassDefinition newClass.
-    class name: 'tSmallInteger'.
-
-    method := TMethodDefinition class: class theMetaclass.
-    method source: 'one <^ tSmallInteger> ^ 1'.
-    class addMethod: method.
-
-    compiler := TCompiler new.
-    compiler compile: class in: nil.
-    self halt.
-    "
-    compiler context module
-    "
-
-    "Created: / 29-08-2015 / 21:15:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 01-09-2015 / 21:55:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-test_02
-    | class method compiler |
-
-    class := TClassDefinition newClass.
-    class name: 'tSmallInteger'.
-
-    method := TMethodDefinition class: class.
-    method source: '+ another <tSmallInteger> <^ tSmallInteger> 
-        %[:asm | 
-            asm ret: (asm add: self _: another)
-        %].
-        ^ self + another
-    '.
-    class addMethod: method.
-
-    compiler := TCompiler new.
-    compiler compile: class in: nil.
-    self halt.
-    "
-    compiler context module
-    "
-
-    "Created: / 02-09-2015 / 07:00:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-test_three_plus_four
-    | environment unit compiler|
-
-    environment := TNamespaceDefinition new.
-    unit := TSourceReader read:'
-nil subclass: #tSmallInteger
-    category: ''tKernel''
-!!
-!!tSmallInteger methodsFor:''arithmetic''!!
-+ another <tSmallInteger> <^ tSmallInteger> 
-    %[:asm | 
-        asm ret: (asm add: self _: another)
-    %].
-    "Following code is actually used only in hosted environment"
-    ^ self + another
-!! !!
-
-!!tSmallInteger methodsFor:''test''!!
-threePlusFour <^ tSmallInteger> 
-        ^ 3 + 4
-
-!! !!
-    '.
-
-    compiler := TCompiler new.
-    compiler compile: unit in: environment.
-    self halt.
-    "
-    compiler context module
-    "
-
-    "Created: / 02-09-2015 / 10:25:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-09-2015 / 11:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-