The Inbox: NetworkTests-fbs.19.mcz

A new version of NetworkTests was added to project The Inbox:
http://source.squeak.org/inbox/NetworkTests-fbs.19.mcz

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

Name: NetworkTests-fbs.19
Author: fbs
Time: 1 September 2010, 10:11:44.362 pm
UUID: 98b12986-cf50-ad42-a158-fe315627b1eb
Ancestors: NetworkTests-fbs.18

Devolve responsibility of deciding which Url subclass to instantiate by asking the subclasses directly (in reverse topological order, by inheritance).

=============== Diff against NetworkTests-ar.17 ===============

Item was added:
+ ----- Method: UrlTest>>testHandlesScheme (in category 'tests') -----
+ testHandlesScheme
+ self assert: (BrowserUrl handlesScheme: 'browser') description: 'browser'.
+ self assert: (BrowserUrl handlesScheme: 'BROWSER') description: 'BROWSER'.
+ self assert: (FileUrl handlesScheme: 'file') description: 'file'.
+ self assert: (FileUrl handlesScheme: 'FILE') description: 'FILE'.
+ self assert: (FtpUrl handlesScheme: 'ftp') description: 'ftp'.
+ self assert: (FtpUrl handlesScheme: 'FTP') description: 'FTP'.
+ self assert: (HttpUrl handlesScheme: 'http') description: 'http'.
+ self assert: (HttpUrl handlesScheme: 'HTTP') description: 'HTTP'.
+ self assert: (MailtoUrl handlesScheme: 'mailto') description: 'mailto'.
+ self assert: (MailtoUrl handlesScheme: 'MAILTO') description: 'MAILTO'.
+
+ self assert: (HttpUrl handlesScheme: nil) description: 'http'.
+ #('file' 'ftp' 'unknown' nil)
+ do: [:each | self assert: (GenericUrl handlesScheme: each) description: each].!