tests/wordarray.slate

   1 UnitTests addPrototype: #WordArray derivedFrom: {TestCase}.
   2
   3 tc@(UnitTests WordArray traits) isEmpty
   4 [|wa|
   5   wa: WordArray new.
   6   tc assert: wa isEmpty description: 'New WordArray is not empty'.
   7 ].
   8
   9 tc@(UnitTests WordArray traits) size
  10 [|wa|
  11   wa: WordArray new.
  12   tc assert: wa size = 0 description: 'Empty WordArray has non-zero size'.
  13 ].
  14
  15 tc@(UnitTests WordArray traits) includes
  16 [|wa|
  17   wa: (WordArray new &capacity: 5).
  18   wa at: 0 put:  2.
  19   tc assert: (wa includes: 2) description: 'First inserted object not found'.
  20   wa at: 4 put: 10.
  21   tc assert: (wa includes: 10) description: 'Second inserted object not found'.
  22   tc deny: (wa includes: 4) description: 'Found object which was not added'.
  23 ].
  24
  25 tc@(UnitTests WordArray traits) at
  26 [|wa|
  27   wa: (WordArray new &capacity: 6).
  28   wa at: 0 put: 10.
  29   wa at: 5 put: 1000.
  30   tc assert: (wa at: 0) = 10 description: 'First object retrieved isn\'t object stored'.
  31   tc assert: (wa at: 5) = 1000 description: 'Last object retrieved isn\'t object stored'.
  32 ].
  33
  34 tc@(UnitTests WordArray traits) accepts
  35 [|wa|
  36   wa: WordArray new.
  37   tc assert: (wa accepts: 16rFFFFFFFF) description: 'Will not accept 2^32'.
  38   tc deny: (wa accepts: 16r100000000) description: 'Accepted overlarge value'.
  39   tc deny: (wa accepts: -1) description: 'Accepted negative number'.
  40 ].
  41
  42 tc@(UnitTests WordArray traits) endian
  43 [|wale wabe|
  44   wale: (WordArray LittleEndian new &capacity: 1).
  45   wabe: (WordArray BigEndian new &capacity: 1).
  46   wale at: 0 put: 16r01020408.
  47   wabe at: 0 put: 16r01020408.
  48   tc assert: ((wale at: 0) = 16r01020408) description: 'Reading LittleEndian value failed'.
  49   tc assert: ((wabe at: 0) = 16r01020408) description: 'Reading BigEndian value failed'.
  50   tc assert: ((wale bytes at: 0) = 8) description: 'First LittleEndian byte wrong'.
  51   tc assert: ((wale bytes at: 1) = 4) description: 'Second LittleEndian byte wrong'.
  52   tc assert: ((wale bytes at: 2) = 2) description: 'Third LittleEndian byte wrong'.
  53   tc assert: ((wale bytes at: 3) = 1) description: 'Forth LittleEndian byte wrong'.
  54   tc assert: ((wabe bytes at: 0) = 1) description: 'First BigEndian byte wrong'.
  55   tc assert: ((wabe bytes at: 1) = 2) description: 'Second BigEndian byte wrong'.
  56   tc assert: ((wabe bytes at: 2) = 4) description: 'Third BigEndian byte wrong'.
  57   tc assert: ((wabe bytes at: 3) = 8) description: 'Forth BigEndian byte wrong'.
  58 ].
  59
  60
  61 tc@(UnitTests WordArray traits) do
  62 [|wa sum counter|
  63   sum: 0.
  64   counter: 0.
  65   wa: (WordArray new &capacity: 12).
  66   wa  `>> [
  67     at: 0 put: 16r1.
  68     at: 1 put: 16r2.
  69     at: 3 put: 16r3.
  70     at: 5 put: 16r4.
  71     at: 7 put: 16r5.].
  72   wa do: [|:each| sum: sum + each. counter: counter + 1].
  73   tc assert: sum = 15 description: 'Sum of elements failed'.
  74   tc assert: counter = 12 description: 'Count of elements failed'.
  75 ].
  76
  77
  78 tc@(UnitTests WordArray traits) suite
  79 [tc suiteForSelectors: {
  80   #isEmpty.
  81   #size.
  82   #accepts.
  83   #at.
  84   #includes.
  85   #do.
  86   #endian.
  87 }].