[Pkg] Installer: Installer-Test-damiencassou.18.mcz

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

Damien Cassou uploaded a new version of Installer-Test to project Installer:
http://www.squeaksource.com/Installer/Installer-Test-damiencassou.18.mcz

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

Name: Installer-Test-damiencassou.18
Author: damiencassou
Time: 20 February 2009, 7:29:12 pm
UUID: 0b4a7f8e-2c72-4002-93c7-f793d883f146
Ancestors: Installer-Test-kph.17

- Fix a lot of tests

=============== Diff against Installer-Test-kph.17 ===============

Item was changed:
  ----- Method: InstallerTest class>>resources (in category 'as yet unclassified') -----
  resources
  
+ ^ Set with: ClassClonerTestResource.!
- ^ Set with: ClassClonerTestResource!

Item was changed:
  ----- Method: InstallerTest>>testExtractFromHtmlUsingMarkers (in category 'standard tests') -----
  testExtractFromHtmlUsingMarkers
  
  	| examplePage |
  
  	examplePage :=  '<h1>hello</h1><code st>1 +</code st></hs1><h1>hello</h1><code st> 2 +</code st></hs1>'.
  
+ 	self assert: ((InstallerInternetBased new extractFromHtml: examplePage readStream option: nil) contents = '1 + 2 +').!
- 	self assert: ((inst extractFromHtml: examplePage readStream option: nil) contents = '1 + 2 +').!

Item was changed:
  ----- Method: InstallerTest>>testWriteListToStream (in category 'update stream tests') -----
  testWriteListToStream
  	"self run: #testWriteListToStream"
  
  	| list newString installer | 
+ 	installer := InstallerUpdateStream new. 
- 	installer := Installer new. 
  	list := installer parseUpdateListContents: self toTestParseUpdateListContents.
  	newString := (String streamContents: [:s | installer writeList: list toStream: s]).
  	self assert: (newString = self toTestParseUpdateListContents).!

Item was changed:
  ----- Method: InstallerTest>>testMarkersTestDefault (in category 'standard tests') -----
  testMarkersTestDefault
  
+ 	self assert: (InstallerInternetBased new markersTest = '"test ').!
- 	self assert: (inst markersTest = '"test ').!

Item was changed:
  ----- Method: InstallerTest>>testExtractLastFromHtmlUsingMarkers (in category 'standard tests') -----
  testExtractLastFromHtmlUsingMarkers
  
  | examplePage exampleScript |
  
  examplePage :=  '<h1>hello</h1><code st>1 +</code st></hs1><h1>hello</h1><code st> 2 +</code st></hs1>'.
+ exampleScript := InstallerInternetBased new extractFromHtml: examplePage readStream option: #last.
- exampleScript := inst extractFromHtml: examplePage readStream option: #last.
  
  self assert: (exampleScript contents = ' 2 +').!

Item was changed:
  ----- Method: InstallerTest>>testParseUpdateListContents (in category 'update stream tests') -----
  testParseUpdateListContents
  	"self run: #testParseUpdateListContents"
  
  	| list |
+ 	list := InstallerUpdateStream new parseUpdateListContents: self toTestParseUpdateListContents.
- 	list := self parseUpdateListContents: self toTestParseUpdateListContents.
  	self assert: (list size = 46).
  	"should test more"
  	"list explore"!

Item was changed:
  ----- Method: InstallerTest>>testSMSearch (in category 'standard tests') -----
  testSMSearch
   
  result := Installer sm search: 'labyrinth'. 
  self assert: (result size = 1).
  self assert: (result anyOne package = 'Labby & Walker').
  
  result := Installer sm search: 'summary:*labyrinth'. 
  self assert: (result size = 1).
  self assert: (result anyOne package = 'Labby & Walker').!

Item was changed:
  ----- Method: InstallerTest>>testExtractAllFromHtmlUsingMarkers (in category 'standard tests') -----
  testExtractAllFromHtmlUsingMarkers
  
  	| examplePage exampleScript |
  
  	examplePage :=  '<h1>hello</h1><code st>1 +</code st></hs1><h1>hello</h1><code st> 2 +</code st></hs1>'.
+ 	exampleScript := InstallerInternetBased new extractFromHtml: examplePage readStream option: nil.
- 	exampleScript := inst extractFromHtml: examplePage readStream option: nil.
  
  	self assert: (exampleScript contents = '1 + 2 +').!

Item was changed:
  ----- Method: InstallerTest>>testMarkersEndDefault (in category 'standard tests') -----
  testMarkersEndDefault
  
+ 	self assert: ('</code st>' = InstallerInternetBased new markersEnd).!
- 	self assert: ('</code st>' = inst markersEnd).!

Item was changed:
  ----- Method: InstallerTest>>testMarkersBeginDefault (in category 'standard tests') -----
  testMarkersBeginDefault
  
+ 	self assert: ('<code st>' = InstallerInternetBased new markersBegin).!
- 	self assert: ('<code st>' = inst markersBegin).!