[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