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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Mon Mar 2 21:23:34 UTC 2009


A new version of File-Test was added to project Rio:
http://www.squeaksource.com/Rio/File-Test-kph.12.mcz

==================== Summary ====================

Name: File-Test-kph.12
Author: test
Time: 2 March 2009, 9:22:28 pm
UUID: 86f2d5d8-e1de-064e-b90f-0a8099b6f34e
Ancestors: File-Test-kph.11

All non-net tests pass


=============== Diff against File-Test-kph.11 ===============

Item was changed:
  ----- Method: FileTest>>testLinearRelativeToNot (in category 'tests') -----
  testLinearRelativeToNot
  	
  	
  	newFile := 	(file := '/a/b/c' asFile) linearRelativeTo: '/no/relation/at/all' asFile.
  	
+ 	self assert: (newFile full = file full).!
- 	self assert: (newFile = file).!

Item was changed:
  ----- Method: FileModeTests>>testRenamingModeFullNameSetMinor (in category 'renaming mode') -----
  testRenamingModeFullNameSetMinor
  
  	| new |
+ 	file := (self useTestDir / 'test1') mkpath / self hello.
- 	file := self useTestDir / self hello.
  	
  	file touch.
  	
  	self assert: (file isFile).
   
+ 	new := file rename full: testDir / 'test2' / 'goodbye.text'.
- 	new := file rename full: '_test2_/testing/goodbye.text'.
  
  	self assert: (new isFile).
  	self deny: (file isFile).!

Item was changed:
  ----- Method: FileGzipTest>>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).	!

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.
  	
  	self assert: (file = 'is/a/world/apart/from/here.txt').
  	
+ 	self assert: file full = original full.!
- 	self assert: file full = original.!



More information about the Packages mailing list