Packages April 2013

packages@lists.squeakfoundation.org

1 participants
195 discussions

The Trunk: Tests-cwp.196.mcz
by commits＠source.squeak.org 03 Apr '13

03 Apr '13

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.196.mcz ==================== Summary ==================== Name: Tests-cwp.196 Author: cwp Time: 3 April 2013, 9:50:31.378 am UUID: 21fbacb5-b2ee-45ab-b002-94a47b9ebf71 Ancestors: Tests-cwp.195 Add a test that ensures that assignments to globals evaluate to the value assigned, rather than the variable binding. =============== Diff against Tests-cwp.195 =============== Item was added: + ----- Method: EnvironmentTest>>storeValueMethod (in category 'running') ----- + storeValueMethod + ^ 'doStore + | expr result | + expr := Object new. + result := Plonk := expr. + ^ { expr. result } + '! Item was added: + ----- Method: EnvironmentTest>>testStoreDomesticValue (in category 'compiling tests') ----- + testStoreDomesticValue + | griffle values | + self createClass: #Griffle. + env at: #Plonk put: 'v1'. + + griffle := env at: #Griffle. + griffle compile: self storeValueMethod. + values := griffle new doStore. + + self assert: values isArray. + self assert: values size = 2. + self assert: values first == values last. + self assert: (env at: #Plonk) == values first! Item was added: + ----- Method: EnvironmentTest>>testStoreImportedValue (in category 'compiling tests') ----- + testStoreImportedValue + | griffle foreign values | + self createClass: #Griffle. + foreign := Environment withName: #Foreign. + foreign exportSelf. + foreign at: #Plonk put: 'v1'. + env from: foreign import: #Plonk. + + griffle := env at: #Griffle. + griffle compile: self storeValueMethod. + values := griffle new doStore. + + self assert: values isArray. + self assert: values size = 2. + self assert: values first == values last. + self assert: (foreign at: #Plonk) == values first!

1 0

The Trunk: Tests-cwp.196.mcz
by commits＠source.squeak.org 03 Apr '13

03 Apr '13

1 0

The Trunk: Tests-cwp.196.mcz
by commits＠source.squeak.org 03 Apr '13

03 Apr '13

1 0

The Trunk: Environments-fbs.21.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Frank Shearar uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-fbs.21.mcz ==================== Summary ==================== Name: Environments-fbs.21 Author: fbs Time: 2 April 2013, 2:56:27.995 pm UUID: a2afb389-193a-44a7-8664-559a4177936c Ancestors: Environments-cwp.20 When a class removes itself from the system, we need to forget about the class... including our reference to it in our list of bindings. =============== Diff against Environments-cwp.20 =============== Item was changed: ----- Method: Environment>>forgetClass:logged: (in category 'classes and traits') ----- forgetClass: aClass logged: aBool aBool ifTrue: [SystemChangeNotifier uniqueInstance classRemoved: aClass fromCategory: aClass category]. self organization removeElement: aClass name. Smalltalk removeFromStartUpList: aClass. Smalltalk removeFromShutDownList: aClass. contents removeKey: aClass name ifAbsent: []. + bindings removeKey: aClass name ifAbsent: [].! - !

1 0

The Trunk: Environments-fbs.21.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

1 0

The Trunk: Environments-fbs.21.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

1 0

The Trunk: Environments-cwp.20.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Colin Putney uploaded a new version of Environments to project The Trunk: http://source.squeak.org/trunk/Environments-cwp.20.mcz ==================== Summary ==================== Name: Environments-cwp.20 Author: cwp Time: 2 April 2013, 12:27:08.241 am UUID: ebb65551-c6d9-4a51-b174-6e6306fbf55f Ancestors: Environments-cwp.19 Bindings cleanup stage 2/2. =============== Diff against Environments-cwp.19 =============== Item was removed: - LookupKey subclass: #AbstractBinding - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Environments-Core'! Item was removed: - ----- Method: AbstractBinding class>>convertInstances (in category 'as yet unclassified') ----- - convertInstances - | new old | - old := Binding allInstances. - new := old collect: [:ea | ClassBinding key: ea key value: ea value]. - old elementsForwardIdentityTo: new. - - old := ReadOnlyVariableBinding allInstances. - new := old collect: [:ea | ClassBinding key: ea key value: ea value]. - old elementsForwardIdentityTo: new. - - Environment allInstancesDo: - [:env | - #('contents' 'bindings' 'public' 'undeclared') do: - [:var || dict | - old := Array new writeStream. - new := Array new writeStream. - dict := env instVarNamed: var. - dict associations do: - [:binding | - binding class == Association ifTrue: - [old nextPut: binding. - new nextPut: binding key => binding value]]. - old contents elementsForwardIdentityTo: new contents]]! Item was removed: - ----- Method: AbstractBinding class>>initialize (in category 'as yet unclassified') ----- - initialize - self convertInstances! Item was removed: - ----- Method: AbstractBinding>>analogousCodeTo: (in category 'as yet unclassified') ----- - analogousCodeTo: anObject - "For MethodProperties comparison." - ^anObject isVariableBinding - and: [self key = anObject key - and: [self value = anObject value]]! Item was removed: - ----- Method: AbstractBinding>>canAssign (in category 'as yet unclassified') ----- - canAssign - ^ true! Item was removed: - ----- Method: AbstractBinding>>isSpecialReadBinding (in category 'as yet unclassified') ----- - isSpecialReadBinding - ^ false! Item was removed: - ----- Method: AbstractBinding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- - isSpecialWriteBinding - ^ false! Item was removed: - ----- Method: AbstractBinding>>isVariableBinding (in category 'as yet unclassified') ----- - isVariableBinding - ^ true! Item was removed: - ----- Method: AbstractBinding>>objectForDataStream: (in category 'as yet unclassified') ----- - objectForDataStream: refStream - "It's not yet clear how serialization should work in the presence of environments" - - self shouldBeImplemented.! Item was removed: - ----- Method: AbstractBinding>>printOn: (in category 'as yet unclassified') ----- - printOn: aStream - key printOn: aStream. - aStream nextPutAll: '=>'. - self value printOn: aStream! Item was changed: + Binding subclass: #Alias - AbstractBinding subclass: #Alias instanceVariableNames: 'source' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: LookupKey subclass: #Binding + instanceVariableNames: '' - instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was added: + ----- Method: Binding class>>convertInstances (in category 'as yet unclassified') ----- + convertInstances + | new old | + old := Binding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + old := ReadOnlyVariableBinding allInstances. + new := old collect: [:ea | ClassBinding key: ea key value: ea value]. + old elementsForwardIdentityTo: new. + + Environment allInstancesDo: + [:env | + #('contents' 'bindings' 'public' 'undeclared') do: + [:var || dict | + old := Array new writeStream. + new := Array new writeStream. + dict := env instVarNamed: var. + dict associations do: + [:binding | + binding class == Association ifTrue: + [old nextPut: binding. + new nextPut: binding key => binding value]]. + old contents elementsForwardIdentityTo: new contents]]! Item was removed: - ----- Method: Binding class>>key:value: (in category 'as yet unclassified') ----- - key: key value: value - ^ self basicNew initializeWithKey: key value: value! Item was added: + ----- Method: Binding>>analogousCodeTo: (in category 'as yet unclassified') ----- + analogousCodeTo: anObject + "For MethodProperties comparison." + ^anObject isVariableBinding + and: [self key = anObject key + and: [self value = anObject value]]! Item was removed: - ----- Method: Binding>>asBinding: (in category 'as yet unclassified') ----- - asBinding: aSymbol - ^ self class key: aSymbol value: value! Item was changed: ----- Method: Binding>>canAssign (in category 'as yet unclassified') ----- canAssign + ^ true! - ^ false! Item was removed: - ----- Method: Binding>>initializeWithKey:value: (in category 'as yet unclassified') ----- - initializeWithKey: kObject value: vObject - self initialize. - key := kObject. - value := vObject.! Item was added: + ----- Method: Binding>>isSpecialReadBinding (in category 'as yet unclassified') ----- + isSpecialReadBinding + ^ false! Item was changed: ----- Method: Binding>>isSpecialWriteBinding (in category 'as yet unclassified') ----- isSpecialWriteBinding + ^ false! - ^ true! Item was added: + ----- Method: Binding>>isVariableBinding (in category 'as yet unclassified') ----- + isVariableBinding + ^ true! Item was added: + ----- Method: Binding>>objectForDataStream: (in category 'as yet unclassified') ----- + objectForDataStream: refStream + "It's not yet clear how serialization should work in the presence of environments" + + self shouldBeImplemented.! Item was added: + ----- Method: Binding>>printOn: (in category 'as yet unclassified') ----- + printOn: aStream + key printOn: aStream. + aStream nextPutAll: '=>'. + self value printOn: aStream! Item was removed: - ----- Method: Binding>>value (in category 'as yet unclassified') ----- - value - ^ value! Item was removed: - ----- Method: Binding>>value: (in category 'as yet unclassified') ----- - value: anObject - (AttemptToWriteReadOnlyGlobal signal: 'Cannot store into read-only bindings') - ifTrue: [value := anObject]! Item was changed: + Binding subclass: #ClassBinding - AbstractBinding subclass: #ClassBinding instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: ----- Method: Environment>>at:put: (in category 'emulating') ----- at: aSymbol put: anObject | binding | (contents includesKey: aSymbol) ifTrue: [contents at: aSymbol put: anObject] ifFalse: [(undeclared includesKey: aSymbol) ifTrue: [contents declare: aSymbol from: undeclared. contents at: aSymbol put: anObject] ifFalse: + [binding := aSymbol => anObject. - [binding := anObject isBehavior - ifTrue: [Binding key: aSymbol value: anObject] - ifFalse: [Association key: aSymbol value: anObject]. contents add: binding. exports bind: binding]]. ^ anObject ! Item was changed: + Binding subclass: #Global - AbstractBinding subclass: #Global instanceVariableNames: 'value' classVariableNames: '' poolDictionaries: '' category: 'Environments-Core'! Item was changed: ----- Method: ReadOnlyVariableBinding>>asBinding: (in category '*environments') ----- asBinding: aSymbol + ^ ClassBinding key: aSymbol value: value! - ^ Binding key: aSymbol value: value!

1 0

The Trunk: Environments-cwp.20.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

1 0

The Trunk: Environments-cwp.20.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

1 0

The Trunk: Tests-cwp.195.mcz
by commits＠source.squeak.org 02 Apr '13

02 Apr '13

Colin Putney uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-cwp.195.mcz ==================== Summary ==================== Name: Tests-cwp.195 Author: cwp Time: 1 April 2013, 11:13:55.788 pm UUID: d0b0de68-7e72-4291-a7c2-e9b35372660f Ancestors: Tests-dtl.194 Make environment tests use the new binding classes, add tests for #literalEqual:. =============== Diff against Tests-dtl.194 =============== Item was changed: ----- Method: AliasTest>>testAsBindingRead (in category 'tests') ----- testAsBindingRead | alias imported | + alias := (#Griffle => value) asBinding: #Plonk. - alias := (#Griffle -> value) asBinding: #Plonk. imported := alias asBinding: #Nurp. self assert: imported key = #Nurp. self assert: imported value == value! Item was changed: ----- Method: AliasTest>>testAsBindingWrite (in category 'tests') ----- testAsBindingWrite | alias imported global | + global := Global key: #Griffle value: Object new. - global := Association key: #Griffle value: Object new. alias := global asBinding: #Plonk. imported := alias asBinding: #Nurp. imported value: value. self assert: global value == value! Item was changed: ----- Method: AliasTest>>testCanAssign (in category 'tests') ----- testCanAssign | alias | + alias := Alias key: #Plonk source: #Giffle => value. - alias := Alias key: #Plonk source: #Giffle -> value. self assert: alias canAssign! Item was changed: ----- Method: AliasTest>>testIsSpecialRead (in category 'tests') ----- testIsSpecialRead | alias | + alias := Alias key: #Plonk source: #Griffle => value. - alias := Alias key: #Plonk source: #Griffle -> value. self assert: alias isSpecialReadBinding! Item was changed: ----- Method: AliasTest>>testIsSpecialWrite (in category 'tests') ----- testIsSpecialWrite | alias | + alias := Alias key: #Plonk source: #Griffle => value. - alias := Alias key: #Plonk source: #Griffle -> value. self assert: alias isSpecialWriteBinding! Item was added: + ----- Method: AliasTest>>testLiteralEqual (in category 'tests') ----- + testLiteralEqual + | global a1 a2 | + global := #Giffle => value. + a1 := global asBinding: #Plonk. + a2 := global asBinding: #Nurp. + self assert: (a1 literalEqual: a2) + ! Item was added: + ----- Method: AliasTest>>testLiteralUnequal (in category 'tests') ----- + testLiteralUnequal + | a1 a2 | + a1 := (#Giffle => value) asBinding: #Plonk. + a2 := (#Giffle => value) asBinding: #Plonk. + self deny: (a1 literalEqual: a2) + ! Item was changed: ----- Method: AliasTest>>testWrite (in category 'tests') ----- testWrite | alias global | + global := #Giffle => Object new. - global := #Giffle -> Object new. alias := Alias key: #Plonk source: global. alias value: value. self assert: global value == value. self assert: alias value == value.! Item was removed: - TestCase subclass: #BindingTest - instanceVariableNames: 'key value' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Environments'! Item was removed: - ----- Method: BindingTest>>setUp (in category 'as yet unclassified') ----- - setUp - key := Object new. - value := Object new.! Item was removed: - ----- Method: BindingTest>>testAsBindingRead (in category 'as yet unclassified') ----- - testAsBindingRead - | binding imported | - binding := Binding key: #Griffle value: value. - imported := binding asBinding: #Plonk. - self assert: imported key = #Plonk. - self assert: imported value == value.! Item was removed: - ----- Method: BindingTest>>testCanAssign (in category 'as yet unclassified') ----- - testCanAssign - | binding | - binding := Binding key: key value: value. - self deny: binding canAssign! Item was removed: - ----- Method: BindingTest>>testIsSpecialRead (in category 'as yet unclassified') ----- - testIsSpecialRead - | binding | - binding := Binding key: key value: value. - self deny: binding isSpecialReadBinding! Item was removed: - ----- Method: BindingTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- - testIsSpecialWrite - | binding | - binding := Binding key: key value: value. - self assert: binding isSpecialWriteBinding! Item was removed: - ----- Method: BindingTest>>testRead (in category 'as yet unclassified') ----- - testRead - | binding | - binding := Binding key: key value: value. - self assert: binding key == key. - self assert: binding value == value! Item was removed: - ----- Method: BindingTest>>testResumeExceptionToWrite (in category 'as yet unclassified') ----- - testResumeExceptionToWrite - | binding | - binding := Binding key: key value: Object new. - [binding value: value] - on: AttemptToWriteReadOnlyGlobal - do: [:ex | ex resume: true]. - self assert: binding value == value! Item was removed: - ----- Method: BindingTest>>testWriteRaisesException (in category 'as yet unclassified') ----- - testWriteRaisesException - | binding | - binding := Binding key: key value: value. - self - should: [binding value: Object new] - raise: AttemptToWriteReadOnlyGlobal.! Item was added: + TestCase subclass: #ClassBindingTest + instanceVariableNames: 'key value' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Environments'! Item was added: + ----- Method: ClassBindingTest>>setUp (in category 'as yet unclassified') ----- + setUp + key := Object new. + value := Object new.! Item was added: + ----- Method: ClassBindingTest>>testArrowBinding (in category 'as yet unclassified') ----- + testArrowBinding + | binding | + binding := #Griffle => self class. + self assert: binding class = ClassBinding. + self assert: binding key = #Griffle. + self assert: binding value = self class. + ! Item was added: + ----- Method: ClassBindingTest>>testAsBindingRead (in category 'as yet unclassified') ----- + testAsBindingRead + | binding imported | + binding := ClassBinding key: #Griffle value: value. + imported := binding asBinding: #Plonk. + self assert: imported key = #Plonk. + self assert: imported value == value.! Item was added: + ----- Method: ClassBindingTest>>testCanAssign (in category 'as yet unclassified') ----- + testCanAssign + | binding | + binding := ClassBinding key: key value: value. + self deny: binding canAssign! Item was added: + ----- Method: ClassBindingTest>>testIsSpecialRead (in category 'as yet unclassified') ----- + testIsSpecialRead + | binding | + binding := ClassBinding key: key value: value. + self deny: binding isSpecialReadBinding! Item was added: + ----- Method: ClassBindingTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- + testIsSpecialWrite + | binding | + binding := ClassBinding key: key value: value. + self assert: binding isSpecialWriteBinding! Item was added: + ----- Method: ClassBindingTest>>testLiteralEqual (in category 'as yet unclassified') ----- + testLiteralEqual + | b1 b2 | + b1 := #Griffle => self class. + b2 := #Plonk => self class. + self assert: (b1 literalEqual: b2)! Item was added: + ----- Method: ClassBindingTest>>testLiteralUnequal (in category 'as yet unclassified') ----- + testLiteralUnequal + | b1 b2 | + b1 := #Griffle => self class. + b2 := #Griffle => self class superclass. + self deny: (b1 literalEqual: b2)! Item was added: + ----- Method: ClassBindingTest>>testRead (in category 'as yet unclassified') ----- + testRead + | binding | + binding := ClassBinding key: key value: value. + self assert: binding key == key. + self assert: binding value == value! Item was added: + ----- Method: ClassBindingTest>>testResumeExceptionToWrite (in category 'as yet unclassified') ----- + testResumeExceptionToWrite + | binding | + binding := ClassBinding key: key value: Object new. + [binding value: value] + on: AttemptToWriteReadOnlyGlobal + do: [:ex | ex resume: true]. + self assert: binding value == value! Item was added: + ----- Method: ClassBindingTest>>testWriteRaisesException (in category 'as yet unclassified') ----- + testWriteRaisesException + | binding | + binding := ClassBinding key: key value: value. + self + should: [binding value: Object new] + raise: AttemptToWriteReadOnlyGlobal.! Item was changed: + AnObsoleteClassTestCase subclass: #EventManagerTest - ClassTestCase subclass: #EventManagerTest instanceVariableNames: 'eventSource eventListener succeeded' classVariableNames: '' poolDictionaries: '' category: 'Tests-Object Events'! Item was changed: + AnObsoleteClassTestCase subclass: #FileDirectoryTest - ClassTestCase subclass: #FileDirectoryTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Files'! Item was changed: + AnObsoleteClassTestCase subclass: #FileStreamTest - ClassTestCase subclass: #FileStreamTest instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Tests-Files'! Item was added: + ----- Method: GlobalTest>>testArrowBinding (in category 'as yet unclassified') ----- + testArrowBinding + | binding | + binding := #Griffle => value. + self assert: binding class = Global. + self assert: binding key = #Griffle. + self assert: binding value == value! Item was changed: ----- Method: GlobalTest>>testAsBindingRead (in category 'as yet unclassified') ----- testAsBindingRead | global imported | + global := Global key: key value: value. - global := Association key: key value: value. imported := global asBinding: #Griffle. self assert: imported key = #Griffle. self assert: imported value == value. ! Item was changed: ----- Method: GlobalTest>>testAsBindingWrite (in category 'as yet unclassified') ----- testAsBindingWrite | global imported | + global := Global key: key value: Object new. - global := Association key: key value: Object new. imported := global asBinding: #Griffle. imported value: value. self assert: imported value == value. ! Item was changed: ----- Method: GlobalTest>>testCanAssign (in category 'as yet unclassified') ----- testCanAssign | global | + global := Global key: key value: value. - global := Association key: key value: value. self assert: global canAssign! Item was changed: ----- Method: GlobalTest>>testIsSpecialRead (in category 'as yet unclassified') ----- testIsSpecialRead | global | + global := Global key: key value: value. - global := Association key: key value: value. self deny: global isSpecialReadBinding! Item was changed: ----- Method: GlobalTest>>testIsSpecialWrite (in category 'as yet unclassified') ----- testIsSpecialWrite | global | + global := Global key: key value: value. - global := Association key: key value: value. self deny: global isSpecialWriteBinding! Item was added: + ----- Method: GlobalTest>>testLiteralEqual (in category 'as yet unclassified') ----- + testLiteralEqual + | global | + global := #Griffle => value. + self assert: (global literalEqual: global)! Item was added: + ----- Method: GlobalTest>>testLiteralUnequal (in category 'as yet unclassified') ----- + testLiteralUnequal + | g1 g2 | + g1 := #Griffle => value. + g2 := #Griffle => value. + self deny: (g1 literalEqual: g2)! Item was changed: ----- Method: GlobalTest>>testRead (in category 'as yet unclassified') ----- testRead | global | + global := Global key: key value: value. - global := Association key: key value: value. self assert: global key == key. self assert: global value == value.! Item was changed: ----- Method: GlobalTest>>testWrite (in category 'as yet unclassified') ----- testWrite | global | + global := Global key: key value: Object new. - global := Association key: key value: Object new. global value: value. self assert: global value == value! Item was added: + ----- Method: NamePolicyTest class>>isAbstract (in category 'as yet unclassified') ----- + isAbstract + ^ self name = #NamePolicyTest! Item was changed: + AnObsoleteClassTestCase subclass: #PrimCallControllerAbstractTest - ClassTestCase subclass: #PrimCallControllerAbstractTest instanceVariableNames: 'pcc doNotMakeSlowTestsFlag' classVariableNames: '' poolDictionaries: '' category: 'Tests-PrimCallController'! !PrimCallControllerAbstractTest commentStamp: 'sr 6/15/2004 19:20' prior: 0! PrimCallController tests. Tests are here, but this class isAbstract and won't be tested. Tests are done in the subclasses, which inherit the tests here. If you want to perform some more very slow tests, change doNotMakeSlowTestsFlag in >>setUp.! Item was changed: + AnObsoleteClassTestCase subclass: #SecureHashAlgorithmTest - ClassTestCase subclass: #SecureHashAlgorithmTest instanceVariableNames: 'hash' classVariableNames: '' poolDictionaries: '' category: 'Tests-Digital Signatures'! !SecureHashAlgorithmTest commentStamp: '<historical>' prior: 0! This is the unit test for the class SecureHashAlgorithm. Unit tests are a good way to exercise the functionality of your system in a repeatable and automatic manner. They are therefore recommended if you plan to release anything. For more information, see: - http://www.c2.com/cgi/wiki?UnitTest - http://minnow.cc.gatech.edu/squeak/1547 - the sunit class category!

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 April 2013