1 " 2 A MFTSetLogTest is a test class for testing the behavior of MFTSetLog 3 " 4 Class { 5 #name : 'MFTSetLogTest', 6 #superclass : 'TestCase', 7 #category : 'MyFitnessTracker-Core-Tests-Logging', 8 #package : 'MyFitnessTracker-Core-Tests', 9 #tag : 'Logging' 10 } 11 12 { #category : 'tests' } 13 MFTSetLogTest >> testFailureAchievedCanBeCleared [ 14 15 | log | 16 log := MFTSetLog new. 17 log failureAchieved: true. 18 log failureAchieved: false. 19 20 self deny: log failureAchieved 21 ] 22 23 { #category : 'tests' } 24 MFTSetLogTest >> testFailureAchievedCanBeRecorded [ 25 26 | log | 27 log := MFTSetLog new. 28 log failureAchieved: true. 29 30 self assert: log failureAchieved 31 ] 32 33 { #category : 'tests' } 34 MFTSetLogTest >> testNewSetLogIsInitiallyUnlogged [ 35 36 | log | 37 log := MFTSetLog new. 38 39 self deny: log isLogged. 40 self assert: log canonicalName equals: 'unlogged set' 41 ] 42 43 { #category : 'tests' } 44 MFTSetLogTest >> testOnlyLoadIsNotEnoughToBeLogged [ 45 46 | log | 47 log := MFTSetLog new. 48 log load: 100. 49 50 self deny: log isLogged. 51 self assert: log canonicalName equals: 'unlogged set' 52 ] 53 54 { #category : 'tests' } 55 MFTSetLogTest >> testOnlyRepsIsNotEnoughToBeLogged [ 56 57 | log | 58 log := MFTSetLog new. 59 log reps: 10. 60 61 self deny: log isLogged. 62 self assert: log canonicalName equals: 'unlogged set' 63 ] 64 65 { #category : 'tests' } 66 MFTSetLogTest >> testRepsAndLoadCanBeRecorded [ 67 68 | log | 69 log := MFTSetLog new. 70 log reps: 8. 71 log load: 100. 72 73 self assert: log reps equals: 8. 74 self assert: log load equals: 100. 75 self assert: log isLogged 76 ] 77 78 { #category : 'tests' } 79 MFTSetLogTest >> testRepsLoadConstructorCreatesLoggedSet [ 80 81 | log | 82 log := MFTSetLog reps: 6 load: 120. 83 84 self assert: log reps equals: 6. 85 self assert: log load equals: 120. 86 self assert: log isLogged 87 ] 88 89 { #category : 'tests' } 90 MFTSetLogTest >> testVolumeIsRepsMultipliedByLoad [ 91 92 | log | 93 log := MFTSetLog reps: 7 load: 85. 94 95 self assert: log volume equals: 595 96 ] 97 98 { #category : 'tests' } 99 MFTSetLogTest >> testVolumeSupportsDecimalLoads [ 100 101 | log | 102 log := MFTSetLog reps: 10 load: 42.5. 103 104 self assert: log volume equals: 425.0 105 ] 106