MCMockClassA.st
author mawalch
Mon, 08 Aug 2016 20:13:50 +0200
changeset 1010 bac4a6f2690e
parent 646 4f2bde0b5332
permissions -rw-r--r--
#OTHER by mawalch Fix ridiculously propagated typo.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/monticello' }"
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
MCMock subclass:#MCMockClassA
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	instanceVariableNames:'ivar'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	classVariableNames:'CVar'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
	poolDictionaries:''
646
4f2bde0b5332 category change
Claus Gittinger <cg@exept.de>
parents: 375
diff changeset
     7
	category:'SCM-Monticello-Mocks'
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    10
MCMockClassA comment:'This is a mock class. The Monticello tests manipulated it to simulate a developer modifying code in the image.
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    11
'
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
!MCMockClassA class methodsFor:'as yet unclassified'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
cVar
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	^ CVar
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
initialize
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    22
	CVar := #initialized
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
one
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
	^ 1
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
touchCVar
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    31
	CVar := #touched
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
!MCMockClassA methodsFor:'as yet classified'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
d
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
	^ 'd'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
!MCMockClassA methodsFor:'boolean'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
falsehood
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
	^ false
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
moreTruth
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
	^ true
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
truth
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
	^ true
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    55
!MCMockClassA methodsFor:'drag''n''drop'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    56
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    57
q
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    58
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    59
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    60
!MCMockClassA methodsFor:'numeric'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    62
a 
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
	^ 'a2'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    64
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    66
b
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    67
	^ 'b1'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    68
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    69
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    70
c
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    71
	^ 'c1'
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    72
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    73
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    74
one
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    75
	^ 1
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    76
!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    77
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    78
two
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    79
	^ 2
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    80
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    81
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    82
!MCMockClassA class methodsFor:'documentation'!
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    83
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    84
version
646
4f2bde0b5332 category change
Claus Gittinger <cg@exept.de>
parents: 375
diff changeset
    85
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockClassA.st,v 1.3 2012-09-11 21:23:46 cg Exp $'
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    86
!
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    87
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    88
version_CVS
646
4f2bde0b5332 category change
Claus Gittinger <cg@exept.de>
parents: 375
diff changeset
    89
    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCMockClassA.st,v 1.3 2012-09-11 21:23:46 cg Exp $'
375
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    90
!
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    91
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    92
version_SVN
17d3b50084b1 initial checkin
Claus Gittinger <cg@exept.de>
parents: 92
diff changeset
    93
    ^ '§Id: MCMockClassA.st 17 2010-10-13 12:07:52Z vranyj1 §'
92
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    94
! !
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    95
a8d49521898f initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    96
MCMockClassA initialize!