A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.3.mcz
==================== Summary ====================
Name: File-Test-kph.3 Author: kph Time: 25 November 2008, 5:14:30 am UUID: 50c6d7f0-7ff7-4d63-9e8f-d7f0668e2202 Ancestors: File-Test-kph.2
test upload download remote2remote
=============== Diff against File-Test-kph.2 ===============
Item was added: + ----- Method: FileDirFtpRemoteToRemoteTest>>testAsUrl (in category 'as yet unclassified') ----- + testAsUrl + self assert: (destDir asUrl asString = 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file_dest' ). + + + !
Item was added: + FileDirFtpUploadTest subclass: #FileDirFtpRemoteToRemoteTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Test'!
Item was changed: ----- Method: FileDirTest>>testEntries (in category 'tests-select') ----- testEntries
self makeDirectoriesAndFiles. + self assert: subDir entries asSet = {a. b. c. d.} asSet. - self assert: subDir entries asSet = {a. b. c.} asSet. !
Item was changed: TestCase subclass: #FileDirTest + instanceVariableNames: 'testDir subDir a b c d e destDir' - instanceVariableNames: 'testDir subDir a b c destDir' classVariableNames: '' poolDictionaries: '' category: 'File-Test'!
Item was added: + ----- Method: FileDirFtpRemoteToRemoteTest>>initialize (in category 'as yet unclassified') ----- + initialize + + testDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file' asDirectory. + destDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file_dest' asDirectory. + !
Item was changed: ----- Method: FileDirTest>>testAddTree (in category 'tests-directory copying') ----- testAddTree self makeDirectoriesAndFiles. destDir mkdir addTree: testDir. + self assert: (destDir all entries size = 6). - self assert: (destDir all entries size = 5).
self assert: ((testDir / 't_a' / 'f 1') contents = 'test file'). + self assert: ((testDir / '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').! - self assert: ((destDir / 'testing_file'/ 't_a' / 'f 1') contents = 'test file').!
Item was changed: ----- Method: FileDirTest>>makeDirectoriesAndFiles (in category 'fixtures') ----- makeDirectoriesAndFiles subDir := (testDir / 't_a') mkdir. a := (subDir / 'f 1') contents: 'test file'. + b := (subDir / 'f 2') contents: 'test file2'. "test dirname with space in it" + c := (subDir / 't 1') mkdir. + d := (subDir / 't 2') mkdir. - b := (subDir / 't 1') mkdir. - c := (subDir / 't 2') mkdir.
!
Item was removed: - ----- Method: FileDirFtpUploadTest>>testAsUrl (in category 'as yet unclassified') ----- - testAsUrl - self assert: (destDir asUrl asString = 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file_dest' ). - - - !
packages@lists.squeakfoundation.org