The Trunk: Tests-ar.79.mcz

Andreas Raab uploaded a new version of Tests to project The Trunk:
http://source.squeak.org/trunk/Tests-ar.79.mcz

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

Name: Tests-ar.79
Author: ar
Time: 10 May 2010, 9:00:09.631 pm
UUID: 90ecdc2c-c28d-5643-b13e-531f4f806dfb
Ancestors: Tests-ar.78

Add longer timeouts to a few selected tests.

=============== Diff against Tests-ar.78 ===============

Item was added:
+ ----- Method: DecompilerTests>>defaultTimeout (in category 'utilities') -----
+ defaultTimeout
+ "Decompiler takes a long time"
+
+ ^30 "seconds"!

Item was changed:
  ----- Method: LocaleTest>>testLocaleChanged (in category 'testing') -----
  testLocaleChanged
  "self debug: #testLocaleChanged"
  "LanguageEnvironment >> startUp is called from Prject >> localeChanged"
+ <timeout: 60> "takes quite a while"
  Project current updateLocaleDependents.
  self assert: (ActiveHand instVarNamed: 'keyboardInterpreter') isNil.
  self assert: (Clipboard default instVarNamed: 'interpreter') isNil.
  Locale switchToID: (LocaleID isoLanguage: 'ja').
  self assert: Preferences useFormsInPaintBox.
  Locale switchToID: (LocaleID isoLanguage: 'en').
  self assert: Preferences useFormsInPaintBox not.
  !

Item was changed:
  ----- Method: MCFileInTest>>testStWriter (in category 'testing') -----
  testStWriter
+ <timeout: 30> "takes a little longer"
  self
  assertFileOutFrom: MCStWriter
  canBeFiledInWith: [stream fileIn].
  !

Item was changed:
  ----- Method: MCWorkingCopyTest>>testDoubleRepeatedMerge (in category 'tests') -----
  testDoubleRepeatedMerge
  | base motherA1 motherA2 motherB1 motherB2 inst |
+ <timeout: 30> "takes a little longer"
-
  base := self snapshot.
  self change: #a toReturn: 'a1'.
  motherA1 :=  self snapshot.
  self change: #c toReturn: 'c1'.
  motherA2 :=  self snapshot.
 
  self load: base.
  self change: #b toReturn: 'b1'.
  motherB1 :=  self snapshot.
  self change: #d toReturn: 'd1'.
  motherB2 :=  self snapshot.
 
  self load: base.
  self merge: motherA1.
  self merge: motherB1.
  self change: #a toReturn: 'a2'.
  self change: #b toReturn: 'b2'.
  self snapshot.
 
  self shouldnt: [self merge: motherA2] raise: Error.
  self shouldnt: [self merge: motherB2] raise: Error.
 
  inst := self mockInstanceA.
  self assert: inst a = 'a2'.
  self assert: inst b = 'b2'.
  self assert: inst c = 'c1'.
  self assert: inst d = 'd1'.
  !

Item was changed:
  ----- Method: MCWorkingCopyTest>>testRepeatedMerge (in category 'tests') -----
  testRepeatedMerge
  | base mother1 mother2 inst |
+ <timeout: 30> "takes a little longer"
-
  base :=  self snapshot.
  self change: #one toReturn: 2.
  mother1 :=  self snapshot.
  self change: #two toReturn: 3.
  mother2 :=  self snapshot.
 
  self load: base.
  self change: #truth toReturn: false.
  self snapshot.
 
  inst := self mockInstanceA.
  self assert: inst one = 1.
  self assert: inst two = 2.
 
  self merge: mother1.
  self assert: inst one = 2.
  self assert: inst two = 2.
 
  self change: #one toReturn: 7.
  self assert: inst one = 7.
  self assert: inst two = 2.
 
  self shouldnt: [self merge: mother2] raise: Error.
  self assert: inst one = 7.
  self assert: inst two = 3.!