Packages November 2011

packages@lists.squeakfoundation.org

1 participants
159 discussions

The Trunk: SystemChangeNotification-Tests-laza.16.mcz
by commits＠source.squeak.org 04 Nov '11

04 Nov '11

Alexander Lazarević uploaded a new version of SystemChangeNotification-Tests to project The Trunk: http://source.squeak.org/trunk/SystemChangeNotification-Tests-laza.16.mcz ==================== Summary ==================== Name: SystemChangeNotification-Tests-laza.16 Author: laza Time: 3 November 2011, 8:09:52.984 am UUID: 8edbb2d9-dbf3-6d44-8e0d-941702d8f7cc Ancestors: SystemChangeNotification-Tests-laza.15 SystemOrganizer>>addCategory:before: does not trigger any notifications =============== Diff against SystemChangeNotification-Tests-bp.11 =============== Item was added: + TestCase subclass: #SystemChangeFileTest + instanceVariableNames: 'tempChangesFile' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemChangeNotification-Tests'! Item was added: + ----- Method: SystemChangeFileTest>>change:verify: (in category 'testing') ----- + change: changeBlock verify: verifyBlock + self prepare: [] change: changeBlock verify: verifyBlock! Item was added: + ----- Method: SystemChangeFileTest>>createClass: (in category 'private') ----- + createClass: name + ^Object + subclass: name + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: self genericClassCategory! Item was added: + ----- Method: SystemChangeFileTest>>directory (in category 'accessing') ----- + directory + "Where we want to place the temporary changes file" + ^FileDirectory default! Item was added: + ----- Method: SystemChangeFileTest>>genericClassCategory (in category 'private') ----- + genericClassCategory + ^(self prefixClassCategory, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericClassName (in category 'private') ----- + genericClassName + ^(self prefixClassName, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericInstVarName (in category 'private') ----- + genericInstVarName + ^(self prefixInstVarName, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericProtocol (in category 'private') ----- + genericProtocol + ^(self prefixProtocol, self randomString) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>genericSelector (in category 'private') ----- + genericSelector + ^(self prefixSelector, self randomString capitalized) asSymbol! Item was added: + ----- Method: SystemChangeFileTest>>prefixClassCategory (in category 'private') ----- + prefixClassCategory + ^self prefixGeneral, 'Category-'! Item was added: + ----- Method: SystemChangeFileTest>>prefixClassName (in category 'private') ----- + prefixClassName + ^self prefixGeneral, 'Class'! Item was added: + ----- Method: SystemChangeFileTest>>prefixGeneral (in category 'private') ----- + prefixGeneral + ^self class name select: [:each | each isUppercase]! Item was added: + ----- Method: SystemChangeFileTest>>prefixInstVarName (in category 'private') ----- + prefixInstVarName + ^self prefixGeneral asLowercase, 'InstVar'! Item was added: + ----- Method: SystemChangeFileTest>>prefixProtocol (in category 'private') ----- + prefixProtocol + ^self prefixGeneral asLowercase, ' protocol '! Item was added: + ----- Method: SystemChangeFileTest>>prefixSelector (in category 'private') ----- + prefixSelector + ^self prefixGeneral asLowercase, 'Selector'! Item was added: + ----- Method: SystemChangeFileTest>>prepare:change:verify: (in category 'testing') ----- + prepare: prepareBlock change: changeBlock verify: verifyBlock + "All tests follow this pattern. Beware that prepareBlock (and verifyBlock) will be evalutated twice." + + "Setup the testcourt" + prepareBlock value. + + "Embrace the changeBlock so that any changes to our testcourt + gets recorded in our temporary changes file" + self useTemporaryChangesFile. + changeBlock value. + "Check if the changes we made worked as expected. We need to do + this before we switch back to the standard changes file" + "We raise an Error if this fails, because then the testcase is broken" + [verifyBlock value] + on: TestFailure + do: [self error: 'The verifyBlock needs to validate the changes made in the changeBlock']. + self useStandardChangesFile. + + "Remove the testcourt completely" + self removeTestcourt. + + "Setup the testcourt once again" + prepareBlock value. + + "Replay the changes from the temporary changes file" + self replayChanges. + + "See if we got the same changes as we did before using the changeBlock" + verifyBlock value. + ! Item was added: + ----- Method: SystemChangeFileTest>>randomString (in category 'private') ----- + randomString + ^Character alphabet shuffled! Item was added: + ----- Method: SystemChangeFileTest>>removeTestcourt (in category 'private') ----- + removeTestcourt + SystemOrganization categories do: [:each | + (each beginsWith: self prefixClassCategory) ifTrue: [ + SystemOrganization removeSystemCategory: each. + ]. + ]. + + ! Item was added: + ----- Method: SystemChangeFileTest>>replayChanges (in category 'private') ----- + replayChanges + | file | + file := FileStream fileNamed: (self directory fullNameFor: self tempChangesName). + Transcript show: file contents; cr. + file fileIn. + ! Item was added: + ----- Method: SystemChangeFileTest>>tearDown (in category 'running') ----- + tearDown + self useStandardChangesFile. + tempChangesFile := tempChangesFile ifNotNil: [tempChangesFile close]. + (self directory fileExists: self tempChangesName) + ifTrue: [self directory deleteFileNamed: self tempChangesName]. + self removeTestcourt. + ! Item was added: + ----- Method: SystemChangeFileTest>>tempChangesName (in category 'accessing') ----- + tempChangesName + ^'temp.changes'! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryAdded (in category 'testing') ----- + testCategoryAdded + | aClassCategory | + aClassCategory := self genericClassCategory. + self + change: [ + SystemOrganization addCategory: aClassCategory. + ] + verify: [ + self assert: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryAddedBefore (in category 'testing') ----- + testCategoryAddedBefore + | aClassCategory | + aClassCategory := self genericClassCategory. + self + change: [ + SystemOrganization addCategory: aClassCategory before: nil. + ] + verify: [ + self assert: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryModified (in category 'as yet unclassified') ----- + testCategoryModified! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryRemoved (in category 'testing') ----- + testCategoryRemoved + | aClassCategory | + aClassCategory := self genericClassCategory. + self + prepare: [ + SystemOrganization addCategory: aClassCategory. + ] + change: [ + SystemOrganization removeCategory: aClassCategory. + ] + verify: [ + self deny: (SystemOrganization categories includes: aClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testCategoryRenamed (in category 'testing') ----- + testCategoryRenamed + | aNewClassCategory anOldClassCategory | + anOldClassCategory := self genericClassCategory. + aNewClassCategory := self genericClassCategory. + self + prepare: [ + SystemOrganization addCategory: anOldClassCategory. + ] + change: [ + SystemOrganization renameCategory: anOldClassCategory toBe: aNewClassCategory + ] + verify: [ + self assert: (SystemOrganization categories includes: aNewClassCategory). + self deny: (SystemOrganization categories includes: anOldClassCategory). + ] + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassAdded (in category 'testing') ----- + testClassAdded + | aClassName | + aClassName := self genericClassName. + self + change: [ + self createClass: aClassName. + ] + verify: [ + self assert: (Smalltalk keys includes: aClassName). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassCommented (in category 'testing') ----- + testClassCommented + | aClass aClassName aComment | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aComment := self randomString. + aClass classComment: aComment. + ] + verify: [ + self assert: aClass organization classComment string = aComment. + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassModified (in category 'testing') ----- + testClassModified + | aClass aClassName aInstVarName | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aInstVarName := self genericInstVarName. + aClass addInstVarName: aInstVarName. + ] + verify: [ + self assert: (aClass instVarNames includes: aInstVarName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassRecategorized (in category 'as yet unclassified') ----- + testClassRecategorized! Item was added: + ----- Method: SystemChangeFileTest>>testClassRemoved (in category 'testing') ----- + testClassRemoved + | aClass aClassName | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aClass removeFromSystem. + ] + verify: [ + self deny: (Smalltalk keys includes: aClassName). + ]. + ! Item was added: + ----- Method: SystemChangeFileTest>>testClassRenamed (in category 'testing') ----- + testClassRenamed + | aClass aNewClassName anOldClassName | + anOldClassName := self genericClassName. + aNewClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: anOldClassName. + ] + change: [ + aClass rename: aNewClassName. + ] + verify: [ + self assert: (Smalltalk keys includes: aNewClassName). + self deny: (Smalltalk keys includes: anOldClassName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testClassReorganized (in category 'as yet unclassified') ----- + testClassReorganized! Item was added: + ----- Method: SystemChangeFileTest>>testExpressionDoIt (in category 'testing') ----- + testExpressionDoIt + | aClassName | + aClassName := self genericClassName.. + self + prepare: [ + self createClass: aClassName. + ] + change: [ + Compiler evaluate: '(Smalltalk at: ', aClassName storeString, ') removeFromSystem'. + ] + verify: [ + self deny: (Smalltalk keys includes: aClassName). + ].! Item was added: + ----- Method: SystemChangeFileTest>>testMethodAdded (in category 'testing') ----- + testMethodAdded + | aClassName aClass aSelector | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aSelector := self genericSelector. + aClass compile: aSelector. + ] + verify: [ + self assert: (aClass methodDict keys includes: aSelector). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodModified (in category 'testing') ----- + testMethodModified + | aClassName aClass aSelector aMethodSource | + aClassName := self genericClassName. + aSelector := self genericSelector. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector, ' ', self randomString storeString. + ] + change: [ + aMethodSource := aSelector, ' ', self randomString storeString. + aClass compile: aMethodSource. + ] + verify: [ + self assert: (aClass sourceCodeAt: aSelector) string = aMethodSource. + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodRecategorized (in category 'testing') ----- + testMethodRecategorized + | aClassName aClass aNewProtocol aSelector anOldProtocol | + aClassName := self genericClassName. + aSelector := self genericSelector. + anOldProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector classified: anOldProtocol. + ] + change: [ + aNewProtocol := self genericProtocol. + aClass organization classify: aSelector under: aNewProtocol. + ] + verify: [ + self assert: (aClass organization categoryOfElement: aSelector) = aNewProtocol + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testMethodRemoved (in category 'testing') ----- + testMethodRemoved + | aClassName aClass aSelector | + aClassName := self genericClassName. + aSelector := self genericSelector. + self + prepare: [ + aClass := self createClass: aClassName. + aClass compile: aSelector. + ] + change: [ + aClass removeSelector: aSelector. + ] + verify: [ + self deny: (aClass methodDict keys includes: aSelector). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolAdded (in category 'testing') ----- + testProtocolAdded + | aClassName aClass aProtocol | + aClassName := self genericClassName. + aProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aClass organization addCategory: aProtocol. + ] + verify: [ + self assert: (aClass organization categories includes: aProtocol) + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolDefault (in category 'testing') ----- + testProtocolDefault + | aClassName aClass aSelector | + aClassName := self genericClassName. + self + prepare: [ + aClass := self createClass: aClassName. + ] + change: [ + aSelector := self genericSelector. + aClass compile: aSelector. + ] + verify: [ + self assert: (aClass organization categoryOfElement: aSelector) = aClass organization class default. + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolModified (in category 'as yet unclassified') ----- + testProtocolModified! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolRemoved (in category 'testing') ----- + testProtocolRemoved + | aClassName aClass aProtocol | + aClassName := self genericClassName. + aProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass organization addCategory: aProtocol. + ] + change: [ + aClass organization removeCategory: aProtocol. + ] + verify: [ + self deny: (aClass organization categories includes: aProtocol) + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>testProtocolRenamed (in category 'testing') ----- + testProtocolRenamed + | aClassName aClass anOldProtocol aNewProtocol | + aClassName := self genericClassName. + anOldProtocol := self genericProtocol. + self + prepare: [ + aClass := self createClass: aClassName. + aClass organization addCategory: anOldProtocol. + ] + change: [ + aNewProtocol := self genericProtocol. + aClass organization renameCategory: anOldProtocol toBe: aNewProtocol. + ] + verify: [ + self deny: (aClass organization categories includes: anOldProtocol). + self assert: (aClass organization categories includes: aNewProtocol). + ] + + ! Item was added: + ----- Method: SystemChangeFileTest>>useStandardChangesFile (in category 'private') ----- + useStandardChangesFile + Smalltalk + closeSourceFiles; + openSourceFiles! Item was added: + ----- Method: SystemChangeFileTest>>useTemporaryChangesFile (in category 'private') ----- + useTemporaryChangesFile + Smalltalk closeSourceFiles. + tempChangesFile := self directory forceNewFileNamed: self tempChangesName. + SourceFiles at: 2 put: tempChangesFile!

1 0

The Trunk: Collections-eem.464.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

Eliot Miranda uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-eem.464.mcz ==================== Summary ==================== Name: Collections-eem.464 Author: eem Time: 2 November 2011, 1:08:39.649 pm UUID: 0984ea11-ef0f-40e0-9de1-aea54055ef85 Ancestors: Collections-ul.463 Second part of changes to restore protection against infinite recursion on printing circular array literals. Add a visited set to Array>shouldBePrintedAsLiteral => shouldBePrintedAsLiteralVisiting:. =============== Diff against Collections-ul.463 =============== Item was changed: ----- Method: Array>>shouldBePrintedAsLiteral (in category 'testing') ----- shouldBePrintedAsLiteral + ^self class == Array + and: [self shouldBePrintedAsLiteralVisiting: (IdentitySet new: 8)]! - ^self class == Array and: [ self allSatisfy: [ :each | each shouldBePrintedAsLiteral ] ]! Item was added: + ----- Method: Array>>shouldBePrintedAsLiteralVisiting: (in category 'testing') ----- + shouldBePrintedAsLiteralVisiting: aSet + self class == Array ifFalse: + [^false]. + (aSet includes: self) ifTrue: + [^false]. + aSet add: self. + ^self allSatisfy: [:each | each shouldBePrintedAsLiteralVisiting: aSet]! Item was added: + ----- Method: Character>>shouldBePrintedAsLiteralVisiting: (in category 'testing') ----- + shouldBePrintedAsLiteralVisiting: aSet + + ^self shouldBePrintedAsLiteral!

1 0

The Trunk: Collections-eem.464.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

1 0

The Trunk: Collections-eem.464.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

1 0

The Trunk: Kernel-eem.648.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.648.mcz ==================== Summary ==================== Name: Kernel-eem.648 Author: eem Time: 2 November 2011, 12:58:59.757 pm UUID: c3ee000c-6816-4eff-9f24-4ddc497c4171 Ancestors: Kernel-nice.647 First part of changes to restore protection against infinite recursion on printing circular array literals. =============== Diff against Kernel-nice.647 =============== Item was added: + ----- Method: Object>>shouldBePrintedAsLiteralVisiting: (in category 'testing') ----- + shouldBePrintedAsLiteralVisiting: aSet + + ^self isLiteral!

1 0

The Trunk: Kernel-eem.648.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

1 0

The Trunk: Kernel-eem.648.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

1 0

The Trunk: KernelTests-nice.209.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.209.mcz ==================== Summary ==================== Name: KernelTests-nice.209 Author: nice Time: 2 November 2011, 8:12:16.968 pm UUID: 91e9e8ee-ff2b-4cce-8df3-ff2d1ade58ea Ancestors: KernelTests-nice.208 Restore the intention of testNaN2 which is to test both = and == (there can be several instances of NaN) Complete the ScaledDecimalTest (from Pharo) and correct intention (test absolute value of difference). =============== Diff against KernelTests-nice.208 =============== Item was changed: ----- Method: FloatTest>>testNaN2 (in category 'NaN behavior') ----- testNaN2 "Two NaN values are always considered to be different. On an little-endian machine (32 bit Intel), Float nan is 16rFFF80000 16r00000000. On a big-endian machine (PowerPC), Float nan is 16r7FF80000 16r00000000. Changing the bit pattern of the first word of a NaN produces another value that is still considered equal to NaN. This test should work on both little endian and big endian machines. However, it is not guaranteed to work on future 64 bit versions of Squeak, for which Float may have different internal representations." "FloatTest new testNaN2" | nan1 nan2 | nan1 := Float nan copy. nan2 := Float nan copy. "test two instances of NaN with the same bit pattern" self deny: nan1 = nan2. + self deny: nan1 == nan2. - self deny: nan1 = nan2. self deny: nan1 = nan1. self assert: nan1 == nan1. "change the bit pattern of nan1" self assert: nan1 size = 2. self assert: (nan1 at: 2) = 0. nan1 at: 1 put: (nan1 at: 1) + 999. self assert: nan1 isNaN. self assert: nan2 isNaN. self deny: (nan1 at: 1) = (nan2 at: 1). "test two instances of NaN with different bit patterns" self deny: nan1 = nan2. + self deny: nan1 == nan2. - self deny: nan1 = nan2. self deny: nan1 = nan1. self assert: nan1 == nan1 ! Item was changed: ----- Method: ScaledDecimalTest>>testConvertFromFloat (in category 'tests') ----- testConvertFromFloat | aFloat sd f2 diff | aFloat := 11/13 asFloat. sd := aFloat asScaledDecimal: 2. self assert: 2 = sd scale. self assert: '0.84s2' = sd printString. + self assert: '-0.84s2' = sd negated printString. f2 := sd asFloat. diff := f2 - aFloat. + self assert: diff abs < 1.0e-9. "actually, f = f2, but this is not a requirement" - self assert: diff < 1.0e-9. "actually, f = f2, but this is not a requirement" ! Item was changed: ----- Method: ScaledDecimalTest>>testConvertFromFractionWithScale (in category 'tests') ----- testConvertFromFractionWithScale | sd | sd := (13 / 11) asScaledDecimal: 6. self assert: ScaledDecimal == sd class. self assert: ('1.181818s6' = sd printString). + self assert: 6 = sd scale. + sd := (-13 / 11) asScaledDecimal: 6. + self assert: ScaledDecimal == sd class. + self assert: ('-1.181818s6' = sd printString). self assert: 6 = sd scale !

1 0

The Trunk: KernelTests-nice.209.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

1 0

The Trunk: KernelTests-nice.209.mcz
by commits＠source.squeak.org 02 Nov '11

02 Nov '11

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 2011