tests/extensibleSeq.slate

   1
   2 testing UnitTests define: #ExtensibleArray &parents: {TestCase}.
   3
   4 tc@(UnitTests ExtensibleArray traits) testAtInsert
   5 [| ea1 ea2 |
   6   ea1: ExtensibleArray new.
   7   ea2: ExtensibleArray new.
   8   0 upTo: 10 do: [| :ind |
   9     ea1 at: ind insert: ind + 1.
  10     ea2 add: ind + 1.
  11     tc assert: ea1 = ea2 description: '#add: and #at:insert differ at: ' ; (ind as: String)].
  12 ].
  13
  14 tc@(UnitTests ExtensibleArray traits) suite
  15 [
  16   tc suiteForSelectors: {
  17     #testAtInsert
  18   }
  19 ].