giles
446a0e7d68
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
138 lines
3.2 KiB
Smalltalk
138 lines
3.2 KiB
Smalltalk
"Pharo Collections-Tests slice — Array, Dictionary, Set."
|
|
|
|
TestCase subclass: #ArrayTest
|
|
instanceVariableNames: ''!
|
|
|
|
!ArrayTest methodsFor: 'creation'!
|
|
testNewSize self assert: (Array new: 5) size equals: 5!
|
|
testLiteralSize self assert: #(1 2 3) size equals: 3!
|
|
testEmpty self assert: #() isEmpty!
|
|
testNotEmpty self assert: #(1) notEmpty!
|
|
testFirst self assert: #(10 20 30) first equals: 10!
|
|
testLast self assert: #(10 20 30) last equals: 30! !
|
|
|
|
!ArrayTest methodsFor: 'access'!
|
|
testAt self assert: (#(10 20 30) at: 2) equals: 20!
|
|
testAtPut
|
|
| a |
|
|
a := Array new: 3.
|
|
a at: 1 put: 'x'.
|
|
a at: 2 put: 'y'.
|
|
a at: 3 put: 'z'.
|
|
self assert: (a at: 2) equals: 'y'! !
|
|
|
|
!ArrayTest methodsFor: 'iteration'!
|
|
testDoSum
|
|
| s |
|
|
s := 0.
|
|
#(1 2 3 4 5) do: [:e | s := s + e].
|
|
self assert: s equals: 15!
|
|
|
|
testInjectInto self assert: (#(1 2 3 4) inject: 0 into: [:a :b | a + b]) equals: 10!
|
|
|
|
testCollect self assert: (#(1 2 3) collect: [:x | x * x]) equals: #(1 4 9)!
|
|
|
|
testSelect self assert: (#(1 2 3 4 5) select: [:x | x > 2]) equals: #(3 4 5)!
|
|
|
|
testReject self assert: (#(1 2 3 4 5) reject: [:x | x > 2]) equals: #(1 2)!
|
|
|
|
testDetect self assert: (#(1 3 5 7) detect: [:x | x > 4]) equals: 5!
|
|
|
|
testCount self assert: (#(1 2 3 4 5) count: [:x | x even]) equals: 2!
|
|
|
|
testAnySatisfy self assert: (#(1 2 3) anySatisfy: [:x | x > 2])!
|
|
|
|
testAllSatisfy self assert: (#(2 4 6) allSatisfy: [:x | x even])!
|
|
|
|
testIncludes self assert: (#(1 2 3) includes: 2)!
|
|
|
|
testIncludesNot self deny: (#(1 2 3) includes: 99)!
|
|
|
|
testIndexOf self assert: (#(10 20 30) indexOf: 30) equals: 3!
|
|
|
|
testIndexOfMissing self assert: (#(1 2 3) indexOf: 99) equals: 0! !
|
|
|
|
TestCase subclass: #DictionaryTest
|
|
instanceVariableNames: ''!
|
|
|
|
!DictionaryTest methodsFor: 'fixture'!
|
|
setUp ^ self! !
|
|
|
|
!DictionaryTest methodsFor: 'tests'!
|
|
testEmpty self assert: Dictionary new isEmpty!
|
|
|
|
testAtPutThenAt
|
|
| d |
|
|
d := Dictionary new.
|
|
d at: #a put: 1.
|
|
self assert: (d at: #a) equals: 1!
|
|
|
|
testAtMissingNil self assert: (Dictionary new at: #nope) equals: nil!
|
|
|
|
testAtIfAbsent
|
|
self assert: (Dictionary new at: #nope ifAbsent: [#absent]) equals: #absent!
|
|
|
|
testSize
|
|
| d |
|
|
d := Dictionary new.
|
|
d at: #a put: 1. d at: #b put: 2. d at: #c put: 3.
|
|
self assert: d size equals: 3!
|
|
|
|
testIncludesKey
|
|
| d |
|
|
d := Dictionary new.
|
|
d at: #a put: 1.
|
|
self assert: (d includesKey: #a)!
|
|
|
|
testRemoveKey
|
|
| d |
|
|
d := Dictionary new.
|
|
d at: #a put: 1. d at: #b put: 2.
|
|
d removeKey: #a.
|
|
self deny: (d includesKey: #a)!
|
|
|
|
testOverwrite
|
|
| d |
|
|
d := Dictionary new.
|
|
d at: #x put: 1. d at: #x put: 99.
|
|
self assert: (d at: #x) equals: 99! !
|
|
|
|
TestCase subclass: #SetTest
|
|
instanceVariableNames: ''!
|
|
|
|
!SetTest methodsFor: 'tests'!
|
|
testEmpty self assert: Set new isEmpty!
|
|
|
|
testAdd
|
|
| s |
|
|
s := Set new.
|
|
s add: 1.
|
|
self assert: (s includes: 1)!
|
|
|
|
testDedup
|
|
| s |
|
|
s := Set new.
|
|
s add: 1. s add: 1. s add: 1.
|
|
self assert: s size equals: 1!
|
|
|
|
testRemove
|
|
| s |
|
|
s := Set new.
|
|
s add: 1. s add: 2.
|
|
s remove: 1.
|
|
self deny: (s includes: 1)!
|
|
|
|
testAddAll
|
|
| s |
|
|
s := Set new.
|
|
s addAll: #(1 2 3 2 1).
|
|
self assert: s size equals: 3!
|
|
|
|
testDoSum
|
|
| s sum |
|
|
s := Set new.
|
|
s add: 10. s add: 20. s add: 30.
|
|
sum := 0.
|
|
s do: [:e | sum := sum + e].
|
|
self assert: sum equals: 60! !
|