[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