Squeak-dev April 2020

squeak-dev@lists.squeakfoundation.org

39 participants
236 discussions

The Inbox: Tests-dtl.431.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-dtl.431.mcz ==================== Summary ==================== Name: Tests-dtl.431 Author: dtl Time: 13 April 2020, 4:00:53.831835 pm UUID: 425d64a9-e840-4c8f-ae0e-db0c4b811ef4 Ancestors: Tests-dtl.430 Test coverage for MCConfiguration>>copyForEdit =============== Diff against Tests-dtl.430 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Applications'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! - SystemOrganization addCategory: #'Tests-MonticelloConfigurations'! Item was changed: ----- Method: MCConfigurationTest>>sampleMcmFileContentsWithHistory (in category 'running') ----- sampleMcmFileContentsWithHistory "Contents of an MCM file with multiple repositories and dependencies and two prior versions in its history." "MCConfigurationTest new sampleMcmFileContentsWithHistory" ^ '( name ''update.V3-dtl.464'' repository (''http://source.squeak.org/trunk'') repository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') dependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') dependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') dependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') dependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') dependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') dependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') mcmVersion ''2'' authorInitials ''dtl'' + timeStamp ''2020-04-10T15:00:06-04:00'' - timeStamp ''2020-04-10T15:00:06.887746-04:00'' comment ''A comment describing this version of the configuration map'' Xname ''update.V3-dtl.464'' Xrepository (''http://source.squeak.org/trunk'') Xrepository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') Xdependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') Xdependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') Xdependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') Xdependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') Xdependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + Xdependency (''Sound'' ''Sound-dtl.68'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') - Xdependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') XmcmVersion ''2'' XauthorInitials ''dtl'' + XtimeStamp ''2020-04-10T15:00:08.887746-04:00'' + Xcomment ''A comment describing the prior version of the configuration map'' - XtimeStamp ''2020-04-10T15:00:06.887746-04:00'' - Xcomment ''A comment describing this version of the configuration map'' Xname ''update.V3-dtl.464'' Xrepository (''http://source.squeak.org/trunk'') Xrepository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') Xdependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') Xdependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') Xdependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') Xdependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') Xdependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') Xdependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') ) '! Item was added: + ----- Method: MCConfigurationTest>>testCopyForEditForBasic (in category 'tests - basic format') ----- + testCopyForEditForBasic + + | array mcm forEdit | + array := MCScanner scan: sampleMcmFileContents readStream. + mcm := MCConfiguration fromArray: array. + self assert: MCConfiguration equals: mcm class. + forEdit := mcm copyForEdit. + self assert: MCConfigurationExtended equals: forEdit class. + self assert: 'update.V3-dtl.464' equals: forEdit name. + self assert: 2 equals: forEdit repositories size. + self assert: 6 equals: forEdit dependencies size. + self assert: (forEdit instVarNamed: #log) isNil. + self assert: '2' equals: forEdit mcmVersion. + self assert: forEdit authorInitials isNil. + self assert: forEdit timeStamp isNil. + self assert: forEdit comment isNil. + self assert: 1 equals: forEdit priorVersions size. + self assert: forEdit priorVersions first == mcm. + ! Item was added: + ----- Method: MCConfigurationTest>>testCopyForEditForExtended (in category 'tests - extended format') ----- + testCopyForEditForExtended + + | input array mcm forEdit | + input := sampleMcmFileContentsWithHistory. + array := MCScanner scan: input readStream. + mcm := MCConfiguration fromArray: array. + self assert: MCConfigurationExtended equals: mcm class. + forEdit := mcm copyForEdit. + self assert: MCConfigurationExtended equals: forEdit class. + self assert: 'update.V3-dtl.464' equals: forEdit name. + self assert: 2 equals: forEdit repositories size. + self assert: 6 equals: forEdit dependencies size. + self assert: (forEdit instVarNamed: #log) isNil. + self assert: '2' equals: forEdit mcmVersion. + self assert: forEdit authorInitials isNil. "to be set when saved" + self assert: forEdit timeStamp isNil. "to be set when saved" + self assert: mcm comment equals: forEdit comment. "assume user may want to edit existing comment" + self assert: 3 equals: forEdit priorVersions size. + self assert: forEdit priorVersions first == mcm. + !

1 0

The Inbox: Tests-dtl.430.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

A new version of Tests was added to project The Inbox: http://source.squeak.org/inbox/Tests-dtl.430.mcz ==================== Summary ==================== Name: Tests-dtl.430 Author: dtl Time: 13 April 2020, 2:07:57.55731 pm UUID: 4bad6e12-5b3f-4c2b-84d1-fd10ea01a651 Ancestors: Tests-ul.429 MCConfigurationTest verifies reading and writing configuration maps as stored on a SqueakSource server. It tests the original MCConfiguration, as well as the extended MCConfigurationExtended that supports versioning of configurations maps. Compatability tests ensure that configurations saved in the new format can be used with existing images that support only the original format. =============== Diff against Tests-ul.429 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Applications'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! + SystemOrganization addCategory: #'Tests-MonticelloConfigurations'! Item was added: + TestCase subclass: #MCConfigurationTest + instanceVariableNames: 'sampleMcmFileContents sampleMcmStorageArray sampleMcmStorageArrayExtended sampleMcmFileContentsExtended sampleMcmFileContentsWithHistory' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Monticello'! + + !MCConfigurationTest commentStamp: 'dtl 4/13/2020 13:43' prior: 0! + A MCConfigurationTest verifies reading and writing configuration maps as stored on a SqueakSource server. It tests the original MCConfiguration, as well as the extended MCConfigurationExtended that supports versioning of configurations maps. Compatability tests ensure that configurations saved in the new format can be used with existing images that support only the original format.! Item was added: + ----- Method: MCConfigurationTest>>sampleMcmFileContents (in category 'running') ----- + sampleMcmFileContents + "Contents of an MCM file with multiple repositories and dependencies, as saved in + the original MCM file storage format" + + "MCConfigurationTest new sampleMcmFileContents" + + ^ '( + name ''update.V3-dtl.464'' + repository (''http://source.squeak.org/trunk'') + repository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') + dependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') + dependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') + dependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') + dependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') + dependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + dependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') + ) + ' + ! Item was added: + ----- Method: MCConfigurationTest>>sampleMcmFileContentsExtended (in category 'running') ----- + sampleMcmFileContentsExtended + "Contents of an MCM file with multiple repositories and dependencies, as saved in + the extended MCM file storage format" + + "MCConfigurationTest new sampleMcmFileContentsExtended" + + ^ '( + name ''update.V3-dtl.464'' + repository (''http://source.squeak.org/trunk'') + repository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') + dependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') + dependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') + dependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') + dependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') + dependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + dependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') + mcmVersion ''2'' + authorInitials ''dtl'' + timeStamp ''2020-04-10T15:00:06.887746-04:00'' + comment ''A comment describing this version of the configuration map'' + ) + ' + ! Item was added: + ----- Method: MCConfigurationTest>>sampleMcmFileContentsWithHistory (in category 'running') ----- + sampleMcmFileContentsWithHistory + "Contents of an MCM file with multiple repositories and dependencies and two + prior versions in its history." + + "MCConfigurationTest new sampleMcmFileContentsWithHistory" + + ^ '( + name ''update.V3-dtl.464'' + repository (''http://source.squeak.org/trunk'') + repository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') + dependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') + dependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') + dependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') + dependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') + dependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + dependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') + mcmVersion ''2'' + authorInitials ''dtl'' + timeStamp ''2020-04-10T15:00:06.887746-04:00'' + comment ''A comment describing this version of the configuration map'' + Xname ''update.V3-dtl.464'' + Xrepository (''http://source.squeak.org/trunk'') + Xrepository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') + Xdependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') + Xdependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') + Xdependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') + Xdependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') + Xdependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + Xdependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') + XmcmVersion ''2'' + XauthorInitials ''dtl'' + XtimeStamp ''2020-04-10T15:00:06.887746-04:00'' + Xcomment ''A comment describing this version of the configuration map'' + Xname ''update.V3-dtl.464'' + Xrepository (''http://source.squeak.org/trunk'') + Xrepository (''http://www.squeaksource.com/TrunkUpdateStreamV3'') + Xdependency (''Kernel'' ''Kernel.V3-dtl.1319'' ''18bad077-f877-4b68-bcfd-04716bdd807d'') + Xdependency (''Compiler'' ''Compiler.V3-dtl.419'' ''353d296d-24a6-49f2-9b44-e8f8e216ec35'') + Xdependency (''Collections'' ''Collections.V3-dtl.882'' ''9c3d454c-d010-49b7-b52d-c82a89ad9c71'') + Xdependency (''Monticello'' ''Monticello-nice.716'' ''a1f8545a-b4f8-4bae-b349-e8bbba23816e'') + Xdependency (''Files'' ''Files-pre.183'' ''c7d0c859-2531-464e-87d8-3b580249731b'') + Xdependency (''Sound'' ''Sound-dtl.68'' ''c7b5a141-2b1b-4d24-ab88-0a96dd78600b'') + ) + '! Item was added: + ----- Method: MCConfigurationTest>>sampleMcmStorageArray (in category 'running') ----- + sampleMcmStorageArray + "Array scanned from an MCM file with multiple repositories and dependencies in + the original MCM file storage format" + + "MCConfigurationTest new sampleMcmStorageArray" + + ^ #(#name 'update.V3-dtl.464' #repository #('http://source.squeak.org/trunk') #repository #('http://www.squeaksource.com/TrunkUpdateStreamV3') #dependency #('Kernel' 'Kernel.V3-dtl.1319' '18bad077-f877-4b68-bcfd-04716bdd807d') #dependency #('Compiler' 'Compiler.V3-dtl.419' '353d296d-24a6-49f2-9b44-e8f8e216ec35') #dependency #('Collections' 'Collections.V3-dtl.882' '9c3d454c-d010-49b7-b52d-c82a89ad9c71') #dependency #('Monticello' 'Monticello-nice.716' 'a1f8545a-b4f8-4bae-b349-e8bbba23816e') #dependency #('Files' 'Files-pre.183' 'c7d0c859-2531-464e-87d8-3b580249731b') #dependency #('Sound' 'Sound-dtl.68' 'c7b5a141-2b1b-4d24-ab88-0a96dd78600b'))! Item was added: + ----- Method: MCConfigurationTest>>sampleMcmStorageArrayExtended (in category 'running') ----- + sampleMcmStorageArrayExtended + "An extended format MCM array with no prior versions" + + "MCConfigurationTest new sampleMcmStorageArrayExtended" + + ^ self sampleMcmStorageArray, + # ( #mcmVersion '2' + #authorInitials 'dtl' + #timeStamp '2020-04-10T15:00:06.887746-04:00' + #comment 'A comment describing this version of the configuration map' ) + ! Item was added: + ----- Method: MCConfigurationTest>>setUp (in category 'running') ----- + setUp + + sampleMcmStorageArray := self sampleMcmStorageArray. + sampleMcmFileContents := self sampleMcmFileContents. + sampleMcmStorageArrayExtended := self sampleMcmStorageArrayExtended. + sampleMcmFileContentsExtended := self sampleMcmFileContentsExtended. + sampleMcmFileContentsWithHistory := self sampleMcmFileContentsWithHistory. + ! Item was added: + ----- Method: MCConfigurationTest>>testExtendedFromArray (in category 'tests - extended format') ----- + testExtendedFromArray + + | mcm | + mcm := MCConfiguration fromArray: sampleMcmStorageArrayExtended. + self assert: MCConfigurationExtended equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + self assert: '2' equals: mcm mcmVersion. + self assert: 'dtl' equals: mcm authorInitials. + self assert: '2020-04-10T15:00:06.887746-04:00' equals: mcm timeStamp. + self assert: 'A comment describing this version of the configuration map' equals: mcm comment. + self assert: mcm priorVersions isEmpty. + ! Item was added: + ----- Method: MCConfigurationTest>>testExtendedFromStorageString (in category 'tests - extended format') ----- + testExtendedFromStorageString + + | array mcm | + array := MCScanner scan: sampleMcmFileContentsExtended readStream. + mcm := MCConfiguration fromArray: array. + self assert: MCConfigurationExtended equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + self assert: '2' equals: mcm mcmVersion. + self assert: 'dtl' equals: mcm authorInitials. + self assert: '2020-04-10T15:00:06.887746-04:00' equals: mcm timeStamp. + self assert: 'A comment describing this version of the configuration map' equals: mcm comment. + self assert: mcm priorVersions isEmpty. + ! Item was added: + ----- Method: MCConfigurationTest>>testExtendedToStorageString (in category 'tests - extended format') ----- + testExtendedToStorageString + + | mcm strm | + mcm := MCConfiguration fromArray: sampleMcmStorageArrayExtended. + self assert: MCConfigurationExtended equals: mcm class. + strm := '' writeStream. + MCMcmWriter fileOut: mcm on: strm. + strm cr. "trailing line terminator matches sample string" + self assert: sampleMcmFileContentsExtended equals: strm contents. + ! Item was added: + ----- Method: MCConfigurationTest>>testExtendedToStorageStringWithHistory (in category 'tests - extended format') ----- + testExtendedToStorageStringWithHistory + + | input array mcm strm | + input := sampleMcmFileContentsWithHistory. + array := MCScanner scan: input readStream. + mcm := MCConfiguration fromArray: array. + self assert: MCConfigurationExtended equals: mcm class. + strm := '' writeStream. + MCMcmWriter fileOut: mcm on: strm. + strm cr. "trailing line terminator matches sample string" + self assert: sampleMcmFileContentsWithHistory equals: strm contents. + ! Item was added: + ----- Method: MCConfigurationTest>>testFromArray (in category 'tests - basic format') ----- + testFromArray + + | mcm | + mcm := MCConfiguration fromArray: sampleMcmStorageArray. + self assert: MCConfiguration equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + ! Item was added: + ----- Method: MCConfigurationTest>>testFromExtendedArray (in category 'tests - backward compatability') ----- + testFromExtendedArray + "Ensure backward compatibility" + | mcm | + mcm := MCConfiguration oldVersionOfFromArray: sampleMcmStorageArrayExtended. + self assert: MCConfiguration equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + ! Item was added: + ----- Method: MCConfigurationTest>>testFromExtendedStorageString (in category 'tests - backward compatability') ----- + testFromExtendedStorageString + "Ensure backward compatibility" + | array mcm | + array := MCScanner scan: sampleMcmFileContentsWithHistory readStream. + mcm := MCConfiguration oldVersionOfFromArray: array. + self assert: MCConfiguration equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + ! Item was added: + ----- Method: MCConfigurationTest>>testFromStorageString (in category 'tests - basic format') ----- + testFromStorageString + + | array mcm | + array := MCScanner scan: sampleMcmFileContents readStream. + mcm := MCConfiguration fromArray: array. + self assert: MCConfiguration equals: mcm class. + self assert: 'update.V3-dtl.464' equals: mcm name. + self assert: 2 equals: mcm repositories size. + self assert: 6 equals: mcm dependencies size. + self assert: (mcm instVarNamed: #log) isNil. + ! Item was added: + ----- Method: MCConfigurationTest>>testToStorageString (in category 'tests - basic format') ----- + testToStorageString + + | mcm strm | + mcm := MCConfiguration fromArray: sampleMcmStorageArray. + self assert: MCConfiguration equals: mcm class. + strm := '' writeStream. + MCMcmWriter fileOut: mcm on: strm. + strm cr. "trailing line terminator matches sample string" + self assert: sampleMcmFileContents equals: strm contents. + ! Item was added: + ----- Method: MCConfigurationTest>>testVersionHistory (in category 'tests - extended format') ----- + testVersionHistory + "Each instance of MCConfigurationExtended has a possibly empty list of prior + versions. Rather than modifying an instance of a configuration, the prior + instance can be saved in the history list, with the current version saved as + a new instance with history." + + | array mcm firstVersion thirdVersion secondVersion | + mcm := MCConfiguration fromArray: sampleMcmStorageArrayExtended. + self assert: mcm priorVersions isEmpty. + array := sampleMcmStorageArrayExtended, "current version" + sampleMcmStorageArrayExtended, "prior version" + sampleMcmStorageArrayExtended, + sampleMcmStorageArray. "oldest (original) version" + mcm := MCConfiguration fromArray: array. + + self assert: 3 equals: mcm priorVersions size. + firstVersion := MCConfiguration fromArray: sampleMcmStorageArray. + self assert: firstVersion equals: mcm priorVersions last. + + secondVersion := mcm priorVersions second. + self assert: 1 equals: secondVersion priorVersions size. + self assert: firstVersion equals: secondVersion priorVersions first. + + thirdVersion := mcm priorVersions first. + self assert: 2 equals: thirdVersion priorVersions size. + self assert: secondVersion equals: thirdVersion priorVersions first. + self assert: firstVersion equals: thirdVersion priorVersions second. + !

1 0

The Trunk: Kernel-eem.1323.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1323.mcz ==================== Summary ==================== Name: Kernel-eem.1323 Author: eem Time: 15 April 2020, 4:46:14.261016 pm UUID: 5ea740f0-f4c6-4808-b7b6-2e3aee87aa91 Ancestors: Kernel-eem.1322 Update the ClassBuilder and instance migration, given the changes in Collections-eem.885. See http://forum.world.st/How-to-become-immediate-objects-td5114931.html. =============== Diff against Kernel-eem.1322 =============== Item was changed: ----- Method: ClassBuilder>>update:to: (in category 'class mutation') ----- update: oldClass to: newClass "Convert oldClass, all its instances and possibly its meta class into newClass, instances of newClass and possibly its meta class. The process is surprisingly simple in its implementation and surprisingly complex in its nuances and potentially bad side effects. We can rely on two assumptions (which are critical): #1: The method #updateInstancesFrom: will not create any lasting pointers to 'old' instances ('old' is quote on quote since #updateInstancesFrom: will do a become of the old vs. the new instances and therefore it will not create pointers to *new* instances before the #become: which are *old* afterwards) #2: The non-preemptive execution of the critical piece of code guarantees that nobody can get a hold by 'other means' (such as process interruption and reflection) on the old instances. Given the above two, we know that after #updateInstancesFrom: there are no pointers to any old instances. After the forwarding become there will be no pointers to the old class or meta class either. Andreas Raab, 2/27/2003 23:42" | meta | meta := oldClass isMeta. "Note: Everything from here on will run without the ability to get interrupted to prevent any other process to create new instances of the old class." ["Note: The following removal may look somewhat obscure and needs an explanation. When we mutate the class hierarchy we create new classes for any existing subclass. So it may look as if we don't have to remove the old class from its superclass. However, at the top of the hierarchy (the first class we reshape) that superclass itself is not newly created so therefore it will hold both the oldClass and newClass in its (obsolete or not) subclasses. Since the #become: below will transparently replace the pointers to oldClass with newClass the superclass would have newClass in its subclasses TWICE. With rather unclear effects if we consider that we may convert the meta-class hierarchy itself (which is derived from the non-meta class hierarchy). Due to this problem ALL classes are removed from their superclass just prior to converting them. Here, breaking the superclass/subclass invariant really doesn't matter since we will effectively remove the oldClass (becomeForward:) just a few lines below." oldClass superclass removeSubclass: oldClass. oldClass superclass removeObsoleteSubclass: oldClass. "make sure that the VM cache is clean" oldClass methodDict do: [:cm | cm flushCache]. "Convert the instances of oldClass into instances of newClass" newClass updateInstancesFrom: oldClass. meta ifTrue: + [{oldClass} elementsForwardIdentityAndHashTo: {newClass}. - [oldClass becomeForward: newClass. oldClass updateMethodBindingsTo: oldClass binding] ifFalse: + [{oldClass. oldClass class} elementsForwardIdentityAndHashTo: {newClass. newClass class}. - [{oldClass. oldClass class} elementsForwardIdentityTo: {newClass. newClass class}. oldClass updateMethodBindingsTo: oldClass binding. oldClass class updateMethodBindingsTo: oldClass class binding]. "eem 5/31/2014 07:22 At this point there used to be a garbage collect whose purpose was to ensure no old instances existed after the becomeForward:. Without the GC it was possible to resurrect old instances using e.g. allInstancesDo:. This was because the becomeForward: updated references from the old objects to new objects but didn't destroy the old objects. But as of late 2013/early 2014 becomeForward: has been modified to free all the old objects."] valueUnpreemptively! Item was changed: ----- Method: ClassDescription>>updateInstances:from:isMeta: (in category 'initialize-release') ----- updateInstances: oldInstances from: oldClass isMeta: isMeta "Recreate any existing instances of the argument, oldClass, as instances of the receiver, which is a newly changed class. Permute variables as necessary, and forward old instances to new instances. Answer nil to defeat old clients that expect an array of old instances. The old behaviour, which necessitated a global GC, exchanged identities and answered the old instances. But no clients used the result. This way we avoid the unnecessary GC," | map variable instSize newInstances | oldInstances isEmpty ifTrue: [^nil]. "no instances to convert" isMeta ifTrue: [(oldInstances size = 1 and: [self soleInstance class == self or: [self soleInstance class == oldClass]]) ifFalse: [^self error: 'Metaclasses can only have one instance']]. map := self instVarMappingFrom: oldClass. variable := self isVariable. instSize := self instSize. newInstances := Array new: oldInstances size. 1 to: oldInstances size do: [:i| newInstances at: i put: (self newInstanceFrom: (oldInstances at: i) variable: variable size: instSize map: map)]. "Now perform a bulk mutation of old instances into new ones" + oldInstances elementsForwardIdentityAndHashTo: newInstances. - oldInstances elementsForwardIdentityTo: newInstances. ^nil!

1 0

The Trunk: Collections-eem.885.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.885.mcz ==================== Summary ==================== Name: Collections-eem.885 Author: eem Time: 15 April 2020, 4:37:54.800631 pm UUID: 45d219d3-6ed0-4401-a820-44eebe21d71a Ancestors: Collections-eem.883, Collections-dtl.884 Switch elementsForwardIdentityTo: to not copy the hash, see http://forum.world.st/How-to-become-immediate-objects-td5114931.html. Add elementsForwardIdentityAndHashTo: for the old behavior. =============== Diff against Collections-dtl.884 =============== Item was added: + ----- Method: Array>>elementsForwardIdentityAndHashTo: (in category 'converting') ----- + elementsForwardIdentityAndHashTo: otherArray + "This primitive performs a bulk mutation, causing all pointers to the elements of the + receiver to be replaced by pointers to the corresponding elements of otherArray. + The identityHashes remain with the pointers rather than with the objects so that + the objects in this array should still be properly indexed in any existing hashed + structures after the mutation." + <primitive: 72 error: ec> + ec == #'no modification' ifTrue: + [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityAndHashTo:]. + ec == #'bad receiver' ifTrue: + [^self error: 'receiver must be of class Array']. + ec == #'bad argument' ifTrue: + [^self error: (otherArray class == Array + ifTrue: ['arg must be of class Array'] + ifFalse: ['receiver and argument must have the same size'])]. + ec == #'inappropriate operation' ifTrue: + [^self error: 'can''t become immediates such as SmallIntegers or Characters']. + ec == #'object is pinned' ifTrue: + [^self error: 'can''t become pinned objects']. + ec == #'insufficient object memory' ifTrue: + [self error: 'The virtual machine is out-of-date. Please upgrade.']. + self primitiveFailed! Item was changed: ----- Method: Array>>elementsForwardIdentityTo: (in category 'converting') ----- elementsForwardIdentityTo: otherArray "This primitive performs a bulk mutation, causing all pointers to the elements of the receiver to be replaced by pointers to the corresponding elements of otherArray. + The identityHashes are not copied to the target objects so that the objects in otherArray + should still be properly indexed in any existing hashed structures after the mutation." + <primitive: 248 error: ec> - The identityHashes remain with the pointers rather than with the objects so that - the objects in this array should still be properly indexed in any existing hashed - structures after the mutation." - <primitive: 72 error: ec> ec == #'no modification' ifTrue: [^self modificationForbiddenFor: otherArray becomeSelector: #elementsForwardIdentityTo:]. ec == #'bad receiver' ifTrue: [^self error: 'receiver must be of class Array']. ec == #'bad argument' ifTrue: [^self error: (otherArray class == Array ifTrue: ['arg must be of class Array'] ifFalse: ['receiver and argument must have the same size'])]. ec == #'inappropriate operation' ifTrue: [^self error: 'can''t become immediates such as SmallIntegers or Characters']. ec == #'object is pinned' ifTrue: [^self error: 'can''t become pinned objects']. ec == #'insufficient object memory' ifTrue: [self error: 'The virtual machine is out-of-date. Please upgrade.']. self primitiveFailed!

1 0

The Trunk: Tools-eem.959.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-eem.959.mcz ==================== Summary ==================== Name: Tools-eem.959 Author: eem Time: 15 April 2020, 4:12:17.416699 pm UUID: 60d7efe0-296a-4127-9b50-6e8d701cf715 Ancestors: Tools-mt.958 Change a method to use selectorsDo:; messagesDo: should be deprecated at some point. =============== Diff against Tools-mt.958 =============== Item was changed: ----- Method: Behavior>>toolIconSelector: (in category '*Tools-icons') ----- toolIconSelector: aSymbol "Tools can annotate the method identified by aSymbol with an icon identified by the symbol this method returns. We customize this for, eg, overriden methods or methods with breaks. Defaults to no icon" self methodDictionary at: aSymbol ifPresent: [ :method | method hasBreakpoint ifTrue: [^ #breakpoint]. + method selectorsDo: [:messageSelector | - method messagesDo: [:messageSelector | (#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount: break) includes: messageSelector) ifTrue: [^ #breakpoint]. (#(flag: needsWork notYetImplemented) includes: messageSelector) ifTrue: [^ #flag]. (#(shouldBeImplemented subclassResponsibility) includes: messageSelector) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #abstract] ifFalse: [^ #notOverridden]]. messageSelector == #shouldNotImplement ifTrue: [^ #no]]. method hasReportableSlip ifTrue: [^ #breakpoint]]. (self isSelectorOverride: aSymbol) ifTrue: [ (self isSelectorOverridden: aSymbol) ifTrue: [ ^ #arrowUpAndDown ] ifFalse: [ ^ #arrowUp ] ] ifFalse: [ (self isSelectorOverridden: aSymbol) ifTrue: [^ #arrowDown ]]. self methodDictionary at: aSymbol ifPresent: [ :method | (method primitive ~= 0 and: [method isQuick not]) ifTrue: [^ #primitive]]. ^ #blank!

1 0

The Trunk: System-eem.1152.mcz
by commits＠source.squeak.org 16 Apr '20

16 Apr '20

Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.1152.mcz ==================== Summary ==================== Name: System-eem.1152 Author: eem Time: 15 April 2020, 4:11:22.143513 pm UUID: 3e0d01fb-556b-4a58-926d-417c7b193a4e Ancestors: System-mt.1151 Change some SystemNavigation methods to use selectorsDo:; messagesDo: should be deprecated at some point. =============== Diff against System-mt.1151 =============== Item was changed: ----- Method: SystemNavigation>>allUnimplementedCalls (in category 'query') ----- allUnimplementedCalls "Answer a collection of each message that is sent by an expression in a method but is not implemented by any object in the system." | result implementedMessages | implementedMessages := self allImplementedMessages. result := OrderedCollection new. self allSelectorsAndMethodsDo: [ :behavior :selector :method | + method selectorsDo: [ :each | - method messagesDo: [ :each | (implementedMessages includes: each) ifFalse: [ result add: (String streamContents: [ :stream | stream nextPutAll: behavior name; space; nextPutAll: selector; space; nextPutAll: 'calls: '; nextPutAll: each ]) ] ] ]. ^result! Item was changed: ----- Method: SystemNavigation>>allUnimplementedNonPrimitiveCalls (in category 'query') ----- allUnimplementedNonPrimitiveCalls "Answer an collection of each message that is sent by an expression in a method but is not implemented by any object in the system. This list won't include primitive methods." | result implementedMessages | implementedMessages := self allImplementedMessages. result := OrderedCollection new. self allSelectorsAndMethodsDo: [ :behavior :selector :method | method primitive = 0 ifTrue: [ + method selectorsDo: [ :each | - method messagesDo: [ :each | (implementedMessages includes: each) ifFalse: [ result add: (String streamContents: [ :stream | stream nextPutAll: behavior name; space; nextPutAll: selector; space; nextPutAll: 'calls: '; nextPutAll: each ]) ] ] ] ]. ^result! Item was changed: ----- Method: SystemNavigation>>unimplemented (in category 'query') ----- unimplemented "Answer an collection of each message that is sent by an expression in a method but is not implemented by any object in the system." | implemented unimplemented | implemented := self allImplementedMessages. unimplemented := IdentityDictionary new. self allSelectorsAndMethodsDo: [ :behavior :selector :method | + method selectorsDo: [ :each | - method messagesDo: [ :each | | entry | (implemented includes: each) ifFalse: [ entry := unimplemented at: each ifPresent: [ :oldEntry | oldEntry copyWith: behavior name, '>', selector ] ifAbsent: [ { behavior name, '>', selector } ]. unimplemented at: each put: entry ] ] ]. ^unimplemented!

1 0

Idle MVC RootProject is very CPU hungry
by Stéphane Rollandin 15 Apr '20

15 Apr '20

Hello, I just noticed that the top-level RootProject, when entered, makes the VM take a lot of CPU (a full core on my system, which amounts to 100%). I'm on windows 8.1. Is this expected? Stef

6 9

The Trunk: Tools-mt.958.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.958.mcz ==================== Summary ==================== Name: Tools-mt.958 Author: mt Time: 15 April 2020, 5:55:35.334699 pm UUID: 8d488e07-f7e5-5a47-9861-a23cb62b6871 Ancestors: Tools-mt.957 For MVC projects, fixes high CPU load during menu invocation. Note that #controlActivity is only used when PopUpMenu is invoked from within an MVC project. Yes, we should clean up this part in the future. Complements ST80-mt.251. =============== Diff against Tools-mt.957 =============== Item was changed: ----- Method: PopUpMenu>>controlActivity (in category 'basic control sequence') ----- controlActivity "Do whatever a menu must do - now with keyboard support." | didNotMove downPos | didNotMove := true. Sensor anyButtonPressed ifFalse: [didNotMove := false. Sensor waitButtonOrKeyboard]. + - Sensor keyboardPressed ifFalse: [self manageMarker]. (didNotMove and: [selection = 0]) ifTrue: [downPos := Sensor cursorPoint. [didNotMove and: [Sensor anyButtonPressed]] whileTrue: + [ Project current world activeController interActivityPause. + (downPos dist: Sensor cursorPoint) < 2 ifFalse: [didNotMove := false]]. - [(downPos dist: Sensor cursorPoint) < 2 ifFalse: [didNotMove := false]]. didNotMove ifTrue: [Sensor waitButtonOrKeyboard]]. [Sensor keyboardPressed] whileTrue: [self readKeyboard ifTrue: [^ self]. Sensor waitButtonOrKeyboard]. + [Sensor anyButtonPressed] whileTrue: [ + ScheduledControllers activeController interActivityPause. + self manageMarker]! - [Sensor anyButtonPressed] whileTrue: [self manageMarker]!

1 0

The Trunk: ST80-mt.251.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Marcel Taeumel uploaded a new version of ST80 to project The Trunk: http://source.squeak.org/trunk/ST80-mt.251.mcz ==================== Summary ==================== Name: ST80-mt.251 Author: mt Time: 15 April 2020, 5:53:42.145699 pm UUID: 07f97eb2-f0c8-df4c-9f7b-fa6225418264 Ancestors: ST80-mt.250 For MVC projects, fixes high CPU load during empty world and while scrolling lists. =============== Diff against ST80-mt.250 =============== Item was changed: ----- Method: Controller>>controlLoop (in category 'basic control sequence') ----- controlLoop "Sent by Controller|startUp as part of the standard control sequence. Controller|controlLoop sends the message Controller|isControlActive to test for loop termination. As long as true is returned, the loop continues. When false is returned, the loop ends. Each time through the loop, the message Controller|controlActivity is sent." + [self interActivityPause. self isControlActive] whileTrue: [ + self controlActivity. Processor yield]! - [self isControlActive] whileTrue: [ - self interActivityPause. self controlActivity. Processor yield]! Item was changed: ----- Method: ScrollController>>scrollAbsolute (in category 'private') ----- scrollAbsolute | markerOutline oldY markerForm | self changeCursor: Cursor rightArrow. oldY := -1. sensor anyButtonPressed ifTrue: [markerOutline := marker deepCopy. markerForm := Form fromDisplay: marker. Display fill: marker fillColor: scrollBar insideColor. Display border: markerOutline width: 1 fillColor: Color gray. markerForm follow: [oldY ~= sensor cursorPoint y ifTrue: [oldY := sensor cursorPoint y. marker := marker translateBy: 0 @ ((oldY - marker center y min: scrollBar inside bottom - marker bottom) max: scrollBar inside top - marker top). self scrollView]. marker origin] + while: [ + self interActivityPause. + sensor anyButtonPressed]. - while: [sensor anyButtonPressed]. Display fill: markerOutline fillColor: scrollBar insideColor. self moveMarker]!

1 0

The Trunk: Morphic-mt.1645.mcz
by commits＠source.squeak.org 15 Apr '20

15 Apr '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1645.mcz ==================== Summary ==================== Name: Morphic-mt.1645 Author: mt Time: 15 April 2020, 3:58:57.961534 pm UUID: 7c18f364-8317-2340-9326-cf101041cfb3 Ancestors: Morphic-mt.1644 Fixes the issue that an empty replacement string was not accepted by the text editor. Now it is. (Complements ToolBuilder-Kernel-mt.138) =============== Diff against Morphic-mt.1644 =============== Item was changed: ----- Method: TextEditor>>findReplace (in category 'menu messages') ----- findReplace self setSearchFromSelectionOrHistory; setReplacementFromHistory. + (Project uiManager + request: 'Find what to replace?' + initialAnswer: FindText) + ifNotEmpty: [:find | + + (Project uiManager + request: ('Replace ''{1}'' with?' format: {find}) + initialAnswer: (ChangeText ifEmpty: [find]) + onCancelReturn: nil) + ifNotNil: [:replace | + + FindText := find. + ChangeText := replace. + self findReplaceAgainNow]]! - (UIManager default request: 'Find what to replace?' initialAnswer: FindText) - ifEmpty: [^ self] - ifNotEmpty: [:find | - (UIManager default request: ('Replace ''{1}'' with?' format: {find}) initialAnswer: (ChangeText ifEmpty: [find])) - ifEmpty: [^ self] - ifNotEmpty: [:replace | - FindText := find. - ChangeText := replace. - self findReplaceAgainNow]]!

1 0

← Newer
1
...
15
16
17
18
19
20
21
...
24
Older →

Jump to page: