A new version of Rio-Test was added to project Rio: http://www.squeaksource.com/Rio/Rio-Test-kph.48.mcz
==================== Summary ====================
Name: Rio-Test-kph.48 Author: kph Time: 7 November 2008, 2:58:27 am UUID: f4524a7f-8b4a-41d4-8af8-43195eff84c7 Ancestors: Rio-Test-kph.47
ftp support complete(?)
=============== Diff against Rio-Test-kph.47 ===============
Item was changed: ----- Method: RioGzipTest>>gzipWriteAndRead (in category 'tests') ----- gzipWriteAndRead
+ self assert: (self fox size = 44). - self assert: (self testString size = 44). rio := (self useTestDir / 'zip.gz') gzip writer: [ :out | out << self testString ]. self assert: (rio isFile & rio fileSize = 62). "reading from a gzip file should honour the binary setting of the stream even though the actual on disk file is binary"
+ self assert: ( rio contents = self testString ). - self assert: ( rio fileContents = self testString ). + self assert: ( rio contents size = 44 ). - self assert: ( rio fileContents size = 44 ). !
Item was changed: ----- Method: RioDirTest>>makeDirectoriesAndFiles (in category 'fixtures') ----- makeDirectoriesAndFiles subDir := (testDir / 't_a') mkdir. + a := (subDir / 'f_1') contents: 'test file'. - a := (subDir / 'f_1') touch. b := (subDir / 't_1') mkdir. c := (subDir / 't_2') mkdir.
!
Item was changed: ----- Method: RioDirTest>>addTree (in category 'tests-directory copying') ----- addTree + - self makeDirectoriesAndFiles. destDir mkdir addTree: testDir. + self assert: (destDir all entries size = 5). + + self assert: ((testDir / 't_a' / 'f_1') contents = 'test file'). + self assert: ((destDir / 'testing_rio'/ 't_a' / 'f_1') contents = 'test file').! - self assert: (destDir all entries size = 5)!
Item was added: + ----- Method: RioStreamsCopyTest>>testCopyStreamsProgressing (in category 'as yet unclassified') ----- + testCopyStreamsProgressing + + | in | + + in := self fox readStream. + + self assert:(self fox = (String streamContents: [ :out | + in copyTo: out size: self fox size withProgress: 'test'. + ]))!
Item was changed: ----- Method: RioDirTest class>>resources (in category 'as yet unclassified') ----- resources
+ self new tearDown. - self new prepare. - ^ super resources!
Item was added: + RioDirTest subclass: #RioDirFtpTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Test'!
Item was changed: ----- Method: RioDirTest>>tearDown (in category 'fixtures') ----- tearDown + - testDir all delete. destDir all delete.!
Item was added: + TestCase subclass: #RioStreamsCopyTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Test'!
Item was changed: ----- Method: RioGzipTest>>testOldCompressDecompress (in category 'tests') ----- testOldCompressDecompress "self debug: #testOldCompressDecompress" self newTextFile. GZipWriteStream compressFile: textFile full asString. textFile rename ext: 'orig'. GZipReadStream saveContents: (textFile + '.gz') full asString. + self assert: (textFile contents = (textFile ext: 'orig') contents). ! - self assert: (textFile fileContents = (textFile ext: 'orig') fileContents). !
Item was added: + ----- Method: RioStreamsCopyTest>>fox (in category 'as yet unclassified') ----- + fox + + ^ 'the quick brown fox jumped over the lazy dog' !
Item was added: + ----- Method: RioDirTest class>>usesNetwork (in category 'as yet unclassified') ----- + usesNetwork + + ^ self allStandardTests!
Item was changed: ----- Method: RioDirTest>>initialize (in category 'fixtures') ----- initialize
+ testDir := Rio / 'testing_rio'. - testDir := Rio / 'testing_rio'.. destDir := Rio / 'testing_rio_dest'.!
Item was added: + ----- Method: RioKernelTest>>fox (in category 'fixtures') ----- + fox + + ^ 'the quick brown fox jumped over the lazy dog' !
Item was added: + ----- Method: RioDirFtpTest class>>shouldInheritSelectors (in category 'as yet unclassified') ----- + shouldInheritSelectors + ^ true!
Item was changed: ----- Method: RioGzipTest>>testNewCompressDecompress (in category 'tests') ----- testNewCompressDecompress "self debug: #testOldCompressDecompress" | original |
self newTextFile. textFile gzip compress. original := textFile rename ext: 'orig'. (textFile + '.gz') auto decompress. + self assert: (textFile contents = original contents). ! - self assert: (textFile fileContents = original fileContents). !
Item was added: + ----- Method: RioStreamsCopyTest>>testCopyStreamsBinary (in category 'as yet unclassified') ----- + testCopyStreamsBinary + + | inData in | + + in := (inData := self fox asByteArray) readStream. + + self assert:(inData = (ByteArray streamContents: [ :out | + in copyTo: out size: inData size withProgress: 'test binary copy'. + ])) + + !
Item was added: + ----- Method: RioDirFtpTest>>initialize (in category 'as yet unclassified') ----- + initialize + + testDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_rio' asRio. + destDir := 'ftp://squeak:viewpoints@squeak.warwick.st/testing_rio_dest' asRio.!
Item was changed: ----- Method: RioGzipTest>>gzipWriteAndReadBinary (in category 'tests') ----- gzipWriteAndReadBinary
+ self assert: (self fox size = 44). - self assert: (self testString size = 44).
rio := (self useTestDir / 'zip.gz') gzip setModeToBinary writer: [ :out | out << self testString asByteArray ]. self assert: (rio isFile & rio fileSize = 62). + self assert: ( rio setModeToBinary contents = self testString asByteArray ). - self assert: ( rio setModeToBinary fileContents = self testString asByteArray ). + self assert: ( rio setModeToBinary contents size = 44 ).! - self assert: ( rio setModeToBinary fileContents size = 44 ).!
Item was added: + ----- Method: RioStreamsCopyTest>>testCopyStreams (in category 'as yet unclassified') ----- + testCopyStreams + + | in | + + in := self fox readStream. + + self assert:(self fox = (String streamContents: [ :out | + in copyTo: out. + ]))!
Item was removed: - ----- Method: RioDirTest>>prepare (in category 'fixtures') ----- - prepare - - self tearDown!
Item was removed: - ----- Method: RioTest>>testString (in category 'tests') ----- - testString - - ^ 'the quick brown fox jumped over the lazy dog' !
Item was removed: - ----- Method: RioTest>>copyStreamsBinary (in category 'tests') ----- - copyStreamsBinary - - | inData in | - - in := (inData := self testString asByteArray) readStream. - - self assert:(inData = (ByteArray streamContents: [ :out | - in copyTo: out withProgress: 'test binary copy'. - ])) - - !
Item was removed: - ----- Method: RioTest>>copyStreams (in category 'tests') ----- - copyStreams - - | in | - - in := self testString readStream. - - self assert:(self testString = (String streamContents: [ :out | - in copyTo: out. - ]))!
Item was removed: - ----- Method: RioTest>>copyStreamsProgressing (in category 'tests') ----- - copyStreamsProgressing - - | in | - - in := self testString readStream. - - self assert:(self testString = (String streamContents: [ :out | - in copyTo: out withProgress: 'test'. - ]))!
packages@lists.squeakfoundation.org