Chris Muller uploaded a new version of Tests to project The Treated Inbox: http://source.squeak.org/treated/Tests-cmm.167.mcz
==================== Summary ====================
Name: Tests-cmm.167 Author: cmm Time: 14 September 2012, 3:18:03.044 pm UUID: e3dc023c-242d-4631-a1e2-7f266a2303f6 Ancestors: Tests-ul.166
Updated Author tests for alternative proposal.
=============== Diff against Tests-ul.166 ===============
Item was changed: ----- Method: AuthorTest>>setUp (in category 'running') ----- setUp + originalAuthor := Author current. + Author reset! - - originalAuthor := Author current shallowCopy!
Item was changed: ----- Method: AuthorTest>>tearDown (in category 'running') ----- tearDown + Author current: originalAuthor! - - Author current copyFrom: originalAuthor!
Item was changed: ----- Method: AuthorTest>>testInitiallyEmpty (in category 'tests') ----- testInitiallyEmpty - Author reset. + self assert: Author current initials isEmpty! - self assert: Author initialsPerSe isEmpty - !
Item was changed: ----- Method: AuthorTest>>testInitials (in category 'tests') ----- testInitials - Author current initials: 'Smalltalk123'. + self + assert: 'Smalltalk123' + equals: Author current initials! - self assert: 'Smalltalk123' equals: Author initialsPerSe !
Item was changed: ----- Method: AuthorTest>>testInitialsCanContainOnlyAsciiAlphanumericCharacters (in category 'tests') ----- testInitialsCanContainOnlyAsciiAlphanumericCharacters - Author reset. + [ Utilities authorInitials ] valueSupplyingAnswer: + {'*'. + '!!@#$Smalltalk123' , (Character value: 1234) asString}. + self + assert: 'Smalltalk123' + equals: Author current initials! - [ Author current requestAndSetInitials ] valueSupplyingAnswer: { - '*'. - '!!@#$Smalltalk123', (Character value: 1234) asString }. - self assert: 'Smalltalk123' equals: Author initialsPerSe - - !
Item was removed: - ----- Method: AuthorTest>>testNewRaisesError (in category 'tests') ----- - testNewRaisesError - - self should: [ Author new ] raise: Error!
Item was changed: ----- Method: AuthorTest>>testRequestAndSetInitials (in category 'tests') ----- testRequestAndSetInitials - Author reset. + [ Utilities authorInitials ] valueSupplyingAnswer: {'*'. 'Smalltalk123'}. + self + assert: 'Smalltalk123' + equals: Author current initials! - [ Author current requestAndSetInitials ] valueSupplyingAnswer: { - '*'. - 'Smalltalk123' }. - self assert: 'Smalltalk123' equals: Author initialsPerSe - !
Item was changed: ----- Method: AuthorTest>>testRequestAndSetUserName (in category 'tests') ----- testRequestAndSetUserName - Author reset. + [ Utilities authorName ] valueSupplyingAnswer: {'*'. 'Smalltalk123'}. + self + assert: 'Smalltalk123' + equals: Author current username! - [ Author current requestAndSetUsername ] valueSupplyingAnswer: { - '*'. - 'Smalltalk123' }. - self assert: 'Smalltalk123' equals: Author usernamePerSe - !
Item was changed: ----- Method: AuthorTest>>testUseInitialsDuring (in category 'tests') ----- testUseInitialsDuring - | originalInitials | + originalInitials := Author current initials. + Author current + useInitials: 'other' , originalInitials + during: + [ self + assert: 'other' , originalInitials + equals: Author current initials ]. + self + assert: originalInitials + equals: Author current initials! - originalInitials := Author initialsPerSe. - Author useInitials: 'other', originalInitials during: [ - self assert: 'other', originalInitials equals: Author initialsPerSe ]. - self assert: originalInitials equals: Author initialsPerSe!
Item was changed: ----- Method: AuthorTest>>testUsername (in category 'tests') ----- testUsername - Author current username: 'Smalltalk123'. + self + assert: 'Smalltalk123' + equals: Author current username! - self assert: 'Smalltalk123' equals: Author usernamePerSe !
packages@lists.squeakfoundation.org