A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.9.mcz
==================== Summary ====================
Name: File-Test-kph.9 Author: kph Time: 28 February 2009, 1:30:40 pm UUID: fe1c7649-059b-11de-9b6f-000a95edb42a Ancestors: File-Test-kph.8
All non-archive tests pass
=============== Diff against File-Test-kph.8 ===============
Item was changed: ----- Method: FileDirTest>>setUp (in category 'fixtures') ----- setUp
testDir mkdir!
Item was added: + ----- Method: FileDirTest>>testResolveMatchAll (in category 'tests-select') ----- + testResolveMatchAll + + self makeDirectoriesAndFiles. + + self assert: (testDir / 't_a/f*') resolveMatchAll size = 2!
Item was changed: ----- Method: FileVirtualFSDosFileTest>>testFromUrl (in category 'tests') ----- testFromUrl self assert: ((fileClass new: 'file:///E%3A/aa/bb/cc') asString = 'E:\aa\bb\cc' ). + self assert: ((fileClass new: 'file:///E:/aa/bb/cc') asString = 'E:\aa\bb\cc' ).
!
Item was changed: ----- Method: FileArchiveExtractTest>>testAddFile (in category 'as yet unclassified') ----- testAddFile
+ - self halt. super testAddFile.!
Item was changed: ----- Method: FileDirTest>>testAddTree (in category 'tests-directory copying') ----- testAddTree self makeDirectoriesAndFiles. + + destDir mkdir addTree: testDir entries. - destDir mkdir addTree: testDir. + self assert: (destDir all entries size = 5). - self assert: (destDir all entries size = 6).
self assert: ((testDir / 't_a' / 'f 1') contents = 'test file'). self assert: ((testDir / 't_a' / 'f 2') contents = 'test file2'). + self assert: ((destDir / 't_a' / 'f 1') contents = 'test file'). + self assert: ((destDir / 't_a' / 'f 2') contents = 'test file2').! - self assert: ((destDir / 'testing_file'/ 't_a' / 'f 1') contents = 'test file'). - self assert: ((destDir / 'testing_file'/ 't_a' / 'f 2') contents = 'test file2').!
Item was changed: ----- Method: FileDirTest>>testAddFile (in category 'tests-directory copying') ----- testAddFile | result |
self makeDirectoriesAndFiles.
result := destDir mkpath add: (testDir / 't_a' / 'f 1'). self assert: (destDir all entries size = 1). !
Item was removed: - ----- Method: FileDirTest>>testMatchingList (in category 'tests-select') ----- - testMatchingList - - self makeDirectoriesAndFiles. - - self assert: ('f*' asFile asMatchedList) size = 2!