The Trunk: Tests-cwp.157.mcz

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

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

Name: Tests-cwp.157
Author: cwp
Time: 13 August 2012, 4:20:26.759 pm
UUID: f8dca218-9ec4-4a7a-b740-1e05fcc28f95
Ancestors: Tests-fbs.156

Add tests to ensure that Character>>tokenish honours the underscore selectors preference.

=============== Diff against Tests-fbs.156 ===============

Item was added:
+ TestCase subclass: #UnderscoreSelectorsTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Tests-Compiler'!

Item was added:
+ ----- 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>>testPrefFalse (in category 'as yet unclassified') -----
+ testPrefFalse
+ self pref: false during: [self deny: $_ tokenish].!

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