[squeak-dev] The Trunk: Tests-fbs.260.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Nov 4 18:37:36 UTC 2013


Frank Shearar uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-fbs.260.mcz

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

Name: Tests-fbs.260
Author: fbs
Time: 4 November 2013, 6:34:11.676 pm
UUID: 60aafff2-a5b5-854d-9b22-88bda06a2565
Ancestors: Tests-fbs.259

Move collection tests where they belong.

=============== Diff against Tests-fbs.259 ===============

Item was removed:
- TestCase subclass: #ByteArrayBugz
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Bugs'!

Item was removed:
- ----- Method: ByteArrayBugz>>testByteArrayLongAt (in category 'as yet unclassified') -----
- testByteArrayLongAt
- 	| ba value |
- 	ba := ByteArray new: 4.
- 	value := -1.
- 	self shouldnt:[ba longAt: 1 put: value bigEndian: true] raise: Error.
- 	self assert: (ba longAt: 1 bigEndian: true) = value.
- 	self shouldnt:[ba longAt: 1 put: value bigEndian: false] raise: Error.
- 	self assert: (ba longAt: 1 bigEndian: false) = value.
- !

Item was removed:
- TestCase subclass: #DictionaryIntegrityTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Bugs'!

Item was removed:
- ----- Method: DictionaryIntegrityTest>>testDictionaries (in category 'tests') -----
- testDictionaries
- 
- 	#(
- 		Dictionary
- 		IdentityDictionary
- 		SystemDictionary
- 		LiteralDictionary
- 		PluggableDictionary
- 		WeakValueDictionary) do: [ :dictionaryClassName |
- 			Smalltalk at: dictionaryClassName ifPresent: [ :dictionaryClass |
- 				dictionaryClass allInstancesDo: [ :dictionary |
- 					dictionary keysAndValuesDo: [ :key :value |
- 						self assert: (dictionary at: key) == value ].
- 					dictionary array doWithIndex: [ :association :index |
- 		                        association ifNotNil: [
- 	 	                               self assert: (dictionary scanFor: association key) = index ] ] ] ] ]!

Item was removed:
- ----- Method: DictionaryIntegrityTest>>testMethodDictionaries (in category 'tests') -----
- testMethodDictionaries
- 
- 	MethodDictionary allInstancesDo: [ :dictionary |
- 		dictionary keysAndValuesDo: [ :key :value |
- 			self assert: (dictionary at: key) == value ].
- 		1 to: dictionary basicSize do: [ :index |
- 			(dictionary basicAt: index)
- 				ifNil: [ self assert: (dictionary array at: index) isNil ]
- 				ifNotNil: [ :key |
- 					self assert: (dictionary scanFor: key) = index ] ] ]!

Item was removed:
- TestCase subclass: #HashedCollectionIntegrityTest
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Bugs'!

Item was removed:
- ----- Method: HashedCollectionIntegrityTest>>testCapacity (in category 'as yet unclassified') -----
- testCapacity
- 
- 	| inconsistentCollections |
- 	inconsistentCollections := HashedCollection allSubInstances reject: [ :each |
- 		each class == MethodDictionary "MethodDictionary is the only HashedCollection which doesn't have prime array size"
- 			ifTrue: [ each capacity isPowerOfTwo ]
- 			ifFalse: [ each capacity isPrime ] ].
- 	self assert: inconsistentCollections isEmpty!

Item was removed:
- Object subclass: #NameOfSubclass
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Bugs'!

Item was removed:
- TestCase subclass: #StreamBugz
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'Tests-Bugs'!

Item was removed:
- ----- Method: StreamBugz>>testReadWriteStreamNextNBug (in category 'as yet unclassified') -----
- testReadWriteStreamNextNBug
- 	| aStream |
- 	aStream := ReadWriteStream on: String new.
- 	aStream nextPutAll: 'Hello World'.
- 	self shouldnt:[aStream next: 5] raise: Error.
- !



More information about the Squeak-dev mailing list