[Pharo] Personal fitness tracker web app.
Update tests.
Perfection can kill movement!
Changed files
src/MyFitnessTracker-Tests/MFTExerciseTest.class.st
@@ -1,15 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTExerciseTest',
3
Removed:
#superclass : 'TestCase',
4
Removed:
#category : 'MyFitnessTracker-Tests-Model',
5
Removed:
#package : 'MyFitnessTracker-Tests',
6
Removed:
#tag : 'Model'
7
Removed:
}
8
Removed:
9
Removed:
{ #category : 'tests' }
10
Removed:
MFTExerciseTest >> testExerciseIsCreatedCorrectly [
11
Removed:
12
Removed:
| exercise |
13
Removed:
exercise := MFTExercise new englishName: 'bicep curl'.
14
Removed:
self assert: exercise englishName equals: 'bicep curl'
15
Removed:
]
src/MyFitnessTracker-Tests/MFTRepSchemeTest.class.st
@@ -0,0 +1,63 @@
1
Added:
"
2
Added:
A MFTRepSchemeTest is a test class for testing the behavior of MFTRepScheme
3
Added:
"
4
Added:
Class {
5
Added:
#name : 'MFTRepSchemeTest',
6
Added:
#superclass : 'TestCase',
7
Added:
#category : 'MyFitnessTracker-Tests',
8
Added:
#package : 'MyFitnessTracker-Tests'
9
Added:
}
10
Added:
11
Added:
{ #category : 'tests' }
12
Added:
MFTRepSchemeTest >> testIncludesReps [
13
Added:
14
Added:
| scheme |
15
Added:
scheme := MFTRepScheme from: 6 to: 10.
16
Added:
self
17
Added:
assert: (scheme includes: 6);
18
Added:
assert: (scheme includes: 10);
19
Added:
deny: (scheme includes: 5);
20
Added:
deny: (scheme includes: 11)
21
Added:
]
22
Added:
23
Added:
{ #category : 'tests' }
24
Added:
MFTRepSchemeTest >> testRepSchemeProgressionFor [
25
Added:
26
Added:
| scheme |
27
Added:
scheme := MFTRepScheme from: 6 to: 10.
28
Added:
self
29
Added:
assert: (scheme progressionFor: 11) equals: #increaseLoad;
30
Added:
assert: (scheme progressionFor: 5) equals: #decreaseLoad;
31
Added:
assert: (scheme progressionFor: 6) equals: #keepLoad;
32
Added:
assert: (scheme progressionFor: 10) equals: #keepLoad
33
Added:
]
34
Added:
35
Added:
{ #category : 'tests' }
36
Added:
MFTRepSchemeTest >> testSetLogIsLoggedAndVolume [
37
Added:
38
Added:
| log |
39
Added:
log := MFTSetLog reps: 8 load: 100.
40
Added:
41
Added:
self assert: log isLogged.
42
Added:
self assert: log volume equals: 800.
43
Added:
44
Added:
log reps: nil.
45
Added:
self deny: log isLogged
46
Added:
]
47
Added:
48
Added:
{ #category : 'tests' }
49
Added:
MFTRepSchemeTest >> testSetPrescriptionEqualityAndHash [
50
Added:
51
Added:
| exercise scheme a b c |
52
Added:
exercise := MFTExercise dumbbellFly.
53
Added:
scheme := MFTRepScheme from: 6 to: 10.
54
Added:
55
Added:
a := MFTSetPrescription exercise: exercise repScheme: scheme.
56
Added:
b := MFTSetPrescription exercise: exercise repScheme: scheme.
57
Added:
c := MFTSetPrescription exercise: MFTExercise barbellSquat repScheme: scheme.
58
Added:
59
Added:
self assert: a equals: b.
60
Added:
self assert: a hash equals: b hash.
61
Added:
62
Added:
self deny: a equals: c
63
Added:
]
src/MyFitnessTracker-Tests/MFTWeightTest.class.st
@@ -1,29 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTWeightTest',
3
Removed:
#superclass : 'TestCase',
4
Removed:
#category : 'MyFitnessTracker-Tests-Model',
5
Removed:
#package : 'MyFitnessTracker-Tests',
6
Removed:
#tag : 'Model'
7
Removed:
}
8
Removed:
9
Removed:
{ #category : 'tests' }
10
Removed:
MFTWeightTest >> testWeightIsCreatedCorrectlyBirthday [
11
Removed:
12
Removed:
| weight |
13
Removed:
weight := MFTWeight
14
Removed:
kilograms: 90.5
15
Removed:
date: (Date readFrom: '14/06/1996' pattern: 'dd/mm/yyyy').
16
Removed:
self
17
Removed:
assert: weight date
18
Removed:
equals: (Date readFrom: '14/06/1996' pattern: 'dd/mm/yyyy').
19
Removed:
self assert: weight kilograms equals: 90.5
20
Removed:
]
21
Removed:
22
Removed:
{ #category : 'tests' }
23
Removed:
MFTWeightTest >> testWeightIsCreatedCorrectlyToday [
24
Removed:
25
Removed:
| weight |
26
Removed:
weight := MFTWeight kilograms: 90.0 date: Date today.
27
Removed:
self assert: weight date equals: Date today.
28
Removed:
self assert: weight kilograms equals: 90.0
29
Removed:
]
src/MyFitnessTracker-Tests/MFTWorkoutTest.class.st
@@ -1,15 +0,0 @@
1
Removed:
Class {
2
Removed:
#name : 'MFTWorkoutTest',
3
Removed:
#superclass : 'TestCase',
4
Removed:
#category : 'MyFitnessTracker-Tests-Model',
5
Removed:
#package : 'MyFitnessTracker-Tests',
6
Removed:
#tag : 'Model'
7
Removed:
}
8
Removed:
9
Removed:
{ #category : 'tests' }
10
Removed:
MFTWorkoutTest >> testWorkoutIsCreatedCorrectly [
11
Removed:
12
Removed:
| workout |
13
Removed:
workout := MFTWorkout new.
14
Removed:
self assert: workout planned equals: DateAndTime today
15
Removed:
]