[squeak-dev] The Trunk: CollectionsTests-fbs.207.mcz
Nicolas Cellier
nicolas.cellier.aka.nice at gmail.com
Mon Nov 4 20:56:25 UTC 2013
While at it, there were a discussion in Pharo about shouldnt: [] raise:
Error, and it's generally considered a poor test
- practically nothing should raise Error, unless in the few cases when you
create a block that should:raise:
so should:raise: is usefull, but shouldnt:raise: is generally useless
(unless maybe if you are testing an Error inhibition mechanism with a
block that shouldNormally:raise: Error)
- if ever, it effectively raises an Error, you have no information why
I fully agree with this.
2013/11/4 <commits at source.squeak.org>
> Frank Shearar uploaded a new version of CollectionsTests to project The
> Trunk:
> http://source.squeak.org/trunk/CollectionsTests-fbs.207.mcz
>
> ==================== Summary ====================
>
> Name: CollectionsTests-fbs.207
> Author: fbs
> Time: 4 November 2013, 6:31:01.83 pm
> UUID: 4057d67b-5969-8b41-85d1-43fd39da4bb1
> Ancestors: CollectionsTests-cmm.206
>
> Move collection tests where they belong.
>
> =============== Diff against CollectionsTests-cmm.206 ===============
>
> Item was added:
> + ----- Method: ByteArrayTest>>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 added:
> + ----- Method: DictionaryTest>>testIntegrityOfDictionaries (in category
> 'integrity tests') -----
> + testIntegrityOfDictionaries
> + #(
> + 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 added:
> + ----- Method: DictionaryTest>>testMethodDictionaries (in category
> 'integrity 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 added:
> + ----- Method: HashedCollectionTest>>testCapacity (in category 'test -
> integrity') -----
> + 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 added:
> + ----- Method: ReadWriteStreamTest>>testReadWriteStreamNextNBug (in
> category 'tests') -----
> + testReadWriteStreamNextNBug
> + | aStream |
> + aStream := ReadWriteStream on: String new.
> + aStream nextPutAll: 'Hello World'.
> + self shouldnt:[aStream next: 5] raise: Error.!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20131104/ebbcbcce/attachment.htm
More information about the Squeak-dev
mailing list
|