"
    Copyright (C) 2015-now Jan Vrany

    This code is not an open-source (yet). You may use this code
    for your own experiments and projects, given that:

    * all modification to the code will be sent to the
      original author for inclusion in future releases
    * this is not used in any commercial software

    This license is provisional and may (will) change in
    a future.
"
"{ Package: 'jv:tea/compiler' }"

"{ NameSpace: Smalltalk }"

TestCase subclass:#TMethodDefinitionTests
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Languages-Tea-Compiler-Model-Tests'
!

!TMethodDefinitionTests class methodsFor:'documentation'!

copyright
"
    Copyright (C) 2015-now Jan Vrany

    This code is not an open-source (yet). You may use this code
    for your own experiments and projects, given that:

    * all modification to the code will be sent to the
      original author for inclusion in future releases
    * this is not used in any commercial software

    This license is provisional and may (will) change in
    a future.
"
! !

!TMethodDefinitionTests methodsFor:'tests'!

test_01
    | class method |

    class := TClassDefinition newClass.
    class name: 'iptr'.

    method := TMethodDefinition class: class theMetaclass.
    method source: 'one <^ iptr> ^ 1'.

    self assert: method selector == #one.

    "Created: / 29-08-2015 / 11:39:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !