equal
deleted
inserted
replaced
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitIslands-Tests' |
9 category:'PetitIslands-Tests' |
10 ! |
10 ! |
11 |
11 |
|
12 |
12 !FirstFollowNextTests methodsFor:'support'! |
13 !FirstFollowNextTests methodsFor:'support'! |
13 |
14 |
14 assert: set allMatches: string |
15 assert: set allMatches: string |
15 self assert: (set allSatisfy: [:e | e end matches: string]) |
16 self assert: (set allSatisfy: [:e | e end matches: string]) |
16 ! |
17 ! |
1053 self assert: nextSet anySatisfy: [:e | e end matches: 'a']. |
1054 self assert: nextSet anySatisfy: [:e | e end matches: 'a']. |
1054 |
1055 |
1055 |
1056 |
1056 ! ! |
1057 ! ! |
1057 |
1058 |
|
1059 !FirstFollowNextTests class methodsFor:'documentation'! |
|
1060 |
|
1061 version_HG |
|
1062 |
|
1063 ^ '$Changeset: <not expanded> $' |
|
1064 ! ! |
|
1065 |