A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.2.mcz
==================== Summary ====================
Name: File-Test-kph.2 Author: kph Time: 24 November 2008, 11:32:31 am UUID: 81acc294-1c88-4837-bcba-8ffa38ab5b3c Ancestors: File-Test-kph.1
Test upload and download directions
=============== Diff against File-Test-kph.1 ===============
Item was added: + ----- Method: FileDirFtpUploadTest>>testAsUrl (in category 'as yet unclassified') ----- + testAsUrl + self assert: (destDir asUrl asString = 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file_dest' ). + + + !
Item was added: + ----- Method: FileVirtualFSUnixFileTest>>testLinearRelativeTo (in category 'tests') ----- + testLinearRelativeTo + + file := (File new: '/hello/this/is/a/world/apart/from/here.txt') + linearRelativeTo: (File new: '/hello/this'). + + self assert: (file = 'is/a/world/apart/from/here.txt').!
Item was added: + ----- Method: FileDirFtpDownloadTest class>>shouldInheritSelectors (in category 'as yet unclassified') ----- + shouldInheritSelectors + ^ true!
Item was added: + FileDirTest subclass: #FileDirFtpDownloadTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Test'!
Item was changed: ----- Method: FileVirtualFSDosFileTest>>testSplit (in category 'tests') ----- testSplit
"self assert: ('/aa/bb/cc' asFile split = #('' 'aa' 'bb' 'cc'))." self assert: ('aa/bb/cc' asFile split = #('aa' 'bb' 'cc')). self assert: ('' asFile split = #()).
+ self assert: ('C:\aa\bb\cc' asFile split = #('C:' 'aa' 'bb' 'cc')) . + self assert: ('aa/bb/cc' asFile full split = #('D:' 'User' 'Bob' 'Squeak' 'aa' 'bb' 'cc')).! - self assert: ('C:\aa\bb\cc' asFile split = #('C:' 'aa' 'bb' 'cc')) . - self assert: ('aa/bb/cc' asFile full split = #('D:' 'User' 'Bob' 'Squeak' 'aa' 'bb' 'cc')).!
Item was added: + FileDirFtpDownloadTest subclass: #FileDirFtpUploadTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Test'!
Item was added: + ----- Method: FileDirFtpDownloadTest>>initialize (in category 'as yet unclassified') ----- + initialize + + testDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file' asDirectory. + destDir := 'testing_file_dest' asDirectory.!
Item was added: + ----- Method: FileVirtualFSUnixFileTest>>testAsUrl (in category 'tests') ----- + testAsUrl + self assert: ((fileClass new: '/aa/bb/cc') asUrl asString = 'file:///aa/bb/cc' ). + + !
Item was added: + ----- Method: FileVirtualFSDosFileTest>>testAsUrl (in category 'tests') ----- + testAsUrl + self assert: ((fileClass new: 'E:\aa\bb\cc') asUrl asString = 'file:///E%3A/aa/bb/cc' ). + + !
Item was added: + ----- Method: FileDirFtpUploadTest>>initialize (in category 'as yet unclassified') ----- + initialize + + testDir := 'testing_file' asDirectory. + destDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_file_dest' asDirectory. + !
Item was added: + ----- Method: FileVirtualFSUnixFileTest>>testSplit (in category 'tests') ----- + testSplit + self assert: ((fileClass new: '/aa/bb/cc') split = #('' 'aa' 'bb' 'cc')). + self assert: ((fileClass new: 'aa/bb/cc') split = #('aa' 'bb' 'cc')). + self assert: ((fileClass new: '') split = #()). + !
Item was removed: - ----- Method: FileDirFtpTest class>>shouldInheritSelectors (in category 'as yet unclassified') ----- - shouldInheritSelectors - ^ true!
Item was removed: - ----- Method: FileTest>>rioClass (in category 'tests') ----- - rioClass - ^ File!
Item was removed: - ----- Method: FileVirtualFSUnixFileTest>>linearRelativeTo (in category 'tests') ----- - linearRelativeTo - - rio := (File new: '/hello/this/is/a/world/apart/from/here.txt') - linearRelativeTo: (File new: '/hello/this'). - - self assert: (rio = 'is/a/world/apart/from/here.txt').!
Item was removed: - ----- Method: FileDirFtpTest>>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 removed: - FileDirTest subclass: #FileDirFtpTest - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'File-Test'!
Item was removed: - ----- Method: FileVirtualFSUnixFileTest>>split (in category 'tests') ----- - split - self assert: ((fileClass new: '/aa/bb/cc') split = #('/' 'aa' 'bb' 'cc')). - self assert: ((fileClass new: 'aa/bb/cc') split = #('aa' 'bb' 'cc')). - self assert: ((fileClass new: '') split = #()). - !
packages@lists.squeakfoundation.org