--- 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>"
-! !
-