Packages July 2012

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Tests-nice.154.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.154.mcz ==================== Summary ==================== Name: Tests-nice.154 Author: nice Time: 27 July 2012, 8:14:03.431 pm UUID: fa846130-25ce-4a75-bcee-212b658a274a Ancestors: Tests-cwp.153 Use a workaround for testBecomeIdentityHash knowing that two objects created consecutively may share same identityHash. =============== Diff against Tests-cwp.153 =============== Item was changed: ----- Method: BecomeTest>>testBecomeIdentityHash (in category 'Testing') ----- testBecomeIdentityHash | a b c d numberOfRetry newAIdentityHash newBIdentityHash oldAIdentityHash oldBIdentityHash | numberOfRetry := 0. [a := 'ab' copy. + c := IdentitySet new: 1000. b := 'cd' copy. + d := IdentitySet new: 1000. "Note: the sets are allocated with enough room to reduce probability that two different hash lead to same slot" + "Note2: a & b creation are interleaved with c & d, because some VM allocate the same identityHash for two consecutively created objects" + c add: a; add: b. + d add: a. - (c := IdentitySet new: 1000) add: a; add: b. - (d := IdentitySet new: 1000) add: a. oldAIdentityHash := a identityHash. oldBIdentityHash := b identityHash. oldAIdentityHash = oldBIdentityHash and: [numberOfRetry < 10]] whileTrue: [numberOfRetry := numberOfRetry + 1]. self assert: oldAIdentityHash ~= oldBIdentityHash description: 'The VM is spawning too many equal identityHash to be honest'. a become: b. newAIdentityHash := a identityHash. newBIdentityHash := b identityHash. self "The set c & d can still retrieve their elements because elements did not change their expected position" assert: (c includes: a); assert: (c includes: b); assert: (d includes: a); deny: (d includes: b); "Elements didn't change their expected position because identityHash did not change" assert: oldAIdentityHash = newAIdentityHash; assert: oldBIdentityHash = newBIdentityHash!

1 0

The Trunk: Tests-nice.154.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

The Trunk: Environments-fbs.3.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.3.mcz ==================== Summary ==================== Name: Environments-fbs.3 Author: fbs Time: 27 July 2012, 3:45:30.98 pm UUID: f4f0bbda-663d-407b-8dbd-976eb031d247 Ancestors: Environments-cwp.2 Using a Workspace, if you misspell a classname you get a walkback because Environment doesn't understand #keysDo:. Implementing it results in the desired spelling correction prompt. =============== Diff against Environments-cwp.2 =============== Item was added: + ----- Method: Environment>>keysDo: (in category 'enumerating') ----- + keysDo: aBlock + "Evaluate aBlock for each of the receiver's keys." + + contents keysDo: aBlock!

1 0

The Trunk: Environments-fbs.3.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

The Trunk: Environments-fbs.3.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

The Trunk: Tests-cwp.153.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.153.mcz ==================== Summary ==================== Name: Tests-cwp.153 Author: cwp Time: 26 July 2012, 11:57:32.466 pm UUID: a0416b69-6b69-43f7-8ba9-63186a143c67 Ancestors: Tests-bf.152, Tests-cwp.150 merge Introduce EnvironmentTest. =============== Diff against Tests-bf.152 =============== 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'! Item was added: + TestCase subclass: #EnvironmentTest + instanceVariableNames: 'env value' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Environments'! Item was added: + ----- Method: EnvironmentTest>>createClass: (in category 'running') ----- + createClass: aSymbol + | builder | + builder := ClassBuilder new. + builder + name: aSymbol + inEnvironment: env + subclassOf: Object + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Test'. + ! Item was added: + ----- Method: EnvironmentTest>>disabledTestInternalVisibility (in category 'compiling tests') ----- + disabledTestInternalVisibility + | griffle plonk | + self createClass: #Griffle. + self createClass: #Plonk. + griffle := env at: #Griffle. + griffle compile: 'plonk ^ Plonk'. + plonk := griffle new plonk. + self assert: (env at: #Plonk) == plonk! Item was added: + ----- Method: EnvironmentTest>>setUp (in category 'running') ----- + setUp + env := Environment name: 'test'. + value := Object new.! Item was added: + ----- Method: EnvironmentTest>>tearDown (in category 'running') ----- + tearDown + env destroy! Item was added: + ----- Method: EnvironmentTest>>testAtDoesntFindUndeclared (in category 'binding tests') ----- + testAtDoesntFindUndeclared + env := Environment new. + env bindingOf: #Griffle. + self should: [ env at: #Griffle ] raise: KeyNotFound! Item was added: + ----- Method: EnvironmentTest>>testAtIfAbsent (in category 'compatibility tests') ----- + testAtIfAbsent + | result | + result := env at: #Griffle ifAbsent: [value]. + self assert: result == value! Item was added: + ----- Method: EnvironmentTest>>testAtIfAbsentNot (in category 'compatibility tests') ----- + testAtIfAbsentNot + | result | + env at: #Griffle put: value. + result := env at: #Griffle ifAbsent: [self assert: false]. + self assert: result == value! Item was added: + ----- Method: EnvironmentTest>>testAtIfPresent (in category 'compatibility tests') ----- + testAtIfPresent + | result | + env at: #Griffle put: value. + env at: #Griffle ifPresent: [:v | result := v]. + self assert: result == value! Item was added: + ----- Method: EnvironmentTest>>testAtIfPresentNot (in category 'compatibility tests') ----- + testAtIfPresentNot + env at: #Griffle ifPresent: [self assert: false].! Item was added: + ----- Method: EnvironmentTest>>testExplicitExport (in category 'export tests') ----- + testExplicitExport + env requireExplicitExports. + env at: #Griffle put: value. + env export: #Griffle. + self assert: (env exports at: #Griffle) == value! Item was added: + ----- Method: EnvironmentTest>>testImportFromOther (in category 'export tests') ----- + testImportFromOther + | foreign | + foreign := Environment new. + foreign at: #Griffle put: value. + env importEnvironment: foreign. + self assert: (env bindingOf: #Griffle) value == value! Item was added: + ----- Method: EnvironmentTest>>testReadOnlyBindings (in category 'binding tests') ----- + testReadOnlyBindings + | binding class | + class := Behavior new. + env at: #Griffle put: class. + binding := env bindingOf: #Griffle. + self + should: [binding value: nil] + raise: AttemptToWriteReadOnlyGlobal! Item was added: + ----- Method: EnvironmentTest>>testRequireExplicitExportIdempotency (in category 'export tests') ----- + testRequireExplicitExportIdempotency + env requireExplicitExports. + env at: #Griffle put: value. + env export: #Griffle. + env requireExplicitExports. + self assert: (env exports includesKey: #Griffle)! Item was added: + ----- Method: EnvironmentTest>>testRequireExplicitExports (in category 'export tests') ----- + testRequireExplicitExports + env requireExplicitExports. + env at: #Griffle put: Object new. + self assert: env exports isEmpty! Item was added: + ----- Method: EnvironmentTest>>testUndeclaredBindingMoved (in category 'binding tests') ----- + testUndeclaredBindingMoved + | assoc | + assoc := env bindingOf: #Griffle. + env at: #Griffle put: value. + self assert: (env at: #Griffle) == value! Item was added: + ----- Method: EnvironmentTest>>testWriteAndLookup (in category 'binding tests') ----- + testWriteAndLookup + | assoc | + env at: #Griffle put: value. + assoc := env bindingOf: #Griffle. + self assert: assoc key == #Griffle. + self assert: assoc value == value. + ! Item was added: + ----- Method: EnvironmentTest>>testWriteAndRead (in category 'binding tests') ----- + testWriteAndRead + env at: #Griffle put: value. + self assert: (env at: #Griffle) == value.!

1 0

The Trunk: Tests-cwp.153.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

The Trunk: Tests-cwp.153.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

The Trunk: Environments-cwp.2.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.2.mcz ==================== Summary ==================== Name: Environments-cwp.2 Author: cwp Time: 26 July 2012, 11:39:05.616 pm UUID: 12ac6d1f-fed7-404a-a3ff-d37329b9ce7f Ancestors: Environments-cwp.1 Added a class initializer to install an environment in Smalltalk globals. =============== Diff against Environments-cwp.1 =============== Item was added: + ----- Method: Environment class>>initialize (in category 'as yet unclassified') ----- + initialize + self install!

1 0

The Trunk: Environments-cwp.2.mcz
by commits＠source.squeak.org 27 Jul '12

27 Jul '12

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2012