"{ 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: 'iptr'.

    method := TMethodDefinition class: class theMetaclass.
    method source: 'one <^ iptr> ^ 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 (comment): / 31-08-2015 / 12:26:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !