[Pkg] The Trunk: Tests-nice.246.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jul 30 00:06:26 UTC 2013
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!
More information about the Packages
mailing list