[Pkg] Rio: File-Test-kph.2.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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 = #()).
-  !