The Trunk: Tests-nice.48.mcz

Nicolas Cellier uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-nice.48.mcz

==================== Summary ====================

Name: Tests-nice.48
Author: nice
Time: 25 February 2010, 11:47:35.4 pm
UUID: 20d4df75-900e-0d4f-9233-a649796e5211
Ancestors: Tests-kb.47

Cuis 2.2 ScannerTestFix

=============== Diff against Tests-kb.47 ===============

Item was changed:
  ----- Method: ScannerTest>>testLiteralSymbols (in category 'testing') -----
  testLiteralSymbols
 
+ self assert: ('*+-/\~=<>&@%,|' allSatisfy: [:char | Scanner isLiteralSymbol: (String with: char) asSymbol])
- self assert: ('*+-/\~=<>&@%,|' allSatisfy: [:char | Scanner isLiteralSymbol: (Symbol with: char)])
  description: 'single letter binary symbols can be printed without string quotes'.
 
  self assert: (#('x' 'x:' 'x:y:' 'from:to:by:' 'yourself') allSatisfy: [:str | Scanner isLiteralSymbol: str asSymbol])
  description: 'valid ascii selector symbols can be printed without string quotes'.
 
  ((32 to: 126) collect: [:ascii | Character value: ascii]) ,
  #(':x:yourself' '::' 'x:yourself' '123' 'x0:1:2:' 'x.y.z' '1abc' 'a1b0c2' ' x' 'x ' '+x-y' '||' '--' '++' '+-' '+/-' '-/+' '<|>' '#x' '()' '[]' '{}' '')
  do: [:str |
  self assert: (Compiler evaluate: str asSymbol printString) = str asSymbol
  description: 'in all case, a Symbol must be printed in an interpretable fashion']!