Packages April 2022

packages@lists.squeakfoundation.org

1 participants
184 discussions

The Trunk: Tests-ct.447.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.447.mcz ==================== Summary ==================== Name: Tests-ct.447 Author: ct Time: 18 January 2021, 12:55:37.357232 pm UUID: 675252a4-a6d9-d442-b594-3c85592290a4 Ancestors: Tests-dtl.443 Fixes and supplements BecomeTest. - Updated #testBecomeForwardIdentityHash which has been broken since Collections-eem.885. Note that the referenced patch to #becomeForward: was a breaking change which we should make sure to document in the final release notes. - Added #testBecomeForwardIdentityAndHash to have a test for the classical primitiveArrayBecomeOneWay (primitive 72) again. - Added #testBecomeForwardCopyIdentityHash to test both bindings of the copyHash argument indeed. Please review! Fur further reference, see https://github.com/codefrau/SqueakJS/pull/117 where we were discussing the limitations/correctness of the current BecomeTest implementation. =============== Diff against Tests-dtl.443 =============== Item was added: + ----- Method: BecomeTest>>testBecomeForwardCopyIdentityHash (in category 'tests') ----- + testBecomeForwardCopyIdentityHash + "Check that + 1. the argument to becomeForward: is modified to have the receiver's identity hash. + 2. the receiver's identity hash is unchanged." + + | a b ha hb | + a := 'ab' copy. + b := 'cd' copy. + ha := a identityHash. + hb := b identityHash. + + a becomeForward: b copyHash: true. + + self + assert: ha equals: a identityHash; + assert: ha equals: b identityHash.! Item was added: + ----- Method: BecomeTest>>testBecomeForwardIdentityAndHash (in category 'tests') ----- + testBecomeForwardIdentityAndHash + "Check that + 1. the argument to becomeForward: is NOT modified to have the receiver's identity hash. + 2. the receiver's identity hash is unchanged." + + | a b ha | + a := 'ab' copy. + b := 'cd' copy. + ha := a identityHash. + + {a} elementsForwardIdentityAndHashTo: {b}. + + self + assert: ha equals: a identityHash; + assert: ha equals: b identityHash.! Item was changed: ----- Method: BecomeTest>>testBecomeForwardIdentityHash (in category 'tests') ----- testBecomeForwardIdentityHash "Check that + 1. the argument to becomeForward: is NOT modified to have the receiver's identity hash. - 1. the argument to becomeForward: is modified to have the receiver's identity hash. 2. the receiver's identity hash is unchanged." + | a b hb | - | a b ha | - a := 'ab' copy. b := 'cd' copy. + hb := b identityHash. + - ha := a identityHash. - a becomeForward: b. + - self + assert: a identityHash = hb; + assert: b identityHash = hb.! - assert: a identityHash = ha; - assert: b identityHash = ha. - - !

1 0

The Trunk: Tests-ct.465.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.465.mcz ==================== Summary ==================== Name: Tests-ct.465 Author: ct Time: 18 September 2021, 3:48:23.531191 pm UUID: 482a8de2-b171-b341-a16c-cb047f6c42fa Ancestors: Tests-eem.464 Adds regression test for a bug in Environment >> #removeKey:ifAbsent:. Make sure that the previous value of the binding is returned regardless of what the binding policies might do with it during removal. See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2021-August/216287.h… =============== Diff against Tests-eem.464 =============== Item was changed: ----- Method: EnvironmentTest>>testRemoveKey (in category 'tests - compatibility') ----- testRemoveKey "For compatibility with legacy code, environments should implement the dictionary protocol." + env importSelf. "undeclaring the binding via a binding policy while removing it must not affect the return value of #removeKey:." + env at: #Griffle put: self. + self + assert: self + equals: (env removeKey: #Griffle). + self + should: [env removeKey: #Griffle] - self - should: [env removeKey: #Griffle] raise: KeyNotFound.!

1 0

The Trunk: Tests-lrnp.482.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-lrnp.482.mcz ==================== Summary ==================== Name: Tests-lrnp.482 Author: lrnp Time: 18 April 2022, 5:38:05.257552 pm UUID: dbcc2021-223d-45e4-9f92-bd5d7429c657 Ancestors: Tests-ct.481 make test class not more restrictive than tested class A PackageInfo will return false if the categoryName is nil (via #category:matches:), but using #sameAs: will eventually signal an error. Matching PackageInfo's contract allows it to be present in the PackageOrganizer without needing to support it specially. =============== Diff against Tests-ct.481 =============== Item was changed: ----- Method: MCMockPackageInfo>>includesSystemCategory: (in category 'testing') ----- includesSystemCategory: categoryName + categoryName ifNil: [^false]. ^self systemCategories anySatisfy: [:cat | cat sameAs: categoryName]!

1 0

The Trunk: Tests-mt.484.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-mt.484.mcz ==================== Summary ==================== Name: Tests-mt.484 Author: mt Time: 27 April 2022, 4:12:06.79304 pm UUID: c8699d3a-d8e1-af42-a4e2-2411d925c4bb Ancestors: Tests-mt.483, Tests-lrnp.482 Merge Tests-lrnp.482 =============== Diff against Tests-mt.483 =============== Item was changed: TestCase subclass: #LocaleTest instanceVariableNames: 'sut' classVariableNames: '' poolDictionaries: '' category: 'Tests-Localization'! + + !LocaleTest commentStamp: 'tak 8/3/2005 18:24' prior: 0! + LocaleTest buildSuite run! Item was changed: ----- Method: MCMockPackageInfo>>includesSystemCategory: (in category 'testing') ----- includesSystemCategory: categoryName + categoryName ifNil: [^false]. ^self systemCategories anySatisfy: [:cat | cat sameAs: categoryName]!

1 0

The Trunk: SUnitTools-jr.5.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-jr.5.mcz ==================== Summary ==================== Name: SUnitTools-jr.5 Author: jr Time: 5 March 2020, 9:53:04.92876 pm UUID: 612a0a0e-43fa-de40-8370-f5e90d767232 Ancestors: SUnitTools-tcj.4 Allow to create a new test class immediately if none is found. =============== Diff against SUnitTools-tcj.4 =============== Item was added: + ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- + testAskToCreateNewTest: className + (self confirm: 'Test class not found. Create one?') ifFalse: [^ false]. + (ClassBuilder new) + name: className asSymbol + inEnvironment: self selectedClass environment + subclassOf: TestCase + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: + ((self selectedClass category includes: $-) + ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')] + ifFalse: [(self selectedClass category, 'Tests')]) asSymbol. + ^ true! Item was changed: ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName | cls selector | + (self class environment hasClassNamed: aClassName) ifFalse: + [(self testAskToCreateNewTest: aClassName) ifFalse: [^ self]]. - (self class environment hasClassNamed: aClassName) ifFalse: ["no dice" ^ self]. cls := self class environment classNamed: aClassName. (aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) ifTrue: [ToolSet browse: cls selector: selector] ifFalse: [ToolSet browseClass: cls].!

1 0

The Trunk: SUnitTools-jr.6.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-jr.6.mcz ==================== Summary ==================== Name: SUnitTools-jr.6 Author: jr Time: 5 March 2020, 10:10:24.44376 pm UUID: 2cefdc56-246b-d344-9116-465f7ccc1a20 Ancestors: SUnitTools-jr.5 Preselect tests category when browsing a class without a matching test method. Create the tests category in new classes. =============== Diff against SUnitTools-tcj.4 =============== Item was added: + ----- Method: BasicClassOrganizer>>categoryForTestCases (in category '*SUnitTools-accessing') ----- + categoryForTestCases + ^ self categories + detect: [:each | each beginsWith: 'test'] + ifNone: [Categorizer allCategory]! Item was added: + ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- + testAskToCreateNewTest: className + | newClass | + (self confirm: 'Test class not found. Create one?') ifFalse: [^ false]. + (ClassBuilder new) + name: className asSymbol + inEnvironment: self selectedClass environment + subclassOf: TestCase + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: + ((self selectedClass category includes: $-) + ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')] + ifFalse: [(self selectedClass category, 'Tests')]) asSymbol. + newClass := self selectedClass environment classNamed: className asSymbol. + newClass organization addCategory: #tests. + ^ true! Item was changed: ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName | cls selector | + (self class environment hasClassNamed: aClassName) ifFalse: + [(self testAskToCreateNewTest: aClassName) ifFalse: [^ self]]. - (self class environment hasClassNamed: aClassName) ifFalse: ["no dice" ^ self]. cls := self class environment classNamed: aClassName. (aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) ifTrue: [ToolSet browse: cls selector: selector] + ifFalse: + [ToolSet + browseClass: cls + category: cls organization categoryForTestCases].! - ifFalse: [ToolSet browseClass: cls].!

1 0

The Trunk: SUnitTools-mt.7.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitTools to project The Trunk: http://source.squeak.org/trunk/SUnitTools-mt.7.mcz ==================== Summary ==================== Name: SUnitTools-mt.7 Author: mt Time: 27 April 2022, 3:51:23.40004 pm UUID: aea49274-5dca-df45-aa76-a434ef13a552 Ancestors: SUnitTools-ct.6, SUnitTools-jr.6 Merge SUnitTools-jr.6 Allow to create a new test class immediately if none is found. Preselect tests category when browsing a class without a matching test method. Create the tests category in new classes. =============== Diff against SUnitTools-ct.6 =============== Item was added: + ----- Method: BasicClassOrganizer>>categoryForTestCases (in category '*SUnitTools-accessing') ----- + categoryForTestCases + ^ self categories + detect: [:each | each beginsWith: 'test'] + ifNone: [Categorizer allCategory]! Item was added: + ----- Method: CodeHolder>>testAskToCreateNewTest: (in category '*SUnitTools-running') ----- + testAskToCreateNewTest: className + | newClass | + (self confirm: 'Test class not found. Create one?') ifFalse: [^ false]. + (ClassBuilder new) + name: className asSymbol + inEnvironment: self selectedClass environment + subclassOf: TestCase + type: #normal + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: + ((self selectedClass category includes: $-) + ifTrue: [((self selectedClass category copyUpToLast: $-), '-Tests')] + ifFalse: [(self selectedClass category, 'Tests')]) asSymbol. + newClass := self selectedClass environment classNamed: className asSymbol. + newClass organization addCategory: #tests. + ^ true! Item was changed: ----- Method: CodeHolder>>testBrowseClassNamed:possibleMessageNamed: (in category '*SUnitTools-running') ----- testBrowseClassNamed: aClassName possibleMessageNamed: aMessageName | cls selector | + (self class environment hasClassNamed: aClassName) ifFalse: + [(self testAskToCreateNewTest: aClassName) ifFalse: [^ false]]. - (self class environment hasClassNamed: aClassName) - ifFalse: [^ false]. cls := self class environment classNamed: aClassName. (aMessageName notNil and: [cls includesLocalSelector: (selector := aMessageName asSymbol)]) ifTrue: [ToolSet browse: cls selector: selector] + ifFalse: + [ToolSet + browseClass: cls + category: cls organization categoryForTestCases]. - ifFalse: [ToolSet browseClass: cls]. - ^ true!

1 0

The Trunk: SUnitGUI-ct.81.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-ct.81.mcz ==================== Summary ==================== Name: SUnitGUI-ct.81 Author: ct Time: 22 August 2020, 8:03:59.041378 pm UUID: 73e8b227-7520-354a-986c-5e8a5991afc6 Ancestors: SUnitGUI-mt.79 Fix selection updates in TestRunner by sending missing observer updates. Same reason as ToolBuilder-Morphic-ct.253. =============== Diff against SUnitGUI-mt.79 =============== Item was changed: ----- Method: TestRunner>>categoryAt:put: (in category 'accessing-categories') ----- categoryAt: anInteger put: aBoolean categoriesSelected := categoriesSelected perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) with: (categories at: anInteger ifAbsent: [ ^ self ]). + self + changed: #categoryAt:; + changed: #categorySelected; + updateClasses.! - self changed: #categorySelected; updateClasses.! Item was changed: ----- Method: TestRunner>>classAt:put: (in category 'accessing-classes') ----- classAt: anInteger put: aBoolean classesSelected := classesSelected perform: (aBoolean ifTrue: [ #copyWith: ] ifFalse: [ #copyWithout: ]) with: (classes at: anInteger ifAbsent: [ ^ self ]). + self + changed: #classAt:; + changed: #classSelected; + changed: #hasRunnable.! - self changed: #classSelected; changed: #hasRunnable.!

1 0

The Trunk: SUnitGUI-lrnp.90.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-lrnp.90.mcz ==================== Summary ==================== Name: SUnitGUI-lrnp.90 Author: lrnp Time: 18 April 2022, 5:13:47.989855 pm UUID: bd9d504c-1cea-4133-b959-74ba427665ef Ancestors: SUnitGUI-mt.89 complements SUnit-lrnp.141 =============== Diff against SUnitGUI-mt.89 =============== Item was changed: ----- Method: TestRunner>>classMenu: (in category 'accessing-classes') ----- classMenu: aMenu ^ aMenu title: 'Classes'; add: 'Browse' action: #browseClass; addLine; add: 'Select all' action: #selectAllClasses; add: 'Select subclasses' action: #selectSubclasses; add: 'Select inversion' action: #selectInverseClasses; add: 'Select none' action: #selectNoClasses; addLine; add: 'Select failures' action: #selectClassesWithFailures; + add: 'Select errors' action: #selectClassesWithErrors; + add: 'Select failures & errors' action: #selectClassesWithDefects; - add: 'Select errors' action: #selectClassesWithRaisedErrors; - add: 'Select failures & errors' action: #selectClassesWithIssues; addLine; add: 'Filter...' action: #filterClasses; addLine; add: 'Refresh' action: #updateClasses; yourself.! Item was added: + ----- Method: TestRunner>>selectClassesWithDefects (in category 'accessing-classes') ----- + selectClassesWithDefects + "Use test history to select classes that previously did not fully pass." + + classesSelected := classes select: [:class | class hasDefects]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable! Item was added: + ----- Method: TestRunner>>selectClassesWithErrors (in category 'accessing-classes') ----- + selectClassesWithErrors + "Use test history to select classes that raised errors." + + classesSelected := classes select: [:class | class hasErrors]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable! Item was changed: ----- Method: TestRunner>>selectClassesWithFailures (in category 'accessing-classes') ----- selectClassesWithFailures "Use test history to select classes that failed." + classesSelected := classes select: [:class | class hasFailures]. - classesSelected := classes select: [:class | class hasAnyFailures]. self changed: #allSelections; changed: #classSelected; changed: #hasRunnable! Item was removed: - ----- Method: TestRunner>>selectClassesWithIssues (in category 'accessing-classes') ----- - selectClassesWithIssues - "Use test history to select classes that previously did not fully pass." - - classesSelected := classes select: [:class | class hasAnyIssues]. - self changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable! Item was removed: - ----- Method: TestRunner>>selectClassesWithRaisedErrors (in category 'accessing-classes') ----- - selectClassesWithRaisedErrors - "Use test history to select classes that raised errors." - - classesSelected := classes select: [:class | class hasRaisedAnyErrors]. - self changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable!

1 0

The Trunk: SUnitGUI-mt.91.mcz
by commits＠source.squeak.org 27 Apr '22

27 Apr '22

Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk: http://source.squeak.org/trunk/SUnitGUI-mt.91.mcz ==================== Summary ==================== Name: SUnitGUI-mt.91 Author: mt Time: 27 April 2022, 3:31:46.14404 pm UUID: d26c1d67-e039-2947-bd08-a048ac6b0889 Ancestors: SUnitGUI-tpr.90, SUnitGUI-lrnp.90 Merge SUnitGUI-lrnp.90 =============== Diff against SUnitGUI-tpr.90 =============== Item was changed: ----- Method: TestRunner>>classMenu: (in category 'accessing-classes') ----- classMenu: aMenu ^ aMenu title: 'Classes'; add: 'Browse' action: #browseClass; addLine; add: 'Select all' action: #selectAllClasses; add: 'Select subclasses' action: #selectSubclasses; add: 'Select inversion' action: #selectInverseClasses; add: 'Select none' action: #selectNoClasses; addLine; add: 'Select failures' action: #selectClassesWithFailures; + add: 'Select errors' action: #selectClassesWithErrors; + add: 'Select failures & errors' action: #selectClassesWithDefects; - add: 'Select errors' action: #selectClassesWithRaisedErrors; - add: 'Select failures & errors' action: #selectClassesWithIssues; addLine; add: 'Filter...' action: #filterClasses; addLine; add: 'Refresh' action: #updateClasses; yourself.! Item was added: + ----- Method: TestRunner>>selectClassesWithDefects (in category 'accessing-classes') ----- + selectClassesWithDefects + "Use test history to select classes that previously did not fully pass." + + classesSelected := classes select: [:class | class hasDefects]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable! Item was added: + ----- Method: TestRunner>>selectClassesWithErrors (in category 'accessing-classes') ----- + selectClassesWithErrors + "Use test history to select classes that raised errors." + + classesSelected := classes select: [:class | class hasErrors]. + self changed: #allSelections; + changed: #classSelected; + changed: #hasRunnable! Item was changed: ----- Method: TestRunner>>selectClassesWithFailures (in category 'accessing-classes') ----- selectClassesWithFailures "Use test history to select classes that failed." + classesSelected := classes select: [:class | class hasFailures]. - classesSelected := classes select: [:class | class hasAnyFailures]. self changed: #allSelections; changed: #classSelected; changed: #hasRunnable! Item was removed: - ----- Method: TestRunner>>selectClassesWithIssues (in category 'accessing-classes') ----- - selectClassesWithIssues - "Use test history to select classes that previously did not fully pass." - - classesSelected := classes select: [:class | class hasAnyIssues]. - self changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable! Item was removed: - ----- Method: TestRunner>>selectClassesWithRaisedErrors (in category 'accessing-classes') ----- - selectClassesWithRaisedErrors - "Use test history to select classes that raised errors." - - classesSelected := classes select: [:class | class hasRaisedAnyErrors]. - self changed: #allSelections; - changed: #classSelected; - changed: #hasRunnable!

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 2022