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