TestGeneratePrimes
Definition
TestCase subclass: #TestGeneratePrimes
        instanceVariableNames: ''
        classVariableNames: ''
        poolDictionaries: ''
        classInstanceVariableNames: ''
Class side
Instance side
testPrimes
        | nullArray
minArray threeArray centArray |
        nullArray :=
GeneratePrimes generatePrimes: 0.
        self assert: nullArray size = 0.
        minArray :=
GeneratePrimes generatePrimes: 2.
        self assert: minArray size = 1.
        self assert: ((minArray at: 1) = 2).
        threeArray :=
GeneratePrimes generatePrimes: 3.
        self assert: threeArray size = 2.
        self assert: ((threeArray at: 1) = 2).
        self assert: ((threeArray at: 2) = 3).
        centArray :=
GeneratePrimes generatePrimes: 100.
        self assert: (centArray size = 25).
        self assert: ((centArray at: 25) = 97).