[View]  [Edit]  [Lock]  [References]  [Attachments]  [History]  [Home]  [Changes]  [Search]  [Help] 

test[s8] character set

"Ensure #isSeparator handle all kind of new-line characters"
| newLines |
newLines := #(
	16r000A 16r000B 16r000C
	16r000D 16r0085
	16r2028 16r2029
	) collect: [:code| code asCharacter ].
newLines do: [:nl|
	('#ok ' ,nl ,#yourself) doIt = #ok
		ifFalse: [ self error: 'Error compiling code with new-line (code=' ,nl asciiValue ,')' ]
]