Chris Muller uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-cmm.230.mcz

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

Name: KernelTests-cmm.230
Author: cmm
Time: 6 August 2012, 10:27:29.456 pm
UUID: b9a48227-4036-49a0-bcb0-76dffd94a4ab
Ancestors: KernelTests-eem.229

- Make TimespanDoTest account for defaultOffset.

=============== Diff against KernelTests-eem.229 ===============

Item was changed:
  ----- Method: TimespanDoTest>>setUp (in category 'running') -----
  setUp
  	aDate := DateAndTime
  				year: 2003
  				month: 01
  				day: 07
  				hour: 0
  				minute: 0
  				second: 0.
  	aDuration := Duration
  				days: 91
  				hours: 0
  				minutes: 0
  				seconds: 0
  				nanoSeconds: 0.
+ 	aTimespan := Timespan starting: aDate makeUTC duration: aDuration!
- 	aTimespan := Timespan starting: aDate duration: aDuration!

Item was changed:
  ----- Method: TimespanDoTest>>testMonthsDo (in category 'testing') -----
  testMonthsDo
  	| monthArray |
  	monthArray := Array
  				with: (Month
+ 						starting: (DateAndTime year: 2003 day: 1 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- 						starting: (DateAndTime year: 2003 day: 1)
  						duration: 31 days)
  				with: (Month
+ 						starting: (DateAndTime year: 2003 day: 32 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- 						starting: (DateAndTime year: 2003 day: 32)
  						duration: 28 days)
  				with: (Month
+ 						starting: (DateAndTime year: 2003 day: 60 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- 						starting: (DateAndTime year: 2003 day: 60)
  						duration: 31 days)		
  				with: (Month
+ 						starting: (DateAndTime year: 2003 day: 91 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- 						starting: (DateAndTime year: 2003 day: 91)
  						duration: 30 days).
  	self assert: aTimespan months = monthArray!

Item was changed:
  ----- Method: TimespanDoTest>>testNext (in category 'testing') -----
  testNext
  	self assert: aTimespan next 
  			= (Timespan
  					starting: (DateAndTime
  							year: 2003
  							month: 4
  							day: 8
  							hour: 0
  							minute: 0
+ 							second: 0 
+ 							offset: Timespan defaultOffset)
- 							second: 0)
  					duration: aDuration)!

Item was changed:
  ----- Method: TimespanDoTest>>testWeeksDo (in category 'testing') -----
  testWeeksDo
  	| weekArray |
  	weekArray := OrderedCollection new.
  	7
  		to: 98
  		by: 7
  		do: [:each | weekArray
  				addLast: (Week
+ 						starting: (DateAndTime year: 2003 day: each hour: 0 minute: 0 second: 0 offset: Week defaultOffset)
- 						starting: (DateAndTime year: 2003 day: each)
  						duration: 7 days)].
  	weekArray := weekArray asArray.
  	self assert: aTimespan weeks = weekArray
  !

Item was changed:
  ----- Method: TimespanDoTest>>testYearsDo (in category 'testing') -----
  testYearsDo
  	| yearArray |
  	yearArray := Array
  				with: (Year
+ 						starting: (DateAndTime year: 2003 day: 7 hour: 0 minute: 0 second: 0 offset: Year defaultOffset)
- 						starting: (DateAndTime year: 2003 day: 7)
  						duration: 365 days).
  	self assert: aTimespan years contents = yearArray contents!