"
A MFTSetLogTest is a test class for testing the behavior of MFTSetLog
"
Class {
	#name : 'MFTSetLogTest',
	#superclass : 'TestCase',
	#category : 'MyFitnessTracker-Core-Tests-Logging',
	#package : 'MyFitnessTracker-Core-Tests',
	#tag : 'Logging'
}

{ #category : 'tests' }
MFTSetLogTest >> testFailureAchievedCanBeCleared [

	| log |
	log := MFTSetLog new.
	log failureAchieved: true.
	log failureAchieved: false.

	self deny: log failureAchieved
]

{ #category : 'tests' }
MFTSetLogTest >> testFailureAchievedCanBeRecorded [

	| log |
	log := MFTSetLog new.
	log failureAchieved: true.

	self assert: log failureAchieved
]

{ #category : 'tests' }
MFTSetLogTest >> testNewSetLogIsInitiallyUnlogged [

	| log |
	log := MFTSetLog new.

	self deny: log isLogged.
	self assert: log canonicalName equals: 'unlogged set'
]

{ #category : 'tests' }
MFTSetLogTest >> testOnlyLoadIsNotEnoughToBeLogged [

	| log |
	log := MFTSetLog new.
	log load: 100.

	self deny: log isLogged.
	self assert: log canonicalName equals: 'unlogged set'
]

{ #category : 'tests' }
MFTSetLogTest >> testOnlyRepsIsNotEnoughToBeLogged [

	| log |
	log := MFTSetLog new.
	log reps: 10.

	self deny: log isLogged.
	self assert: log canonicalName equals: 'unlogged set'
]

{ #category : 'tests' }
MFTSetLogTest >> testRepsAndLoadCanBeRecorded [

	| log |
	log := MFTSetLog new.
	log reps: 8.
	log load: 100.

	self assert: log reps equals: 8.
	self assert: log load equals: 100.
	self assert: log isLogged
]

{ #category : 'tests' }
MFTSetLogTest >> testRepsLoadConstructorCreatesLoggedSet [

	| log |
	log := MFTSetLog reps: 6 load: 120.

	self assert: log reps equals: 6.
	self assert: log load equals: 120.
	self assert: log isLogged
]

{ #category : 'tests' }
MFTSetLogTest >> testVolumeIsRepsMultipliedByLoad [

	| log |
	log := MFTSetLog reps: 7 load: 85.

	self assert: log volume equals: 595
]

{ #category : 'tests' }
MFTSetLogTest >> testVolumeSupportsDecimalLoads [

	| log |
	log := MFTSetLog reps: 10 load: 42.5.

	self assert: log volume equals: 425.0
]