1 " 2 A MFTObjectTest is a test class for testing the behavior of MFTObject 3 " 4 Class { 5 #name : 'MFTObjectTest', 6 #superclass : 'TestCase', 7 #category : 'MyFitnessTracker-Core-Tests-Base', 8 #package : 'MyFitnessTracker-Core-Tests', 9 #tag : 'Base' 10 } 11 12 { #category : 'tests' } 13 MFTObjectTest >> testCanonicalNameIsAbstract [ 14 15 self should: [ MFTObject new canonicalName ] raise: Error 16 ] 17 18 { #category : 'tests' } 19 MFTObjectTest >> testIdDefaultsToNil [ 20 21 self assert: MFTObject new id isNil 22 ] 23 24 { #category : 'tests' } 25 MFTObjectTest >> testIdSetterStoresAnyObjectIdentity [ 26 27 | object idObject | 28 object := MFTObject new. 29 idObject := Object new. 30 31 object id: idObject. 32 33 self assert: object id identicalTo: idObject 34 ] 35 36 { #category : 'tests' } 37 MFTObjectTest >> testIdSetterStoresId [ 38 39 | object | 40 object := MFTObject new. 41 42 object id: 42. 43 44 self assert: object id equals: 42 45 ] 46 47 { #category : 'tests' } 48 MFTObjectTest >> testPrintOnIsAbstractThroughCanonicalName [ 49 50 self should: [ MFTObject new printString ] raise: Error 51 ] 52 53 { #category : 'tests' } 54 MFTObjectTest >> testPrintOnUsesConcreteCanonicalName [ 55 56 self 57 assert: MFTTrainee new printString 58 equals: MFTTrainee new canonicalName 59 ] 60