The Trunk: Tests-ar.103.mcz

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://[hidden email]/trunk').
+ !