[Pkg] Rio: File-Test-kph.3.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.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' ).
-  
- 
-  !