Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.103.mcz

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

Name: Tests-ar.103
Author: ar
Time: 16 December 2010, 9:45:49.325 am
UUID: 3f98d743-2d40-a647-82ee-9f168764971b
Ancestors: Tests-ul.102

Tests for new repository creation methods.

=============== Diff against Tests-ul.102 ===============

Item was added:
+ ----- Method: MCRepositoryTest>>testCreationMethods (in category 'tests') -----
+ testCreationMethods
+ 	"Tests creation via MCRepository>>location:"
+ 
+ 	| repo |
+ 	repo := MCRepository location: 'C:\Squeak\trunk'.
+ 	self assert: (repo isKindOf: MCDirectoryRepository).
+ 	self assert: (repo description = 'C:\Squeak\trunk').
+ 
+ 	repo := MCRepository location: FileDirectory default pathName.
+ 	self assert: (repo isKindOf: MCDirectoryRepository).
+ 	self assert: (repo description = FileDirectory default pathName).
+ 
+ 	repo := MCRepository location: (FileDirectory default pathName, FileDirectory slash, '*').
+ 	self assert: (repo isKindOf: MCSubDirectoryRepository).
+ 	"XXXX: MCSubDirectoryRepo prints wrongly on Windows"
+ 	self assert: (repo description = (FileDirectory default pathName, '/*')).
+ 
+ 	repo := MCRepository location: 'http://source.squeak.org/trunk'.
+ 	self assert: (repo isKindOf: MCHttpRepository).
+ 	self assert: (repo description = 'http://source.squeak.org/trunk').
+ 
+ 	repo := MCRepository 
+ 		location: 'ftp://source.squeak.org/trunk' 
+ 		username: 'foo' 
+ 		password: 'bar'.
+ 	self assert: (repo isKindOf: MCFtpRepository).
+ 	self assert: (repo description = 'ftp://foo@source.squeak.org/trunk').
+ !