The Trunk: Tests-fbs.260.mcz

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.
- !