Packages February 2013

packages@lists.squeakfoundation.org

1 participants
180 discussions

The Trunk: SUnit-eem.91.mcz
by commits＠source.squeak.org 06 Feb '13

06 Feb '13

Eliot Miranda uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-eem.91.mcz ==================== Summary ==================== Name: SUnit-eem.91 Author: eem Time: 5 February 2013, 9:45:22.157 pm UUID: 563010a6-5bbc-4312-ae7c-b09410b24fad Ancestors: SUnit-cmm.90 Robust testCase printing. i.e. TestCase new asString should not raise an error. =============== Diff against SUnit-cmm.90 =============== Item was changed: ----- Method: TestCase>>printOn: (in category 'printing') ----- printOn: aStream + testSelector + ifNil: [super printOn: aStream] + ifNotNil: + [aStream + nextPutAll: self class printString; + nextPutAll: '>>#'; + nextPutAll: testSelector] ! - aStream - nextPutAll: self class printString; - nextPutAll: '>>#'; - nextPutAll: testSelector - !

1 0

The Trunk: SUnit-cmm.90.mcz
by commits＠source.squeak.org 05 Feb '13

05 Feb '13

Chris Muller uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-cmm.90.mcz ==================== Summary ==================== Name: SUnit-cmm.90 Author: cmm Time: 4 January 2013, 3:33:36.616 pm UUID: 8533f0b4-2587-412b-b465-4ad7f20331d0 Ancestors: SUnit-ul.89 - Do not wipe out pre-initialized state on TestCases. Tests do not need to be prevented from running more than once if proper setUp/tearDown methods are present. =============== Diff against SUnit-ul.89 =============== Item was changed: ----- Method: TestCase>>debug (in category 'running') ----- debug + self resources do: + [ : res | res isAvailable ifFalse: [ ^ res signalInitializationError ] ]. + [ self runCase ] ensure: + [ self resources do: + [ : each | each reset ] ]! - self resources do: [:res | - res isAvailable ifFalse: [^res signalInitializationError]]. - [(self class selector: testSelector) runCase] - ensure: [self resources do: [:each | each reset]] - !

1 0

The Trunk: SUnit-cmm.90.mcz
by commits＠source.squeak.org 05 Feb '13

05 Feb '13

1 0

The Trunk: SUnit-cmm.90.mcz
by commits＠source.squeak.org 05 Feb '13

05 Feb '13

1 0

The Trunk: Installer-Core-TestRunner.363.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '13

Frank Shearar uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-TestRunner.363.mcz ==================== Summary ==================== Name: Installer-Core-TestRunner.363 Author: TestRunner Time: 2 February 2013, 3:10:22.874 pm UUID: ea87a4c2-0b47-4035-a15e-17288bc10463 Ancestors: Installer-Core-fbs.361, Installer-Core-fbs.362 Installer repository failover #2 of 2: InstallerMonticello uses an MCRepositoryGroup, so that attempting to load a particular version will try each repository in turn. #basicView will open _all_ the InstallerMonticello's repositories. =============== Diff against Installer-Core-fbs.361 =============== Item was changed: ----- Method: InstallerMonticello>>cache (in category 'instance creation') ----- cache + | cache | + cache := self classMCCacheRepository default. + mc addRepository: cache. + root := cache directory localName.! - - mc := self classMCCacheRepository default. - root := mc directory localName - ! Item was changed: ----- Method: InstallerMonticello>>directory: (in category 'instance creation') ----- directory: dir - | directory | directory := dir isString ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] ifFalse: [ dir ]. + mc addRepository: (self classMCDirectoryRepository new directory: directory; yourself). - mc := self classMCDirectoryRepository new directory: directory; yourself. root := dir ! Item was changed: ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'instance creation') ----- ftp: host directory: dir user: name password: secret "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + mc addRepository: (self classMCFtpRepository host: host directory: dir user: name password: secret; yourself). - mc := self classMCFtpRepository host: host directory: dir user: name password: secret. root := dir. ! Item was changed: ----- Method: InstallerMonticello>>goods:port: (in category 'instance creation') ----- goods: host port: aport + mc addRepository: ((self classMCGOODSRepository new) host: host port: aport; yourself) - mc := (self classMCGOODSRepository new) host: host port: aport; yourself ! Item was changed: ----- Method: InstallerMonticello>>http:user:password: (in category 'instance creation') ----- http: aUrl user: name password: secret + | url http | - | url | url := (aUrl includesSubString: '://') ifTrue: [aUrl] ifFalse: ['http://', aUrl]. + http := self classMCHttpRepository location: url user: name password: secret. + mc addRepository: http. + root := http locationWithTrailingSlash - mc := self classMCHttpRepository location: url user: name password: secret. - root := mc locationWithTrailingSlash ! Item was added: + ----- Method: InstallerMonticello>>initialize (in category 'public interface') ----- + initialize + super initialize. + mc := MCRepositoryGroup new.! Item was changed: ----- Method: InstallerMonticello>>label (in category 'accessing') ----- label + ^ 'repositories: #(', + ((mc repositories allButFirst + collect: [:repo | repo description surroundedBySingleQuotes]) + reduce: [:acc :each | acc, ' ', each]), + ');'.! - ^ 'repository:''', mc description, ''''! Item was changed: ----- Method: InstallerMonticello>>magma:port: (in category 'instance creation') ----- magma: host port: aport + mc addRepository: ((self classMCMagmaRepository new) host: host port: aport; yourself) - mc := (self classMCMagmaRepository new) host: host port: aport; yourself ! Item was changed: ----- Method: InstallerMonticello>>mc (in category 'accessing') ----- mc + "Return the GROUP of Monticello repositories." - ^ mc! Item was changed: ----- Method: InstallerMonticello>>mc: (in category 'accessing') ----- mc: aRepo + mc addRepository: aRepo! - - mc := aRepo! Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader | loader := self classMCVersionLoader new. + - self logCR: 'reading ' , mc description , '...'. "several attempts to read files - repository readableFileNames sometimes fails" self packages do: [:pkg | | versionNames fileToLoad version | versionNames := mc versionNamesForPackageNamed: (pkg asMCVersionName versionNumber = 0 ifTrue: [ "Just a package name specified, use it whole." pkg ] ifFalse: [pkg asMCVersionName packageName]). versionNames sort: self mcSortFileBlock. fileToLoad := versionNames detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ]. fileToLoad ifNotNil: [version := mc versionNamed: fileToLoad. (version isKindOf: MCConfiguration) ifTrue: [^ version] + ifFalse: [self normalizedRepositories do: [:repo | + MCRepositoryGroup default addRepository: repo]. + self normalizedRepositories do: [:repo | + version workingCopy repositoryGroup addRepository: repo]. - ifFalse: [MCRepositoryGroup default addRepository: self normalizedRepository. - version workingCopy repositoryGroup addRepository: self normalizedRepository. loader addVersion: version]. self logCR: ' found ' , version fileName , '...']]. ^ loader! Item was added: + ----- Method: InstallerMonticello>>normalizedRepositories (in category 'monticello') ----- + normalizedRepositories + "Find an existing instance of any active repository so that we use whatever name and password the user usually uses. If not found, answer a copy" + ^ mc repositories replace: [:repo | + (self classMCRepositoryGroup default repositories includes: repo) + ifTrue: [repo] + ifFalse: [repo copy]]! Item was removed: - ----- Method: InstallerMonticello>>normalizedRepository (in category 'monticello') ----- - normalizedRepository - "Find an existing instance of the active repository so that we use whatever name and password the user usually uses. If not found, answer a copy" - - self classMCRepositoryGroup default repositoriesDo: [:ea | - mc = ea ifTrue: [^ ea]]. - ^ mc copy! Item was changed: ----- Method: InstallerMonticello>>project: (in category 'accessing') ----- project: name + | locs dirs all | - project := name. packages := nil. + "mc repositories is a collection of repositories created on the fly. Store a reference to it so we have a stable working set." + all := mc repositories. + "Some repositories point to more specific parts within their structures when given a project name. An HTTP repository adds the project name to its path, for instance. A cache repository, despite being directory based, does not." + locs := all select: [:repo | repo respondsTo: #location:]. + dirs := all select: [:repo | (repo respondsTo: #directory:) and: [(repo respondsTo: #cacheForPackage:) not]]. + locs do: [:repo | + mc removeRepository: repo. + mc addRepository: (repo copy location: root , name)]. + dirs do: [:repo | + mc removeRepository: repo. + mc addRepository: (repo copy directory: root ,'/', name)]. - - (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. - (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. ^self copy.!

1 0

The Trunk: Installer-Core-TestRunner.363.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '13

1 0

The Trunk: Installer-Core-TestRunner.363.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '13

1 0

The Trunk: Monticello-fbs.532.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '13

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.532.mcz ==================== Summary ==================== Name: Monticello-fbs.532 Author: fbs Time: 25 January 2013, 12:00:08.217 pm UUID: 0c078b49-3e60-4c4f-89d1-b09d64ff98eb Ancestors: Monticello-bf.531 Installer repository failover #1 of 2: Make MCRepositoryGroup behave more like a repository, finding the repository/repositories containing a particular version. =============== Diff against Monticello-bf.531 =============== Item was added: + ----- Method: MCRepositoryGroup>>morphicOpen: (in category 'as yet unclassified') ----- + morphicOpen: aWorkingCopy + ^ self repositories do: [:repo | repo morphicOpen: aWorkingCopy].! Item was added: + ----- Method: MCRepositoryGroup>>versionNamed: (in category 'versions') ----- + versionNamed: aString + self repositories do: [:repo | | version | + version := [repo versionNamed: aString] on: Error do: [nil]. + version ifNotNil: [:v | ^ v]]. + self error: 'No repositories contain version ', aString.! Item was added: + ----- Method: MCRepositoryGroup>>versionNamesForPackageNamed: (in category 'versions') ----- + versionNamesForPackageNamed: aString + ^ self repositories gather: [:repo | + [repo versionNamesForPackageNamed: aString] on: Error do: [#()]]!

1 0

The Trunk: Monticello-fbs.532.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '13

1 0

The Trunk: Monticello-fbs.532.mcz
by commits＠source.squeak.org 02 Feb '13

02 Feb '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 February 2013