Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.246.mcz
==================== Summary ====================
Name: Tests-nice.246 Author: nice Time: 30 July 2013, 2:06:04.527 am UUID: e26513d5-7168-47c0-9554-854e61110bb6 Ancestors: Tests-fbs.245
Simplify a test using Character>>to:
=============== Diff against Tests-fbs.245 ===============
Item was changed: ----- 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 to: $z) detect: [:i| notcwd last ~= i]). - notcwd at: notcwd size put: (($a asInteger to: $z asInteger) detect: [:i| notcwd last ~= i asCharacter]) asCharacter. self assert: (cwd relativeNameIfAbsoluteFor: notcwd) = notcwd!