equal
deleted
inserted
replaced
40 chars: aCollection message: aString |
40 chars: aCollection message: aString |
41 ^ self on: (PPCharSetPredicate on: [ :char | aCollection includes: char ]) message: aString |
41 ^ self on: (PPCharSetPredicate on: [ :char | aCollection includes: char ]) message: aString |
42 ! |
42 ! |
43 |
43 |
44 cr |
44 cr |
45 ^ self char: Character cr message: 'carriage return expected' |
45 ^ self char: (Character codePoint: 13) message: 'carriage return expected' |
|
46 |
|
47 "Modified: / 03-10-2014 / 23:56:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
46 ! |
48 ! |
47 |
49 |
48 digit |
50 digit |
49 ^ self on: (PPCharSetPredicate on: [ :char | char isDigit ]) message: 'digit expected' |
51 ^ self on: (PPCharSetPredicate on: [ :char | char isDigit ]) message: 'digit expected' |
50 ! |
52 ! |
69 lowercase |
71 lowercase |
70 ^ self on: (PPCharSetPredicate on: [ :char | char isLowercase ]) message: 'lowercase letter expected' |
72 ^ self on: (PPCharSetPredicate on: [ :char | char isLowercase ]) message: 'lowercase letter expected' |
71 ! |
73 ! |
72 |
74 |
73 newline |
75 newline |
74 ^ self chars: (String with: Character cr with: Character lf) message: 'newline expected' |
76 ^ self chars: (String with: (Character codePoint: 13) with: (Character codePoint: 10)) message: 'newline expected' |
|
77 |
|
78 "Modified: / 03-10-2014 / 23:56:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
75 ! |
79 ! |
76 |
80 |
77 punctuation |
81 punctuation |
78 ^ self chars: '.,"''?!!;:#$%&()*+-/<>=@[]\^_{}|~' message: 'punctuation expected' |
82 ^ self chars: '.,"''?!!;:#$%&()*+-/<>=@[]\^_{}|~' message: 'punctuation expected' |
79 ! |
83 ! |