tests/sequence.slate

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