[Pkg] The Trunk: Tests-eem.140.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-eem.140.mcz

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

Name: Tests-eem.140
Author: eem
Time: 27 January 2012, 1:41:11.707 pm
UUID: bd545d35-d256-40dd-a901-848fcb70be5d
Ancestors: Tests-laza.139

Test FileDirectory>relativeNameIfAbsoluteFor:

=============== Diff against Tests-laza.139 ===============

Item was added:
+ ----- Method: FileDirectoryTest>>testRelativeNameIfAbsoluteFor (in category 'tests') -----
+ testRelativeNameIfAbsoluteFor
+ 	| cwd notcwd |
+ 	cwd := FileDirectory default.
+ 	self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName) = cwd class currentDirectoryNickname. 
+ 	self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash) = cwd class currentDirectoryNickname. 
+ 	self assert: (cwd relativeNameIfAbsoluteFor: cwd fullName, cwd slash, 'foo', cwd slash, 'bar') = ('foo', cwd slash, 'bar').
+ 	notcwd := cwd fullName copy. "Argh!!!!!!"
+ 	notcwd at: notcwd size put: (($a asInteger to: $z asInteger) detect: [:i| notcwd last ~= i asCharacter]) asCharacter.
+ 	self assert: (cwd relativeNameIfAbsoluteFor: notcwd) = notcwd!