[Pkg] The Trunk: Tests-mtf.104.mcz

[commits at source.squeak.org]

Matthew Fulmer uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-mtf.104.mcz

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

Name: Tests-mtf.104
Author: mtf
Time: 18 December 2010, 2:23:23.174 pm
UUID: 750b2b05-9019-d64f-8023-6c0781187bf1
Ancestors: Tests-ar.103, Tests-mtf.103

committed test to ensure right mouse button generates a yellow button event to trunk. Requires System-mtf.402

=============== Diff against Tests-ar.103 ===============

Item was added:
+ ----- Method: ReleaseTest>>testSwapMouseButtonsPreference (in category 'testing') -----
+ testSwapMouseButtonsPreference
+ 	"Swap mouse buttons should be enabled"
+ 	self assert: Preferences swapMouseButtons!

Item was changed:
  ----- Method: Win32VMTest>>testWinVM3ButtonMousePreference (in category 'tests') -----
  testWinVM3ButtonMousePreference
+ 	"Ensure that 3ButtonMouse preference is enabled, so that the Win32 VM sends mouse clicks the same way other VMs do"
- 	"Ensure that swapMouseButtons agrees with 3ButtonMouse preference"
  	| iniData iniPref exePath |
  	Smalltalk platformName = 'Win32' ifFalse:[^self].
+ 	exePath := Smalltalk vmFileName.
- 	exePath := Smalltalk vmPath.
  	iniData := [
  		(FileStream readOnlyFileNamed: (exePath copyUpToLast: $.), '.ini')
  			 contentsOfEntireFile
  	] on: Error do:[:ex| ex return: ''].
  	iniPref := false. "default is OFF"
  	iniData linesDo:[:line|
  		(line beginsWith: '3ButtonMouse') ifTrue:[
  			iniPref := (line copyAfter: $=) withBlanksTrimmed ~= '0'.
  		].
  	].
+ 	self assert: iniPref = true.
- 	self assert: iniPref = Preferences swapMouseButtons.
  !