smalltalk: Pharo Kernel/Collections-Tests slice (91 tests) -> 751/751

lib/smalltalk/tests/pharo/collections.st

@@ -0,0 +1,137 @@
+"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! !