" A MFTWorkoutPrescriptionTest is a test class for testing the behavior of MFTWorkoutPrescription " Class { #name : 'MFTWorkoutPrescriptionTest', #superclass : 'TestCase', #category : 'MyFitnessTracker-Core-Tests-Prescription', #package : 'MyFitnessTracker-Core-Tests', #tag : 'Prescription' } { #category : 'tests' } MFTWorkoutPrescriptionTest >> newSetPrescription [ "Use a real MFTSetPrescription instance without invoking the currently incomplete class-side constructors." ^ MFTSetPrescription basicNew ] { #category : 'tests' } MFTWorkoutPrescriptionTest >> testCanonicalNameAnswersTitle [ | workout | workout := MFTWorkoutPrescription new. workout title: 'Chest and Back'. self assert: workout canonicalName equals: 'Chest and Back' ] { #category : 'tests' } MFTWorkoutPrescriptionTest >> testInitializeCreatesEmptySetGroups [ | workout | workout := MFTWorkoutPrescription new. self assert: workout setGroups isEmpty. self assert: workout sets isEmpty ] { #category : 'tests' } MFTWorkoutPrescriptionTest >> testSetGroupsCanBeReplaced [ | workout set group groups | workout := MFTWorkoutPrescription new. set := self newSetPrescription. group := MFTStraightSetGroupPrescription with: set. groups := OrderedCollection with: group. workout setGroups: groups. self assert: workout setGroups identicalTo: groups. self assert: workout sets asArray equals: { set } ] { #category : 'tests' } MFTWorkoutPrescriptionTest >> testTitleAccessor [ | workout | workout := MFTWorkoutPrescription new. workout title: 'Heavy Duty Day 1'. self assert: workout title equals: 'Heavy Duty Day 1' ]