test/MCDictionaryRepositoryTest.st
author HG Automerge
Thu, 24 Nov 2016 21:56:31 +0000
branchjv
changeset 1015 7b6393ea3d52
parent 823 5cd3a89d5921
child 1121 c5661215109c
permissions -rw-r--r--
Merge
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
27
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello/test' }"
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCRepositoryTest subclass:#MCDictionaryRepositoryTest
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'dict'
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
823
5cd3a89d5921 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 27
diff changeset
     7
	category:'SCM-Monticello-Tests'
27
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCDictionaryRepositoryTest methodsFor:'as yet unclassified'!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
addVersion: aVersion
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	dict at: aVersion info put: aVersion
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
deleteNode: aNode
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	dict removeKey: aNode
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
dictionary
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
	^ dict ifNil: [dict _ Dictionary new]
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
setUp
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
	repository _  MCDictionaryRepository new dictionary: self dictionary
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
! !
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
!MCDictionaryRepositoryTest class methodsFor:'documentation'!
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
version
823
5cd3a89d5921 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 27
diff changeset
    32
    ^ '$Header: /cvs/stx/stx/goodies/monticello/test/MCDictionaryRepositoryTest.st,v 1.2 2013-05-29 00:02:26 vrany Exp $'
27
baf2c6011c7d initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
! !
823
5cd3a89d5921 Tests moved to category SCM-Monticello-Tests
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 27
diff changeset
    34