[Pkg] Rio: File-Test-kph.12.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Mar 2 21:23:34 UTC 2009
A new version of File-Test was added to project Rio:
http://www.squeaksource.com/Rio/File-Test-kph.12.mcz
==================== Summary ====================
Name: File-Test-kph.12
Author: test
Time: 2 March 2009, 9:22:28 pm
UUID: 86f2d5d8-e1de-064e-b90f-0a8099b6f34e
Ancestors: File-Test-kph.11
All non-net tests pass
=============== Diff against File-Test-kph.11 ===============
Item was changed:
----- Method: FileTest>>testLinearRelativeToNot (in category 'tests') -----
testLinearRelativeToNot
newFile := (file := '/a/b/c' asFile) linearRelativeTo: '/no/relation/at/all' asFile.
+ self assert: (newFile full = file full).!
- self assert: (newFile = file).!
Item was changed:
----- Method: FileModeTests>>testRenamingModeFullNameSetMinor (in category 'renaming mode') -----
testRenamingModeFullNameSetMinor
| new |
+ file := (self useTestDir / 'test1') mkpath / self hello.
- file := self useTestDir / self hello.
file touch.
self assert: (file isFile).
+ new := file rename full: testDir / 'test2' / 'goodbye.text'.
- new := file rename full: '_test2_/testing/goodbye.text'.
self assert: (new isFile).
self deny: (file isFile).!
Item was changed:
----- Method: FileGzipTest>>testNewCompressDecompress (in category 'tests') -----
testNewCompressDecompress
"self debug: #testOldCompressDecompress"
| original |
self newTextFile.
textFile gzip compress.
original := textFile rename ext: 'orig'.
(textFile + '.gz') auto decompress.
self assert: (textFile contents = original contents). !
Item was changed:
----- Method: FileTest>>testLinearRelativeTo (in category 'tests') -----
testLinearRelativeTo
| original |
original := '/hello/this/is/a/world/apart/from/here.txt' asFile.
file := original linearRelativeTo: '/hello/this' asFile.
self assert: (file = 'is/a/world/apart/from/here.txt').
+ self assert: file full = original full.!
- self assert: file full = original.!
More information about the Packages
mailing list