A new version of Tests was added to project The Inbox:
http://source.squeak.org/inbox/Tests-cwp.158.mcz

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

Name: Tests-cwp.158
Author: cwp
Time: 13 August 2012, 11:27:52.385 pm
UUID: 815626bc-7a56-4869-961d-f81880b4a668
Ancestors: Tests-cwp.157

Renamed the existing tokenish tests, and added tests for selector precedence in the presence of underscores.

=============== Diff against Tests-cwp.157 ===============

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>assertSelector:hasPrecedence: (in category 'support') -----
+ assertSelector: aSymbol hasPrecedence: expected
+ 	| actual |
+ 	actual := aSymbol precedence.
+ 	self assert: actual = expected!

Item was changed:
+ ----- Method: UnderscoreSelectorsTest>>pref:during: (in category 'support') -----
- ----- Method: UnderscoreSelectorsTest>>pref:during: (in category 'as yet unclassified') -----
  pref: aBoolean during: aBlock
  	| tmp |
  	tmp := Scanner prefAllowUnderscoreSelectors.
  	[Scanner prefAllowUnderscoreSelectors: aBoolean.
  	aBlock value] ensure: 
  		[Scanner prefAllowUnderscoreSelectors: tmp].!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP1InternalUnderscore (in category 'tests') -----
+ testP1InternalUnderscore
+ 	
+ 	self 
+ 		assertSelector: #'is_symbol' 
+ 		hasPrecedence: 1.
+ !

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP1LeadingUnderscore (in category 'tests') -----
+ testP1LeadingUnderscore
+ 	self 
+ 		assertSelector: #'_isSymbol' 
+ 		hasPrecedence: 1.
+ !

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP1Traditional (in category 'tests') -----
+ testP1Traditional
+ 	self
+ 		assertSelector: #isSymbol
+ 		hasPrecedence: 1!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP1TrailingUnderscore (in category 'tests') -----
+ testP1TrailingUnderscore
+ 	self
+ 		assertSelector: #'isSymbol_'
+ 		hasPrecedence: 1!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP2InternalUnderscore (in category 'tests') -----
+ testP2InternalUnderscore
+ 	self
+ 		assertSelector: #'+_+'
+ 		hasPrecedence: 2!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP2LeadingUnderscore (in category 'tests') -----
+ testP2LeadingUnderscore
+ 	self
+ 		assertSelector: #'_+'
+ 		hasPrecedence: 2!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP2SingleUnderscore (in category 'tests') -----
+ testP2SingleUnderscore
+ 	self
+ 		assertSelector: #'_'
+ 		hasPrecedence: 2!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP2Traditional (in category 'tests') -----
+ testP2Traditional
+ 	self
+ 		assertSelector: #+
+ 		hasPrecedence: 2!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP2TrailingUnderscore (in category 'tests') -----
+ testP2TrailingUnderscore
+ 	self
+ 		assertSelector: #'+_'
+ 		hasPrecedence: 2!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP3InternalUnderscore (in category 'tests') -----
+ testP3InternalUnderscore
+ 	self
+ 		assertSelector: #'with_value:'
+ 		hasPrecedence: 3!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP3LeadingUnderscore (in category 'tests') -----
+ testP3LeadingUnderscore
+ 	self
+ 		assertSelector: #'_value:'
+ 		hasPrecedence: 3!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP3Traditional (in category 'tests') -----
+ testP3Traditional
+ 	self
+ 		assertSelector: #value:
+ 		hasPrecedence: 3!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testP3TrailingUnderscore (in category 'tests') -----
+ testP3TrailingUnderscore
+ 	self
+ 		assertSelector: #'value_:'
+ 		hasPrecedence: 3!

Item was removed:
- ----- Method: UnderscoreSelectorsTest>>testPrefFalse (in category 'as yet unclassified') -----
- testPrefFalse
- 	self pref: false during: [self deny: $_ tokenish].!

Item was removed:
- ----- Method: UnderscoreSelectorsTest>>testPrefTrue (in category 'as yet unclassified') -----
- testPrefTrue
- 	self pref: true during: [self assert: $_ tokenish].!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testTokenishFalse (in category 'tests') -----
+ testTokenishFalse
+ 	self pref: false during: [self deny: $_ tokenish].!

Item was added:
+ ----- Method: UnderscoreSelectorsTest>>testTokenishTrue (in category 'tests') -----
+ testTokenishTrue
+ 	self pref: true during: [self assert: $_ tokenish].!