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