[Pkg] The Trunk: Tests-cwp.159.mcz

[commits at source.squeak.org]

Colin Putney uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-cwp.159.mcz

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

Name: Tests-cwp.159
Author: cwp
Time: 14 August 2012, 10:33:15.982 am
UUID: b081e01e-3063-4d7f-9804-eda9b599c6a8
Ancestors: Tests-cwp.158

Infix selectors can't include underscores, so remove those tests, and add one that ensures that a single underscore is considered a unary message.

=============== 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>>testP1SingleUnderscore (in category 'tests') -----
+ testP1SingleUnderscore
+ 	self
+ 		assertSelector: #'_'
+ 		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>>testP2Traditional (in category 'tests') -----
+ testP2Traditional
+ 	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].!