A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.11.mcz
==================== Summary ====================
Name: File-Test-kph.11 Author: kph Time: 2 March 2009, 8:36 pm UUID: bde1bc6b-0769-11de-a0af-000a95edb42a Ancestors: File-Test-kph.10
all test pass on unix
=============== Diff against File-Test-kph.10 ===============
Item was added: + ----- Method: FileVirtualTestFSUnix class>>classForPath: (in category 'as yet unclassified') ----- + classForPath: aPath + + | voted | + (voted := super classForPath: aPath) = self superclass ifTrue: [ self ] ifFalse: [ voted ] + !
Item was changed: ----- Method: FileTest>>testLinearRelativeToNot (in category 'tests') ----- testLinearRelativeToNot + newFile := (file := '/a/b/c' asFile) linearRelativeTo: '/no/relation/at/all' asFile. - newFile := (file := '/a/b/c/d/e/f' asFile full) linearRelativeTo: '/no/relation/at/all' asFile. self assert: (newFile = file).!
Item was added: + ----- Method: FileModeTests>>testRenamingModeFullNameSetMinor (in category 'renaming mode') ----- + testRenamingModeFullNameSetMinor + + | new | + file := self useTestDir / self hello. + + file touch. + + self assert: (file isFile). + + new := file rename full: '_test2_/testing/goodbye.text'. + + self assert: (new isFile). + self deny: (file isFile).!
Item was changed: ----- Method: FileVirtualFSDosFileTest>>testLinearRelativeTo (in category 'tests') ----- testLinearRelativeTo + " + self debug: #testLinearRelativeTo + " + + | original | + original := 'E:\hello\this\is\a\world\apart\from\here.txt' asFile. + file := original linearRelativeTo: 'E:\hello\this' asFile. - file := fileClass new: 'E:\hello\this\is\a\world\apart\from\here.txt'. - - file := file linearRelativeTo: (fileClass new: 'E:\hello\this'). self assert: (file = 'is\a\world\apart\from\here.txt'). + + self assert: file full = original. + ! - - !
Item was added: + ----- Method: FileVirtualTestFSDos class>>classForPath: (in category 'as yet unclassified') ----- + classForPath: aPath + + | voted | + (voted := super classForPath: aPath) = self superclass ifTrue: [ self ] ifFalse: [ voted ] + !
Item was added: + ----- Method: FileVirtualFSUnixKernelTest>>testThisImage (in category 'tests') ----- + testThisImage + + | i | + + i := fileClass thisImage. + self assert: (i = '/home/user/bob/squeak/this.image'). + + ^ i !
Item was added: + ----- Method: FileModeTests>>testRenamingModeFileNameSet (in category 'renaming mode') ----- + testRenamingModeFileNameSet + + | new | + file := self useTestDir / self hello. + + file touch. + + self assert: (file isFile). + + new := file rename fileName: 'goodbye.text'. + + self deny: (file isFile). + self assert: (new isFile).!
Item was changed: ----- Method: FileVirtualFSCommonTest>>setUp (in category 'tests-string behaviour') ----- setUp + self localExecutiveClass initializeLocal. - self localExecutive initializeDefault!
Item was changed: ----- Method: FileVirtualFSUnixFileTest>>testLinearRelativeTo (in category 'tests') ----- testLinearRelativeTo + + | original | + original := '/hello/this/is/a/world/apart/from/here.txt' asFile. + file := original linearRelativeTo: '/hello/this' asFile. - - 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'). + + self assert: file full = original.! - self assert: (file = 'is/a/world/apart/from/here.txt').!
Item was added: + ----- Method: FileVirtualFSUnixKernelTest>>testParent (in category 'tests') ----- + testParent + + "note that the parent of root is the file system 'executive' " + + self assert: ((fileClass new: '/a/b') parent = '/a'). + self assert: ((fileClass new: '/a') parent = '/'). + self assert: ((fileClass new: '/') parent class = FileVirtualTestFSUnix).!
Item was added: + ----- Method: FileVirtualFSUnixKernelTest>>testInstantiateRoot (in category 'tests') ----- + testInstantiateRoot + + file := fileClass new: '/'. + self assert: (file = '/'). + self assert: (file isRoot). + !
Item was changed: ----- Method: FileModeTests>>testRenamingModeFullNameSet (in category 'renaming mode') ----- testRenamingModeFullNameSet
+ | | + file := self useTestDir / self hello. - rio := self useTestDir / self hello. - - rio touch. + file touch. + + self assert: (file isFile). - self assert: (rio isFile).
+ self should: [ file rename full: '/tmp/_test_/goodbye.text' ] raise: Error + ! - newRio := rio rename fileName: 'goodbye.text'. - - self deny: (rio isFile). - self assert: (newRio isFile).!
Item was changed: ----- Method: FileTest>>testLinearRelativeTo (in category 'tests') ----- testLinearRelativeTo + | original | + original := '/hello/this/is/a/world/apart/from/here.txt' asFile. + file := original linearRelativeTo: '/hello/this' asFile. - - file := '/hello/this/is/a/world/apart/from/here.txt' asFile linearRelativeTo: '/hello/this' asFile. + self assert: (file = 'is/a/world/apart/from/here.txt'). + + self assert: file full = original.! - self assert: (file = 'is/a/world/apart/from/here.txt').!
Item was added: + ----- Method: FileVirtualFSDosKernelTest>>testVerifyHomeDirectory (in category 'tests') ----- + testVerifyHomeDirectory + + file := self currentFileSystem homeDirectory. + + self assert: (file class = dirClass). + self assert: file asString = 'D:\User\Bob\Squeak'.!
Item was added: + ----- Method: FileVirtualFSUnixKernelTest>>testVerifyHomeDirectory (in category 'tests') ----- + testVerifyHomeDirectory + + file := self currentFileSystem homeDirectory. + + self assert: (file class = dirClass). + self assert: file asString = '/home/user/bob/squeak'.!
Item was added: + ----- Method: FileVirtualFSDosKernelTest>>testSplitToPathAndName (in category 'tests') ----- + testSplitToPathAndName + + (self fileClass new: 'E:\a\b') splitToPathAndName: [ :p :n | self assert: (p = 'E:\a'). self assert: (n = 'b') ]. + (self fileClass new: 'E:\a') splitToPathAndName: [ :p :n | self assert: (p = 'E:'). self assert: (n = 'a') ]. + (self fileClass new: 'a\b') splitToPathAndName: [ :p :n | self assert: (p = 'a'). self assert: (n = 'b') ]. + (self fileClass new: 'a') splitToPathAndName: [ :p :n | self assert: (p = ''). self assert: (n = 'a') ]. + !
Item was added: + ----- Method: FileVirtualFSUnixKernelTest>>testSplitToPathAndName (in category 'tests') ----- + testSplitToPathAndName + + (self fileClass new: 'a/b') splitToPathAndName: [ :p :n | self assert: (p = 'a'). self assert: (n = 'b') ]. + (self fileClass new: 'a') splitToPathAndName: [ :p :n | self assert: (p = ''). self assert: (n = 'a') ]. + (self fileClass new: '/a/b') splitToPathAndName: [ :p :n | self assert: (p = '/a'). self assert: (n = 'b') ]. + (self fileClass new: '/a') splitToPathAndName: [ :p :n | self assert: (p = '/'). self assert: (n = 'a') ].!
Item was removed: - ----- Method: FileVirtualFSUnixKernelTest>>root (in category 'tests') ----- - root - - !
Item was removed: - ----- Method: FileVirtualFSUnixKernelTest>>thisImage (in category 'tests') ----- - thisImage - - | i | - - i := fileClass thisImage. - self assert: (i = '/home/user/bob/squeak/this.image'). - - ^ i !
Item was removed: - ----- Method: FileVirtualFSUnixKernelTest>>parent (in category 'tests') ----- - parent - - "note that the parent of root is the file system 'executive' " - - self assert: ((fileClass new: '/a/b') parent = '/a'). - self assert: ((fileClass new: '/a') parent = '/'). - self assert: ((fileClass new: '/') parent class = FileVirtualTestFSUnix).!
Item was removed: - ----- Method: FileVirtualFSUnixKernelTest>>verifyDefaultDirectory (in category 'tests') ----- - verifyDefaultDirectory - - file := self currentFileSystem defaultDirectory. - - self assert: (file class = dirClass). - self assert: file asString = '/home/user/bob/squeak'.!
Item was removed: - ----- Method: FileVirtualFSCommonTest class>>allStandardTests (in category 'as yet unclassified') ----- - allStandardTests - - ^ super allStandardTests , (self suiteWithMethodCategoryMatching: 'tests*') - !
Item was removed: - ----- Method: FileVirtualTestFSUnix>>checkVoted: (in category 'as yet unclassified') ----- - checkVoted: voted - - "alternative local executives may override this to rig the voting" - - "we rig the voting so we win if the winner is the executive we are spoofing" - - ^ voted = self class superclass ifTrue: [ ^ self class ] ifFalse: [ voted ] - !
Item was removed: - ----- Method: FileVirtualTestFSDos>>checkVoted: (in category 'as yet unclassified') ----- - checkVoted: voted - - "alternative local executives may override this to rig the voting" - - "we rig the voting so we win if the winner is the executive we are spoofing" - - ^ voted = self class superclass ifTrue: [ ^ self class ] ifFalse: [ voted ] - !
Item was removed: - ----- Method: FileVirtualFSUnixKernelTest>>instantiateRoot (in category 'tests') ----- - instantiateRoot - - file := fileClass new: '/'. - self assert: (file = '/'). - self assert: (file isRoot). - !
Item was removed: - ----- Method: FileVirtualFSDosKernelTest>>testVerifyDefaultDirectory (in category 'tests') ----- - testVerifyDefaultDirectory - - file := self currentFileSystem defaultDirectory. - - self assert: (file class = dirClass). - self assert: file asString = 'D:\User\Bob\Squeak'.!
packages@lists.squeakfoundation.org