Squeak-dev September 2012

squeak-dev@lists.squeakfoundation.org

36 participants
151 discussions

The Trunk: KernelTests-ul.234.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.234.mcz ==================== Summary ==================== Name: KernelTests-ul.234 Author: ul Time: 16 September 2012, 9:59:01.665 pm UUID: 7f4e2626-2932-9c42-b20a-fc5494715f73 Ancestors: KernelTests-ul.233 #testPerformCanExecutelongMethodWithTemps and #testPerformInSuperclassCanExecutelongMethodWithTemps from CompiledMethodTest are expected to fail on the interpreter VMs. =============== Diff against KernelTests-ul.233 =============== Item was added: + ----- Method: CompiledMethodTest>>expectedFailures (in category 'as yet unclassified') ----- + expectedFailures + + Smalltalk isRunningCog ifTrue: [ ^super expectedFailures ]. + ^#( + "The following two are not supported by the interpreter VM. See their comments for details" + testPerformCanExecutelongMethodWithTemps + testPerformInSuperclassCanExecutelongMethodWithTemps + )!

1 0

The Trunk: CollectionsTests-ul.192.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ul.192.mcz ==================== Summary ==================== Name: CollectionsTests-ul.192 Author: ul Time: 16 September 2012, 9:02:57.208 pm UUID: a77dd8a7-c0fd-6b41-89ed-6ce22dbc4683 Ancestors: CollectionsTests-fbs.191 - marked RWBinaryOrTextStreamTest >> #testExisting as an expected failure, because it expects a different behavior than the current one =============== Diff against CollectionsTests-fbs.191 =============== Item was added: + ----- Method: RWBinaryOrTextStreamTest>>expectedFailures (in category 'testing') ----- + expectedFailures + + ^#( + testExisting "This is more like a request for new behavior than a bug." + )!

1 0

The Trunk: Tests-ul.168.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.168.mcz ==================== Summary ==================== Name: Tests-ul.168 Author: ul Time: 16 September 2012, 9:19:07.194 pm UUID: eb39bed8-b9dc-e345-a476-9c48f620907b Ancestors: Tests-ul.167 Removed #expectedFailures from MirrorPrimitiveTests because the new interpreter VM for Windows supports them. =============== Diff against Tests-ul.167 =============== Item was removed: - ----- Method: MirrorPrimitiveTests>>expectedFailures (in category 'testing') ----- - expectedFailures - - ^Smalltalk isRunningCog - ifTrue: [#()] - ifFalse: [#(testMirrorAt testMirrorEqEq testMirrorInstVarAt testMirrorPerform testMirrorSize)]!

1 0

The Trunk: KernelTests-ul.233.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-ul.233.mcz ==================== Summary ==================== Name: KernelTests-ul.233 Author: ul Time: 16 September 2012, 8:17:11.75 pm UUID: 6a2da463-10c3-7e46-9c87-69204b8d1163 Ancestors: KernelTests-ul.232 Speed-up for CompiledMethodComparisonTest >> #testHash: - instead of comparing all methods with all other, only compare methods which have the same size and header - only compare each pair of methods at most once (assuming #= is symmetric) It now takes less than 30 seconds using the interpreter VM on a 4 years old notebook. Also added a progress bar and decreased the timeout. =============== Diff against KernelTests-ul.232 =============== Item was changed: ----- Method: CompiledMethodComparisonTest>>testHash (in category 'tests') ----- testHash + <timeout: 120> + - <timeout: 300> "takes 90 seconds in trunk 4.3 on a 2.2GHz Intel Core i7 MacBook Pro" | ai | ai := CompiledMethod allInstances. + "We assume here that if two CompiledMethods are equal then they have the same size and header." + ((ai + groupBy: [ :method | { method size. method header } ] + having: [ :methods | true ]) + collect: [ :each | each asArray ]) + do: [ :methods | + 1 to: methods size do: [ :i | + i to: methods size do: [ :j | + (methods at: i) = (methods at: j) ifTrue: [ + self assert: (methods at: i) hash equals: (methods at: i) hash ] ] ] ] + displayingProgress: 'Testing hashes'. + self assert: (ai collect: [ :cm | cm hash ] as: Set) size * 2 >= ai asSet size! - ai do: - [:a| - ai do: - [:b| - a = b ifTrue: [self assert: a hash = b hash]]]. - self assert: (ai collect: [:cm| cm hash]) asSet size * 2 >= ai asSet size!

1 0

The Trunk: Tests-ul.167.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.167.mcz ==================== Summary ==================== Name: Tests-ul.167 Author: ul Time: 14 September 2012, 4:33:14.57 pm UUID: 7a6b5557-0d58-9646-b82c-807335e58d1c Ancestors: Tests-ul.165 Since Monticello-bf.476 MCSnapshotBrowser shows empty categories too, so include the systemCategories of the MCMockPackageInfo in MCSnapshotBrowserTest >> #allCategories in order to make MCSnapshotBrowserTest pass. =============== Diff against Tests-ul.165 =============== Item was changed: ----- Method: MCSnapshotBrowserTest>>allCategories (in category 'private') ----- allCategories + + ^{ + model extensionsCategory. + self mockCategoryName }, + MCSnapshotResource mockPackage packageInfo systemCategories! - ^ Array with: model extensionsCategory with: self mockCategoryName.!

1 0

The Trunk: Tests-ul.165.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.165.mcz ==================== Summary ==================== Name: Tests-ul.165 Author: ul Time: 14 September 2012, 3:32:16.183 pm UUID: 351cb9d0-e4bc-824a-bd34-dc64cff2fd4f Ancestors: Tests-ul.164 Break out Monticello package renaming tests into a separate TestCase, and use the existing category Tests-Monticello-Mock as its mock package name. This is needed because package renaming depends on the contract that package names are prefixes of their contained category names. =============== Diff against Tests-ul.164 =============== Item was changed: SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Environments'! + SystemOrganization addCategory: #'Tests-Monticello-Utils'! Item was changed: PackageInfo subclass: #MCDirtyPackageInfo instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'Tests-Monticello-Utils'! - category: 'Tests-Monticello-Mocks'! Item was changed: PackageInfo subclass: #MCEmptyPackageInfo instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'Tests-Monticello-Utils'! - category: 'Tests-Monticello-Mocks'! Item was changed: MCDefinition subclass: #MCMockDefinition instanceVariableNames: 'token' classVariableNames: '' poolDictionaries: '' + category: 'Tests-Monticello-Utils'! - category: 'Tests-Monticello-Mocks'! Item was changed: Object subclass: #MCMockDependency instanceVariableNames: 'name children hasResolution' classVariableNames: '' poolDictionaries: '' + category: 'Tests-Monticello-Utils'! - category: 'Tests-Monticello-Mocks'! Item was changed: PackageInfo subclass: #MCMockPackageInfo instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'Tests-Monticello-Utils'! - category: 'Tests-Monticello-Mocks'! Item was added: + MCTestCase subclass: #MCWorkingCopyRenameTest + instanceVariableNames: 'savedInitials workingCopy repositoryGroup versions versions2' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Monticello'! Item was added: + ----- Method: MCWorkingCopyRenameTest>>mockPackage (in category 'running') ----- + mockPackage + + ^MCPackage new name: self mockCategoryName! Item was added: + ----- Method: MCWorkingCopyRenameTest>>setUp (in category 'running') ----- + setUp + | repos1 repos2 | + repositoryGroup := MCRepositoryGroup new. + workingCopy := MCWorkingCopy forPackage: self mockPackage. + versions := Dictionary new. + versions2 := Dictionary new. + repos1 := MCDictionaryRepository new dictionary: versions. + repos2 := MCDictionaryRepository new dictionary: versions2. + repositoryGroup addRepository: repos1. + repositoryGroup addRepository: repos2. + MCRepositoryGroup default removeRepository: repos1; removeRepository: repos2. + workingCopy repositoryGroup: repositoryGroup. + savedInitials := Utilities authorInitialsPerSe. + Utilities setAuthorInitials: 'abc'.! Item was added: + ----- Method: MCWorkingCopyRenameTest>>tearDown (in category 'running') ----- + tearDown + super tearDown. + workingCopy unregister. + SystemOrganizer default removeEmptyCategories. + MCSnapshotTest organization removeEmptyCategories. + Utilities setAuthorInitials: savedInitials! Item was added: + ----- Method: MCWorkingCopyRenameTest>>testRenamePrefix (in category 'tests') ----- + testRenamePrefix + + self verifyRenameTo: 'Renamed-' , workingCopy packageName! Item was added: + ----- Method: MCWorkingCopyRenameTest>>testRenameSuffix (in category 'tests') ----- + testRenameSuffix + + self verifyRenameTo: workingCopy packageName, '-Renamed'! Item was added: + ----- Method: MCWorkingCopyRenameTest>>verifyRenameTo: (in category 'tests') ----- + verifyRenameTo: newName + + | oldWorkingCopy oldDefinitions newWorkingCopy | + oldWorkingCopy := workingCopy. + oldDefinitions := workingCopy package snapshot definitions. + [ + newWorkingCopy := workingCopy renameToBe: newName. + self + assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ; + assert: newWorkingCopy needsSaving ; + assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ; + assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ; + assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ; + assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ; + assert: (MCWorkingCopy registry includes: newWorkingCopy) ; + deny: (MCWorkingCopy registry includes: oldWorkingCopy). + workingCopy := newWorkingCopy ] ensure: [ + " ensure that we rename the category back to the original name " + (SystemOrganizer default categories includes: newName) ifTrue: [ + SystemOrganizer default + renameCategory: newName + toBe: oldWorkingCopy packageName ] ]! Item was removed: - ----- Method: MCWorkingCopyTest>>testRenamePrefix (in category 'tests') ----- - testRenamePrefix - self verifyRenameTo: 'Renamed-' , workingCopy packageName. - SystemOrganizer default - renameCategory: 'Renamed-Tests-Monticello-Mocks' - toBe: 'Tests-Monticello-Mocks'! Item was removed: - ----- Method: MCWorkingCopyTest>>testRenameSuffix (in category 'tests') ----- - testRenameSuffix - self verifyRenameTo: workingCopy packageName, '-Renamed'! Item was removed: - ----- Method: MCWorkingCopyTest>>verifyRenameTo: (in category 'tests') ----- - verifyRenameTo: newName - | oldWorkingCopy oldDefinitions newWorkingCopy | - oldWorkingCopy := workingCopy. - oldDefinitions := workingCopy package snapshot definitions. - newWorkingCopy := workingCopy renameToBe: newName. - self - assert: oldWorkingCopy ancestors = newWorkingCopy ancestors ; - assert: newWorkingCopy needsSaving ; - assert: newWorkingCopy requiredPackages = oldWorkingCopy requiredPackages ; - assert: newWorkingCopy repositoryGroup repositories = oldWorkingCopy repositoryGroup repositories ; - assert: newWorkingCopy package snapshot definitions size = oldDefinitions size ; - assert: (MCWorkingCopy registry includesKey: newWorkingCopy package) ; - assert: (MCWorkingCopy registry includes: newWorkingCopy) ; - deny: (MCWorkingCopy registry includes: oldWorkingCopy). - workingCopy := newWorkingCopy!

1 0

The Trunk: Tests-ul.164.mcz
by commits＠source.squeak.org 16 Sep '12

16 Sep '12

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.164.mcz ==================== Summary ==================== Name: Tests-ul.164 Author: ul Time: 14 September 2012, 2:20:59.642 pm UUID: 9431f253-54c9-8144-9de4-17230f13fc9f Ancestors: Tests-ul.163 Fixing Monticello tests: - restore #packageName for MCMockPackageInfo, MCEmptyPackageInfo, MCDirtyPackageInfo - re-register these PackageInfos in postscript - renamed the virtual #systemCategory of MCMockPackageInfo to Tests-MonticelloMocks, so the extension method MCSnapshotTest >> #mockClassExtension can be in the Tests package instead of Monticello MCMethodDefinitionTest enhancements: - updated #ownPackage, because it's Tests now - save and restore the timestamp of #override - remove the empty system category and the workingCopy of the mock package after the tests These changes break MCWorkingCopyTest's #testRenamePrefix and #testRenameSuffix and some of tests in MCSnapshotBrowserTest. =============== Diff against Tests-ul.163 =============== Item was removed: - ----- Method: MCDirtyPackageInfo class>>packageName (in category 'as yet unclassified') ----- - packageName - ^ 'MCDirtyPackage'! Item was added: + ----- Method: MCDirtyPackageInfo>>packageName (in category 'as yet unclassified') ----- + packageName + ^ 'MCDirtyPackage'! Item was removed: - ----- Method: MCEmptyPackageInfo class>>packageName (in category 'as yet unclassified') ----- - packageName - ^ 'MCEmptyPackage'! Item was added: + ----- Method: MCEmptyPackageInfo>>packageName (in category 'as yet unclassified') ----- + packageName + ^ 'MCEmptyPackage'! Item was changed: MCTestCase subclass: #MCMethodDefinitionTest + instanceVariableNames: 'navigation isModified overrideTimestamp' - instanceVariableNames: 'navigation isModified' classVariableNames: '' poolDictionaries: '' category: 'Tests-Monticello'! Item was changed: ----- Method: MCMethodDefinitionTest>>ownPackage (in category 'running') ----- ownPackage + ^ MCWorkingCopy forPackage: (MCPackage named: 'Tests')! - ^ MCWorkingCopy forPackage: (MCPackage named: 'Monticello')! Item was changed: ----- Method: MCMethodDefinitionTest>>setUp (in category 'running') ----- setUp + navigation := (Smalltalk hasClassNamed: #SystemNavigation) ifTrue: [(Smalltalk at: #SystemNavigation) new] ifFalse: [Smalltalk]. + isModified := self ownPackage modified. + overrideTimestamp := (self class >> #override) timeStamp! - isModified := self ownPackage modified.! Item was changed: ----- Method: MCMethodDefinitionTest>>tearDown (in category 'running') ----- tearDown - super tearDown. self restoreMocks. (MCWorkingCopy forPackage: (MCPackage named: 'FooBarBaz')) unregister. + MCMockPackageInfo new mcPackage workingCopy unregister. + self class + compile: 'override ^ 1' + classified: 'mocks' + withStamp: overrideTimestamp + notifying: nil. + SystemOrganizer default removeEmptyCategories. - self class compile: 'override ^ 1' classified: 'mocks'. self ownPackage modified: isModified. + super tearDown ! Item was removed: - ----- Method: MCMockPackageInfo class>>packageName (in category 'as yet unclassified') ----- - packageName - ^ 'MonticelloMocks'! Item was added: + ----- Method: MCMockPackageInfo>>packageName (in category 'as yet unclassified') ----- + packageName + ^ 'MonticelloMocks'! Item was changed: ----- Method: MCMockPackageInfo>>systemCategories (in category 'as yet unclassified') ----- systemCategories + ^ Array with: 'Tests-MonticelloMocks'! - ^ Array with: 'Monticello-Mocks'! Item was changed: + ----- Method: MCSnapshotTest>>mockClassExtension (in category '*Tests-MonticelloMocks') ----- - ----- Method: MCSnapshotTest>>mockClassExtension (in category '*Tests-Monticello-Mocks') ----- mockClassExtension! Item was changed: ----- Method: MCStWriterTest>>expectedOrganizationDefinition (in category 'data') ----- expectedOrganizationDefinition + ^ 'SystemOrganization addCategory: ''Tests-MonticelloMocks''!! - ^ 'SystemOrganization addCategory: ''Monticello-Mocks''!! '! Item was added: + ----- Method: MCStWriterTest>>tearDown (in category 'testing') ----- + tearDown + + SystemOrganizer default removeEmptyCategories. + super tearDown ! Item was added: + (PackageInfo named: 'Tests') postscript: 'PackageOrganizer default unregisterPackageNamed: ''Test-Monticello-Mocks''. + { MCMockPackageInfo. MCEmptyPackageInfo. MCDirtyPackageInfo } do: [ :each | + each initialize ] + '!

1 0

The Inbox: System-cmm.498.mcz
by commits＠source.squeak.org 15 Sep '12

15 Sep '12

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-cmm.498.mcz ==================== Summary ==================== Name: System-cmm.498 Author: cmm Time: 15 September 2012, 11:41:16.856 am UUID: 20beb771-7672-4ef2-a4cb-ef0d2c77ea53 Ancestors: System-cmm.497 - Limit initials to alphanumeric characters in ASCII range 32 to 128. - Fixed my initials on a couple of methods. =============== Diff against System-cmm.497 =============== Item was changed: ----- Method: Author class>>fullNamePerSe (in category 'pharo compatibility') ----- fullNamePerSe ^ self current initials! Item was changed: ----- Method: Author>>changeStamp (in category 'accessing') ----- changeStamp ^ self changeStampWithInitials: (self initials ifEmpty: [ 'unknown' ])! Item was changed: ----- Method: Utilities class>>setAuthorInitials (in category 'identification') ----- setAuthorInitials "Put up a dialog allowing the user to specify the author's initials. " | oldInitials | oldInitials := Author current initials. Author reset. Author current initials: ((UIManager default request: 'Please type your initials: ' translated + initialAnswer: oldInitials) select: + [ : each | #(#($A $Z ) #($a $z ) #($0 $9 ) ) anySatisfy: + [ : range | each + between: range first + and: range second ] ])! - initialAnswer: oldInitials) select: [ : each | each isOctetCharacter and: [ each isAlphaNumeric ] ])!

1 0

Daily Commit Log
by commits＠source.squeak.org 15 Sep '12

15 Sep '12

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2012-September/005509.… Name: Tests-ul.163 Ancestors: Tests-ul.162 Added ClassRemovalTest which reveals a bug in the current system. =============================================

1 0

The Inbox: Tests-cmm.167.mcz
by commits＠source.squeak.org 14 Sep '12

14 Sep '12

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/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 !

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
16
Older →

Jump to page: