[Pkg] The Trunk: Tests-ar.79.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue May 11 04:00:30 UTC 2010
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.!
More information about the Packages
mailing list