equal
deleted
inserted
replaced
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitIslands-Tests' |
7 category:'PetitIslands-Tests' |
8 ! |
8 ! |
9 |
9 |
10 FirstFollowNextTests comment:'' |
|
11 ! |
|
12 |
|
13 !FirstFollowNextTests methodsFor:'support'! |
10 !FirstFollowNextTests methodsFor:'support'! |
14 |
11 |
15 assert: set allMatches: string |
12 assert: set allMatches: string |
16 self assert: (set allSatisfy: [:e | e end matches: string]) |
13 self assert: (set allSatisfy: [:e | e end matches: string]) |
17 ! |
14 ! |