The Trunk: Tests-cwp.159.mcz

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