[Pkg] The Trunk: Tests-nice.48.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Feb 25 22:47:30 UTC 2010


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']!



More information about the Packages mailing list