[Pharo] Personal fitness tracker web app.
Update workout logbook canonicalName and add helper methods to workout log object.
Changed files
src/MyFitnessTracker-Core-Tests/MFTWorkoutLogBookTest.class.st
@@ -10,15 +10,6 @@
10
10
}
11
11
12
12
{ #category : 'tests' }
13
Removed:
MFTWorkoutLogBookTest >> testCanonicalNameReturnsWorkoutLogsCollection [
14
Removed:
15
Removed:
| logBook |
16
Removed:
logBook := MFTWorkoutLogBook new.
17
Removed:
18
Removed:
self assert: logBook canonicalName identicalTo: logBook workoutLogs
19
Removed:
]
20
Removed:
21
Removed:
{ #category : 'tests' }
22
13
MFTWorkoutLogBookTest >> testDurationSinceLastWorkoutIsNilWhenLogBookIsEmpty [
23
14
24
15
| logBook |
src/MyFitnessTracker-Core/MFTWorkoutLog.class.st
@@ -67,11 +67,27 @@
67
67
]
68
68
69
69
{ #category : 'accessing' }
70
Added:
MFTWorkoutLog >> finishDate: aDate [
71
Added:
72
Added:
| time |
73
Added:
time := finish ifNotNil: [ finish asTime ] ifNil: [ start asTime ].
74
Added:
finish := DateAndTime date: aDate time: time
75
Added:
]
76
Added:
77
Added:
{ #category : 'accessing' }
70
78
MFTWorkoutLog >> finishNow [
71
79
72
80
finish := DateAndTime now
73
81
]
74
82
83
Added:
{ #category : 'accessing' }
84
Added:
MFTWorkoutLog >> finishTime: aTime [
85
Added:
86
Added:
| date |
87
Added:
date := finish ifNotNil: [ finish asDate ] ifNil: [ start asDate ].
88
Added:
finish := DateAndTime date: date time: aTime
89
Added:
]
90
Added:
75
91
{ #category : 'initialization' }
76
92
MFTWorkoutLog >> initialize [
77
93
@@ -147,7 +163,23 @@
147
163
]
148
164
149
165
{ #category : 'accessing' }
166
Added:
MFTWorkoutLog >> startDate: aDate [
167
Added:
168
Added:
| time |
169
Added:
time := start ifNotNil: [ start asTime ] ifNil: [ Time now ].
170
Added:
start := DateAndTime date: aDate time: time
171
Added:
]
172
Added:
173
Added:
{ #category : 'accessing' }
150
174
MFTWorkoutLog >> startNow [
151
175
152
176
start := DateAndTime now
177
Added:
]
178
Added:
179
Added:
{ #category : 'accessing' }
180
Added:
MFTWorkoutLog >> startTime: aTime [
181
Added:
182
Added:
| date |
183
Added:
date := start ifNotNil: [ start asDate ] ifNil: [ Date today ].
184
Added:
start := DateAndTime date: date time: aTime
153
185
]
src/MyFitnessTracker-Core/MFTWorkoutLogBook.class.st
@@ -15,7 +15,7 @@
15
15
{ #category : 'initialization' }
16
16
MFTWorkoutLogBook >> canonicalName [
17
17
18
Removed:
^ workoutLogs
18
Added:
^ workoutLogs size asString , ' workouts logged'
19
19
]
20
20
21
21
{ #category : 'adding' }