Packages November 2013

packages@lists.squeakfoundation.org

1 participants
315 discussions

The Trunk: Tests-fbs.261.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.261.mcz ==================== Summary ==================== Name: Tests-fbs.261 Author: fbs Time: 4 November 2013, 6:40:42.33 pm UUID: f5961117-ed1d-7743-ad50-ef8c0cca4ab7 Ancestors: Tests-fbs.260 Delete testInfoProxy as per Chris Muller's request, to see if it unbreaks CI. =============== Diff against Tests-fbs.260 =============== Item was removed: - ----- Method: MCWorkingCopyTest>>testInfoProxy (in category 'tests') ----- - testInfoProxy - | latestSnapshot instanceCountBefore notificationReceived allAncestorsBefore | - <timeout: 10> - latestSnapshot := (1 to: 13) - inject: self snapshot - into: [ : snap : n | self change: #someMethod toReturn: n; snapshot ]. - Smalltalk garbageCollect. - instanceCountBefore := MCVersionInfo instanceCount. - allAncestorsBefore := workingCopy ancestry allAncestors. - workingCopy stubAncestry. - repositoryGroup flushCache. - Smalltalk garbageCollect. - "We're only one less rather than three, because we're using an in-memory repository" - self assert: instanceCountBefore < MCVersionInfo instanceCount. - notificationReceived := false. - [ self assert: allAncestorsBefore = workingCopy ancestry allAncestors ] - on: MCProxyMaterialization - do: - [ : noti | notificationReceived := true. - noti defaultAction ]. - self - assert: notificationReceived ; - assert: MCVersionInfo instanceCount >= instanceCountBefore. - "Very important to ensure saving does not save a truncated ancestry hierarchy." - workingCopy stubAncestry. - self change: #someMethod toReturn: 14; snapshot. - self assert: workingCopy ancestry ancestors anyOne allAncestors = allAncestorsBefore!

1 0

The Trunk: Tests-fbs.261.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

1 0

The Trunk: Tests-fbs.260.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.260.mcz ==================== Summary ==================== Name: Tests-fbs.260 Author: fbs Time: 4 November 2013, 6:34:11.676 pm UUID: 60aafff2-a5b5-854d-9b22-88bda06a2565 Ancestors: Tests-fbs.259 Move collection tests where they belong. =============== Diff against Tests-fbs.259 =============== Item was removed: - TestCase subclass: #ByteArrayBugz - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: ByteArrayBugz>>testByteArrayLongAt (in category 'as yet unclassified') ----- - testByteArrayLongAt - | ba value | - ba := ByteArray new: 4. - value := -1. - self shouldnt:[ba longAt: 1 put: value bigEndian: true] raise: Error. - self assert: (ba longAt: 1 bigEndian: true) = value. - self shouldnt:[ba longAt: 1 put: value bigEndian: false] raise: Error. - self assert: (ba longAt: 1 bigEndian: false) = value. - ! Item was removed: - TestCase subclass: #DictionaryIntegrityTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: DictionaryIntegrityTest>>testDictionaries (in category 'tests') ----- - testDictionaries - - #( - Dictionary - IdentityDictionary - SystemDictionary - LiteralDictionary - PluggableDictionary - WeakValueDictionary) do: [ :dictionaryClassName | - Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass | - dictionaryClass allInstancesDo: [ :dictionary | - dictionary keysAndValuesDo: [ :key :value | - self assert: (dictionary at: key) == value ]. - dictionary array doWithIndex: [ :association :index | - association ifNotNil: [ - self assert: (dictionary scanFor: association key) = index ] ] ] ] ]! Item was removed: - ----- Method: DictionaryIntegrityTest>>testMethodDictionaries (in category 'tests') ----- - testMethodDictionaries - - MethodDictionary allInstancesDo: [ :dictionary | - dictionary keysAndValuesDo: [ :key :value | - self assert: (dictionary at: key) == value ]. - 1 to: dictionary basicSize do: [ :index | - (dictionary basicAt: index) - ifNil: [ self assert: (dictionary array at: index) isNil ] - ifNotNil: [ :key | - self assert: (dictionary scanFor: key) = index ] ] ]! Item was removed: - TestCase subclass: #HashedCollectionIntegrityTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: HashedCollectionIntegrityTest>>testCapacity (in category 'as yet unclassified') ----- - testCapacity - - | inconsistentCollections | - inconsistentCollections := HashedCollection allSubInstances reject: [ :each | - each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" - ifTrue: [ each capacity isPowerOfTwo ] - ifFalse: [ each capacity isPrime ] ]. - self assert: inconsistentCollections isEmpty! Item was removed: - Object subclass: #NameOfSubclass - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - TestCase subclass: #StreamBugz - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Tests-Bugs'! Item was removed: - ----- Method: StreamBugz>>testReadWriteStreamNextNBug (in category 'as yet unclassified') ----- - testReadWriteStreamNextNBug - | aStream | - aStream := ReadWriteStream on: String new. - aStream nextPutAll: 'Hello World'. - self shouldnt:[aStream next: 5] raise: Error. - !

1 0

The Trunk: Tests-fbs.260.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

1 0

The Trunk: Tests-fbs.260.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

1 0

The Trunk: CollectionsTests-fbs.207.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

Frank Shearar uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-fbs.207.mcz ==================== Summary ==================== Name: CollectionsTests-fbs.207 Author: fbs Time: 4 November 2013, 6:31:01.83 pm UUID: 4057d67b-5969-8b41-85d1-43fd39da4bb1 Ancestors: CollectionsTests-cmm.206 Move collection tests where they belong. =============== Diff against CollectionsTests-cmm.206 =============== Item was added: + ----- Method: ByteArrayTest>>testByteArrayLongAt (in category 'as yet unclassified') ----- + testByteArrayLongAt + | ba value | + ba := ByteArray new: 4. + value := -1. + self shouldnt:[ba longAt: 1 put: value bigEndian: true] raise: Error. + self assert: (ba longAt: 1 bigEndian: true) = value. + self shouldnt:[ba longAt: 1 put: value bigEndian: false] raise: Error. + self assert: (ba longAt: 1 bigEndian: false) = value.! Item was added: + ----- Method: DictionaryTest>>testIntegrityOfDictionaries (in category 'integrity tests') ----- + testIntegrityOfDictionaries + #( + Dictionary + IdentityDictionary + SystemDictionary + LiteralDictionary + PluggableDictionary + WeakValueDictionary) do: [ :dictionaryClassName | + Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass | + dictionaryClass allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + dictionary array doWithIndex: [ :association :index | + association ifNotNil: [ + self assert: (dictionary scanFor: association key) = index ] ] ] ] ]! Item was added: + ----- Method: DictionaryTest>>testMethodDictionaries (in category 'integrity tests') ----- + testMethodDictionaries + MethodDictionary allInstancesDo: [ :dictionary | + dictionary keysAndValuesDo: [ :key :value | + self assert: (dictionary at: key) == value ]. + 1 to: dictionary basicSize do: [ :index | + (dictionary basicAt: index) + ifNil: [ self assert: (dictionary array at: index) isNil ] + ifNotNil: [ :key | + self assert: (dictionary scanFor: key) = index ] ] ]! Item was added: + ----- Method: HashedCollectionTest>>testCapacity (in category 'test - integrity') ----- + testCapacity + + | inconsistentCollections | + inconsistentCollections := HashedCollection allSubInstances reject: [ :each | + each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size" + ifTrue: [ each capacity isPowerOfTwo ] + ifFalse: [ each capacity isPrime ] ]. + self assert: inconsistentCollections isEmpty! Item was added: + ----- Method: ReadWriteStreamTest>>testReadWriteStreamNextNBug (in category 'tests') ----- + testReadWriteStreamNextNBug + | aStream | + aStream := ReadWriteStream on: String new. + aStream nextPutAll: 'Hello World'. + self shouldnt:[aStream next: 5] raise: Error.!

1 0

The Trunk: CollectionsTests-fbs.207.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

1 0

The Trunk: CollectionsTests-fbs.207.mcz
by commits＠source.squeak.org 04 Nov '13

04 Nov '13

1 0

The Trunk: CommandLine-fbs.2.mcz
by commits＠source.squeak.org 02 Nov '13

02 Nov '13

Frank Shearar uploaded a new version of CommandLine to project The Trunk: http://source.squeak.org/trunk/CommandLine-fbs.2.mcz ==================== Summary ==================== Name: CommandLine-fbs.2 Author: fbs Time: 2 November 2013, 9:47:04.27 pm UUID: 414e59b8-4f4a-814d-9dac-b7b9886e92a0 Ancestors: CommandLine-fbs.1 SmalltalkImage current -> Smalltalk. =============== Diff against CommandLine-fbs.1 =============== Item was changed: ----- Method: CommandLineToolSet class>>debugError: (in category 'debugging') ----- debugError: anError "Print out a sensible stack trace and bail" | problemPlace s | self saveSnapshotOnError ifTrue: [Smalltalk saveAs: 'Debug-' , (Smalltalk imageName subStrings: '/') last]. problemPlace := anError signalerContext. s := FileStream stderr. (anError isKindOf: MessageNotUnderstood) ifTrue: [ s nextPutAll: anError messageText; cr; nextPutAll: problemPlace sender methodNode printString; cr]. (problemPlace stackOfSize: 20) do: [:ctx | s cr. ctx printOn: s]. s flush. + Smalltalk snapshot: false andQuit: true! - SmalltalkImage current snapshot: false andQuit: true!

1 0

The Trunk: CommandLine-fbs.2.mcz
by commits＠source.squeak.org 02 Nov '13

02 Nov '13

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