tests/sequence.slate

   1 testing UnitTests define: #Sequence &parents: {TestCase}.
   2
   3 tc@(UnitTests Sequence traits) testCopyReplaceAll
   4 [ | s1 s2 |
   5   s1: 'slate'.
   6
   7   s2: (s1 copyReplaceAll: 's' with: 'S').
   8   tc assert: (s2 = 'Slate').
   9
  10   s2: (s1 copyReplaceAll: 'e' with: 'ed').
  11   tc assert: (s2 = 'slated').
  12
  13   s1: 'SlSlate'.
  14   s2: (s1 copyReplaceAll: 'SlSl' with: 'Sl').
  15   tc assert: (s2 = 'Slate').
  16
  17   s1: 'Slete'.
  18   s2: ((s1 copyReplaceAll: 'e' with: 'a') copyReplaceAll: 'ta' with: 'te').
  19   tc assert: (s2 = 'Slate').
  20 ].
  21
  22 tc@(UnitTests Sequence traits) suite
  23 [tc suiteForSelectors: {
  24   #testCopyReplaceAll.
  25 }].