Bootstrap bug-fix.
[cslatevm.git] / tests / sequence.slate
blob6891a935dc0f33b673d9b09b217d4cabdefce15b
1 testing UnitTests define: #Sequence &parents: {TestCase}.
3 tc@(UnitTests Sequence traits) testCopyReplaceAll
4 [| s1 s2 |
5   s1 := 'slate'.
6   s2 := s1 copyReplaceAll: 's' with: 'S'.
7   tc assert: (s2 = 'Slate').
9   s2 := s1 copyReplaceAll: 'e' with: 'ed'.
10   tc assert: (s2 = 'slated').
12   s1 := 'SlSlate'.
13   s2 := s1 copyReplaceAll: 'SlSl' with: 'Sl'.
14   tc assert: (s2 = 'Slate').
16   s1 := 'Slete'.
17   s2 := (s1 copyReplaceAll: 'e' with: 'a') copyReplaceAll: 'ta' with: 'te'.
18   tc assert: (s2 = 'Slate').
21 tc@(UnitTests Sequence traits) suite
22 [tc suiteForSelectors: {
23   #testCopyReplaceAll.
24 }].