MCMockDependentItem.st
author Claus Gittinger <cg@exept.de>
Wed, 22 Nov 2006 14:19:32 +0100
changeset 101 39c56c7d62d5
child 149 6c42819bd3e3
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
101
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCMock subclass:#MCMockDependentItem
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'name provides requires'
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:''
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
	category:'Monticello-Mocks'
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
!MCMockDependentItem methodsFor:'as yet unclassified'!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
<= other
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
	^ self name <= other name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
	^ name
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
name: aString
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
	name _ aString
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
provides: anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
	provides _ anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
provisions
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
	^ provides ifNil: [#()]
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
requirements
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
	^ requires ifNil: [#()]
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
requires: anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
	requires _ anArray
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
! !
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
!MCMockDependentItem class methodsFor:'documentation'!
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
version
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockDependentItem.st,v 1.1 2006-11-22 13:19:32 cg Exp $'
39c56c7d62d5 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
! !