hg/stx-goodies-ring: tests/RGPackageTest.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:#RGPackageTest
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-Containers-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	RGPackageTest comment:'SUnit tests for packages'
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
2 e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	15
0 43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	!RGPackageTest methodsFor:'testing'!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	testAddingClass
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	\| newPackage newClass \|
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	newPackage:= RGPackage named: #'Collections-Sequenceable'.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	newClass:= RGClassDefinition named: #OrderedCollection.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	newPackage addClass: newClass.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	self assert: (newPackage hasClasses).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	self assert: (newClass package == newPackage).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	self assert: ((newPackage classNamed: #OrderedCollection) == newClass)
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
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	testAddingPackage
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	\| newPackage childPackage \|
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	newPackage:= RGPackage named: #'Collections'.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34	newPackage addPackageNamed: #'Collections-Sequenceable'.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	self assert: (newPackage includesPackageNamed: #'Collections-Sequenceable').
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	self assert: (newPackage packages size = 1).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	childPackage:= newPackage packageNamed: #'Collections-Sequenceable'.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	self assert: (childPackage parent = newPackage parent).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	41	self assert: (childPackage package = newPackage).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42	!
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	43
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	44	testNewPackage
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	45	\| newPackage \|
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	newPackage:= RGPackage named: 'Collections-Sequenceable'.
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	48
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	49	self assert: (newPackage isPackage).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	50	self assert: (newPackage name = 'Collections-Sequenceable').
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	51	self assert: (newPackage classes isEmpty).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	self assert: (newPackage traits isEmpty).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	53	self assert: (newPackage packages isEmpty).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	54	self assert: (newPackage package isNil).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	55	self assert: (newPackage parent == Smalltalk globals).
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	56	! !
43cb9f3e345e Initial port form Pharo Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	57
2 e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	58	!RGPackageTest class methodsFor:'documentation'!
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	59
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	60	version_HG
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	61
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	62	^ '$Changeset: <not expanded> $'
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	63	! !
e439b82dda7d Fixed some tests. Not all pass, though, Jan Vrany <jan.vrany@fit.cvut.cz> parents: 0 diff changeset	64

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