hg/stx-goodies-ring: tests/RGMetatraitDefinitionTest.st@90637b709fa9 (annotated)

0 43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/ring/tests' }"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	TestCase subclass:#RGMetatraitDefinitionTest
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Ring-Core-Kernel-Tests'
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	RGMetatraitDefinitionTest comment:'SUnit tests for Ring classtrait definitions'
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!RGMetatraitDefinitionTest methodsFor:'testing'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	testAsClassTraitfinition
2 e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	18	"/ \| rgCTrait cTrait \|
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	19	"/ cTrait := TClass classTrait.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	20	"/ rgCTrait := cTrait asRingDefinition.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	21	"/ self assert: rgCTrait isRingObject.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	22	"/ self assert: rgCTrait isTrait.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	23	"/ self assert: rgCTrait name == #'TClass classTrait'.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	24	"/ self assert: rgCTrait category == cTrait category.
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	25	"/ self assert: rgCTrait theMetaClass == rgCTrait
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	26
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	27	"Modified: / 29-08-2015 / 09:46:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
0 43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 02 Sep 2015 09:18:30 +0100
changeset 4	90637b709fa9
parent 2	e439b82dda7d
child 5	5cc2caa88b23
permissions	-rw-r--r--