The Trunk: Tests-mtf.104.mcz

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