[Pkg] Installer: Installer-Test-kph.17.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Installer-Test was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Test-kph.17.mcz

==================== Summary ====================

Name: Installer-Test-kph.17
Author: kph
Time: 2 December 2008, 8:28:50 am
UUID: a82cd249-560f-4377-bdc5-7a9bb766faf6
Ancestors: Installer-Test-sd.16

+ testMCFromUrl

=============== Diff against Installer-Test-sd.16 ===============

Item was added:
+ ----- Method: InstallerTest>>postCopy (in category 'mock image') -----
+ postCopy
+ 
+ 	inst := inst copy!

Item was added:
+ ----- Method: InstallerTest>>divide: (in category 'mock image') -----
+ divide: aBlock
+ 
+ 	aBlock value: self deepCopy!

Item was added:
+ ----- Method: InstallerTest>>testMCFromUrl (in category 'mock image') -----
+ testMCFromUrl
+ 
+ 	"
+ 	self debug: #testMCFromUrl
+ 	"
+ 	inst := Installer mc fromUrl: 'http://www.squeaksource.com/Installer/Installer-Core-kph.100.mcz'.
+ 
+ 	self assert: (inst mc locationHost = 'http://www.squeaksource.com').
+ 	self assert: (inst project = 'Installer').
+ 	self assert: (inst package = 'Installer-Core-kph.100.mcz').
+ 	
+ 	self divide: [ :pathA |  
+ 		pathA inst latest.
+ 		self assert: (pathA inst package = 'Installer-Core').	
+ 	].
+ 
+ 	self divide: [ :pathB |  
+ 		self halt.
+ 		pathB inst latestFromUsers: #(lr).
+ 		self assert: (pathB inst package = #('Installer-Core-lr')).	
+ 	]!

Item was added:
+ ----- Method: InstallerTest>>inst (in category 'mock image') -----
+ inst
+ 
+ 	^ inst!