David T. Lewis uploaded a new version of Chronology-Core to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Core-dtl.83.mcz
==================== Summary ====================
Name: Chronology-Core-dtl.83
Author: dtl
Time: 18 June 2023, 4:39:00.39056 pm
UUID: 5533f6f0-9e47-478e-bc41-59aaee83a4bf
Ancestors: Chronology-Core-mt.82
Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support.
Also add TimeZone class>>allForOffset: as proposed by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200)
=============== Diff against Chronology-Core-mt.82 ===============
Item was changed:
----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') -----
localOffset: aDuration
"Override the local time zone (for testing). This disables the #automaticTimezone: preference"
+ self localTimeZone: (FixedTimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO').
- self localTimeZone: (TimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO').
!
Item was added:
+ TimeZone subclass: #FixedTimeZone
+ instanceVariableNames: 'offset abbreviation name'
+ classVariableNames: ''
+ poolDictionaries: 'ChronologyConstants'
+ category: 'Chronology-Core'!
+
+ !FixedTimeZone commentStamp: 'dtl 6/3/2023 00:26' prior: 0!
+ StaticTimeZone is a simple class to collect the information identifying a UTC time zone. It is typically used in unit tests to specify specific time zone offsets.
+
+ offset - Duration - the time zone's offset from UTC
+ abbreviation - String - the abbreviated name for the time zone.
+ name - String - the name of the time zone.
+
+ StaticTimeZone class >> #timeZones returns an array of the known time zones
+ StaticTimeZone class >> #default returns the default time zone (Greenwich Mean Time)
+ !
Item was added:
+ ----- Method: FixedTimeZone class>>allTimeZones (in category 'accessing') -----
+ allTimeZones
+
+ ^ self timeZones , self timeZonesDST!
Item was added:
+ ----- Method: FixedTimeZone class>>default (in category 'accessing') -----
+ default
+ "Answer the default time zone - GMT"
+
+ ^ self timeZones detect: [ :tz | tz offset = Duration zero ]!
Item was added:
+ ----- Method: FixedTimeZone class>>offset:name:abbreviation: (in category 'instance creation') -----
+ offset: aDuration name: aName abbreviation: anAbbreviation
+
+ ^ self new
+ offset: aDuration;
+ name: aName;
+ abbreviation: anAbbreviation;
+ yourself
+ !
Item was added:
+ ----- Method: FixedTimeZone class>>timeZones (in category 'accessing') -----
+ timeZones
+ ^{
+ self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'.
+ self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'.
+ self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'.
+ self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'.
+ self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'.
+ self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'.
+ self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'.
+ self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'.
+ }!
Item was added:
+ ----- Method: FixedTimeZone class>>timeZonesDST (in category 'accessing') -----
+ timeZonesDST
+ ^{
+ self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'.
+ self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'.
+ self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'.
+ self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'.
+ self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'.
+ self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'.
+ }!
Item was added:
+ ----- Method: FixedTimeZone>>abbreviation (in category 'accessing') -----
+ abbreviation
+
+ ^ abbreviation!
Item was added:
+ ----- Method: FixedTimeZone>>abbreviation: (in category 'accessing') -----
+ abbreviation: aString
+
+ abbreviation := aString!
Item was added:
+ ----- Method: FixedTimeZone>>name (in category 'accessing') -----
+ name
+
+ ^ name!
Item was added:
+ ----- Method: FixedTimeZone>>name: (in category 'accessing') -----
+ name: aString
+
+ name := aString!
Item was added:
+ ----- Method: FixedTimeZone>>offset: (in category 'accessing') -----
+ offset: aDuration
+
+ offset := aDuration
+ !
Item was added:
+ ----- Method: FixedTimeZone>>offsetAt: (in category 'accessing') -----
+ offsetAt: dateAndTime
+ "A ConstantTimeZone has a constant offset, ignoring daylight savings time transitions"
+
+ ^ offset
+ !
Item was added:
+ ----- Method: FixedTimeZone>>printOn: (in category 'private') -----
+ printOn: aStream
+
+ super printOn: aStream.
+ aStream
+ nextPut: $(;
+ nextPutAll: self abbreviation;
+ nextPut: $)!
Item was changed:
Object subclass: #TimeZone
+ instanceVariableNames: ''
- instanceVariableNames: 'offset abbreviation name'
classVariableNames: ''
poolDictionaries: 'ChronologyConstants'
category: 'Chronology-Core'!
+ !TimeZone commentStamp: 'dtl 6/15/2023 22:27' prior: 0!
+ A TimeZone answers the UTC offset for a DateAndTime based on local rules for a geographic region. For each regional time zone, the UTC offset varies as a function of the DateAndTime, notably in support of daylight savings time changes. The UTC offset for a TimeZone also may change over time as local rules are updated for various regions and political jurisdictions.
- !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0!
- TimeZone is a simple class to colect the information identifying a UTC time zone.
+ Concrete subclasses are expected to implement UTC offset rules. The simple case of FixedTimeZone implements a time zone with constant offset, which is useful for unit test support.!
- offset - Duration - the time zone's offset from UTC
- abbreviation - String - the abbreviated name for the time zone.
- name - String - the name of the time zone.
-
- TimeZone class >> #timeZones returns an array of the known time zones
- TimeZone class >> #default returns the default time zone (Grenwich Mean Time)
- !
Item was added:
+ ----- Method: TimeZone class>>allForOffset: (in category 'accessing') -----
+ allForOffset: aDuration
+
+ ^ self allTimeZones select: [:ea | ea offset = aDuration]!
Item was added:
+ ----- Method: TimeZone class>>allTimeZones (in category 'accessing') -----
+ allTimeZones
+ "Various concrete implementations may be available. These may include a
+ simple StaticTimeZone or e.g. the TZ-Olson time zone tables with daylight
+ savings time offset transitions."
+
+ ^ self allSubclasses
+ inject: OrderedCollection new
+ into: [ :result :cls |
+ (cls class includesLocalSelector: #allTimeZones)
+ ifTrue: [result addAll: cls allTimeZones].
+ result].
+ !
Item was changed:
----- Method: TimeZone class>>default (in category 'accessing') -----
default
"Answer the default time zone - GMT"
+ ^ FixedTimeZone default!
- ^ self timeZones detect: [ :tz | tz offset = Duration zero ]!
Item was removed:
- ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') -----
- offset: aDuration name: aName abbreviation: anAbbreviation
-
- ^ self new
- offset: aDuration;
- name: aName;
- abbreviation: anAbbreviation;
- yourself
- !
Item was removed:
- ----- Method: TimeZone class>>timeZones (in category 'accessing') -----
- timeZones
- ^{
- self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'.
- self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'.
- self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'.
- self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'.
- self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'.
- self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'.
- self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'.
- self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'.
- }!
Item was removed:
- ----- Method: TimeZone class>>timeZonesDST (in category 'accessing') -----
- timeZonesDST
- ^{
- self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'.
- self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'.
- self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'.
- self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'.
- self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'.
- self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'.
- }!
Item was changed:
----- Method: TimeZone>>abbreviation (in category 'accessing') -----
abbreviation
+ ^ self subclassResponsibility!
- ^ abbreviation!
Item was removed:
- ----- Method: TimeZone>>abbreviation: (in category 'accessing') -----
- abbreviation: aString
-
- abbreviation := aString!
Item was changed:
----- Method: TimeZone>>name (in category 'accessing') -----
name
+ ^ self subclassResponsibility!
- ^ name!
Item was removed:
- ----- Method: TimeZone>>name: (in category 'accessing') -----
- name: aString
-
- name := aString!
Item was changed:
----- Method: TimeZone>>offset (in category 'accessing') -----
offset
+ "Answer the current offset"
+ ^ self offsetAt: DateAndTime now
- ^ offset
!
Item was removed:
- ----- Method: TimeZone>>offset: (in category 'accessing') -----
- offset: aDuration
-
- offset := aDuration
- !
Item was added:
+ ----- Method: TimeZone>>offsetAt: (in category 'accessing') -----
+ offsetAt: dateAndTime
+
+ ^ self subclassResponsibility
+ !
Item was removed:
- ----- Method: TimeZone>>printOn: (in category 'private') -----
- printOn: aStream
-
- super printOn: aStream.
- aStream
- nextPut: $(;
- nextPutAll: self abbreviation;
- nextPut: $)!
Item was changed:
+ (PackageInfo named: 'Chronology-Core') postscript: '"StaticTimeZone is now the concrete implementation of TimeZone"
+
+ DateAndTime localTimeZone == TimeZone
+ ifTrue: [ | newInstance |
+ newInstance := StaticTimeZone
+ offset: DateAndTime localTimeZone offset
+ name: DateAndTime localTimeZone name
+ abbreviation: DateAndTime localTimeZone abbreviation.
+ DateAndTime localTimeZone: newInstance ].
+ '!
- (PackageInfo named: 'Chronology-Core') postscript: 'Smalltalk removeFromStartUpList: DateAndTime'!
1
0
David T. Lewis uploaded a new version of Chronology-Core to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Core-ct.80.mcz
==================== Summary ====================
Name: Chronology-Core-ct.80
Author: ct
Time: 10 June 2022, 7:15:27.575345 pm
UUID: 1b24fec7-ca29-9e47-8951-34966ea11088
Ancestors: Chronology-Core-dtl.79
Merges fix-busyWait-precision:
Fixes #busyWait for durations < 1 milliSecond. Since the original proposal (Chronology-Core-ct.67), the implementation had been moved from Duration to Delay (Chronology-Core-mt.71). However, Delay has only milliseconds precision, causing shorter durations to be handled as a delayDuration of 0 milliSeconds and leading to this erroneous output:
[1 microSeconds busyWait] bench '6,240,000 per second. 160 nanoseconds per run. 0.67973 % GC time.'
Revision:
Moves #busyWait implementation back to Duration and removes non-idiomatic Delay>>#busyWait without deprecation.
For more information, see: https://lists.squeakfoundation.org/pipermail/squeak-dev/2022-May/220378.html
=============== Diff against Chronology-Core-dtl.79 ===============
Item was removed:
- SystemOrganization addCategory: #'Chronology-Core'!
Item was removed:
- ----- Method: BlockClosure>>bench (in category '*chronology-core') -----
- bench
- "See how many times I can value in 5 seconds. I'll answer a meaningful description."
-
- ^self benchFor: 5 seconds!
Item was removed:
- ----- Method: BlockClosure>>benchFor: (in category '*chronology-core') -----
- benchFor: aDuration
- "See how many times I can value within the given duration. I'll answer a meaningful description."
-
- | startTime shouldRun count elapsedTime roundTo3Digits delay gcStart gcTime |
- roundTo3Digits := [:num |
- | rounded lowDigit |
- rounded := (num * 1000) rounded. "round to 1/1000"
- lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits"
- rounded := rounded roundTo:(10 raisedTo: lowDigit).
- (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed"
- ifTrue: [(rounded // 1000) asStringWithCommas]
- ifFalse: [(rounded / 1000.0) printString]].
- delay := aDuration asDelay.
- count := 0.
- shouldRun := true.
- Smalltalk garbageCollect.
- [ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1.
- startTime := Time millisecondClockValue.
- gcStart := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10).
- [ shouldRun ] whileTrue: [
- self value.
- count := count + 1 ].
- elapsedTime := Time millisecondsSince: startTime.
- gcTime := (Smalltalk vmParameterAt: 8) + (Smalltalk vmParameterAt: 10) - gcStart.
- ^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', ((
- #(
- (1e-3 'seconds')
- (1 'milliseconds')
- (1e3 'microseconds')
- (1e6 'nanoseconds')
- )
- detect: [ :pair | elapsedTime * pair first >= count ]
- ifNone: [ #(1e9 'picoseconds') ])
- in: [ :pair |
- ' {1} {2} per run.' format: {
- (roundTo3Digits value: elapsedTime * pair first / count).
- pair second } ]), (' {1} % GC time.' format: {gcTime / elapsedTime * 100 printShowingMaxDecimalPlaces: 5})!
Item was removed:
- ----- Method: BlockClosure>>durationToRun (in category '*chronology-core') -----
- durationToRun
- "Answer the duration taken before this block returns."
-
- ^ Time durationToRun: self
- !
Item was removed:
- ----- Method: BlockClosure>>timeToRun (in category '*chronology-core') -----
- timeToRun
- "Answer the number of milliseconds taken to execute this block."
-
- ^ Time millisecondsToRun: self
- !
Item was removed:
- ----- Method: BlockClosure>>timeToRunWithoutGC (in category '*chronology-core') -----
- timeToRunWithoutGC
- "Answer the number of milliseconds taken to execute this block without GC time."
-
- ^(Smalltalk vmParameterAt: 8) +
- (Smalltalk vmParameterAt: 10) +
- self timeToRun -
- (Smalltalk vmParameterAt: 8) -
- (Smalltalk vmParameterAt: 10)
- !
Item was removed:
- ----- Method: BlockClosure>>valueWithin:onTimeout: (in category '*chronology-core') -----
- valueWithin: aDuration onTimeout: timeoutBlock
- "Evaluate the receiver.
- If the evaluation does not complete in less than aDuration evaluate the timeoutBlock instead"
-
- | theProcess delay watchdog tag |
-
- aDuration <= Duration zero ifTrue: [^ timeoutBlock value ].
-
- "the block will be executed in the current process"
- theProcess := Processor activeProcess.
- delay := aDuration asDelay.
- tag := self.
-
- "make a watchdog process"
- watchdog := [
- delay wait. "wait for timeout or completion"
- theProcess ifNotNil:[ theProcess signalException: (TimedOut new tag: tag)]
- ] newProcess.
-
- "Watchdog needs to run at high priority to do its job (but not at timing priority)"
- watchdog priority: Processor timingPriority-1.
-
- "catch the timeout signal"
- ^ [ watchdog resume. "start up the watchdog"
- self ensure:[ "evaluate the receiver"
- theProcess := nil. "it has completed, so ..."
- delay delaySemaphore signal. "arrange for the watchdog to exit"
- ]] on: TimedOut do: [ :e |
- e tag == tag
- ifTrue:[ timeoutBlock value ]
- ifFalse:[ e pass]].!
Item was removed:
- SharedPool subclass: #ChronologyConstants
- instanceVariableNames: ''
- classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero'
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0!
- ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.!
Item was removed:
- ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') -----
- initialize
- "ChronologyConstants initialize"
-
- SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901"
- SecondsInDay := 86400.
- SecondsInHour := 3600.
- SecondsInMinute := 60.
- MicrosecondsInDay := 24 * 60 * 60 * 1000000.
- NanosInSecond := 10 raisedTo: 9.
- NanosInMillisecond := 10 raisedTo: 6.
- DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday).
-
- MonthNames := #( January February March April May June
- July August September October November December).
- DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)!
Item was removed:
- Timespan subclass: #Date
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !Date commentStamp: 'cmm 6/28/2016 21:36' prior: 0!
- Instances of Date are Timespans with duration of 1 day. As with all Chronology Timespan sub-instances, Dates can be instantiated as position values which compare equally to any other instance of the same Date, irregardless of the timezone in which either is created.
-
- However, like the other Timespan subInstances, there are rare cases where it may be desirable to use instances of Date to represent a particular 1-day span of time at a particular locality on the globe. All Timespans, including Dates, may specify a particular timezone offset for this purpose.!
Item was removed:
- ----- Method: Date class>>dateAndTimeNow (in category 'smalltalk-80') -----
- dateAndTimeNow
- "Answer an Array whose with Date today and Time now."
-
- ^ Time dateAndTimeNow
- !
Item was removed:
- ----- Method: Date class>>dayOfWeek: (in category 'smalltalk-80') -----
- dayOfWeek: dayName
-
- ^ Week indexOfDay: dayName!
Item was removed:
- ----- Method: Date class>>daysInMonth:forYear: (in category 'smalltalk-80') -----
- daysInMonth: monthName forYear: yearInteger
-
- ^ Month daysInMonth: monthName forYear: yearInteger.
- !
Item was removed:
- ----- Method: Date class>>daysInYear: (in category 'smalltalk-80') -----
- daysInYear: yearInteger
-
- ^ Year daysInYear: yearInteger.!
Item was removed:
- ----- Method: Date class>>easterDateFor: (in category 'general inquiries') -----
- easterDateFor: year
-
- " compute the easter date.
- source: Physikalisch-Technische Bundesanstalt Braunschweig.
- Lichtenberg, H.: Zur Interpretation der Gaussschen Osterformel
- und ihrer Ausnahmeregeln,
- Historia Mathematica 24 (1997), pp. 441-444
-
- http://www.ptb.de/de/org/4/44/441/oste.htm
- "
-
- | k m s a d r og sz oe day |
-
- k := year // 100.
- m := 15 + (3*k + 3//4) - (8*k + 13//25).
- s := 2 - (3*k + 3// 4).
- a := year \\ 19.
- d := 19*a + m \\ 30.
- r := d//29 + ((d//28) - (d//29)* (a// 11)).
-
- og := 21 + d - r.
- sz := 7 - (year//4 + year + s\\7).
- oe := 7 - (og - sz\\7).
- day := og + oe.
- ^day <= 31
- ifTrue: [Date newDay: day month: 3 year: year ]
- ifFalse: [Date newDay: day - 31 month: 4 year: year].!
Item was removed:
- ----- Method: Date class>>firstWeekdayOfMonth:year: (in category 'smalltalk-80') -----
- firstWeekdayOfMonth: month year: year
- "Answer the weekday index of the first day in <month> in the <year>."
-
- ^ (self newDay: 1 month: month year: year) weekdayIndex
- !
Item was removed:
- ----- Method: Date class>>fromDays: (in category 'smalltalk-80') -----
- fromDays: dayCount
- "Days since 1 January 1901"
-
- ^ self julianDayNumber: dayCount + SqueakEpoch!
Item was removed:
- ----- Method: Date class>>fromSeconds: (in category 'smalltalk-80') -----
- fromSeconds: seconds
- "Answer an instance of me which is 'seconds' seconds after January 1, 1901."
-
- ^ self fromDays: ((Duration seconds: seconds) days)
- !
Item was removed:
- ----- Method: Date class>>fromString: (in category 'squeak protocol') -----
- fromString: aString
- "Answer an instance of created from a string with format mm.dd.yyyy."
-
- ^ self readFrom: aString readStream.!
Item was removed:
- ----- Method: Date class>>indexOfMonth: (in category 'smalltalk-80') -----
- indexOfMonth: aMonthName
-
- ^ Month indexOfMonth: aMonthName.
- !
Item was removed:
- ----- Method: Date class>>julianDayNumber: (in category 'squeak protocol') -----
- julianDayNumber: aJulianDayNumber
- ^ self starting:
- (DateAndTime
- julianDayNumber: aJulianDayNumber
- offset: self defaultOffset)!
Item was removed:
- ----- Method: Date class>>leapYear: (in category 'smalltalk-80') -----
- leapYear: yearInteger
-
- ^ Year leapYear: yearInteger!
Item was removed:
- ----- Method: Date class>>nameOfDay: (in category 'smalltalk-80') -----
- nameOfDay: dayIndex
-
- ^ Week nameOfDay: dayIndex !
Item was removed:
- ----- Method: Date class>>nameOfMonth: (in category 'smalltalk-80') -----
- nameOfMonth: anIndex
-
- ^ Month nameOfMonth: anIndex.
- !
Item was removed:
- ----- Method: Date class>>newDay:month:year: (in category 'smalltalk-80') -----
- newDay: day month: month year: year
-
- ^ self year: year month: month day: day
- !
Item was removed:
- ----- Method: Date class>>newDay:year: (in category 'smalltalk-80') -----
- newDay: dayCount year: yearInteger
-
- ^ self year: yearInteger day: dayCount!
Item was removed:
- ----- Method: Date class>>orthodoxEasterDateFor: (in category 'general inquiries') -----
- orthodoxEasterDateFor: year
-
- " compute the easter date according to the rules of the orthodox calendar.
- source:
- http://www.smart.net/~mmontes/ortheast.html
- "
- | r1 r2 r3 r4 ra rb r5 rc date |
-
- r1 := year \\ 19.
- r2 := year \\ 4.
- r3 := year \\ 7.
- ra := 19*r1 + 16.
- r4 := ra \\ 30.
- rb := r2 + r2 + (4*r3) + (6*r4).
- r5 := rb \\ 7.
- rc := r4 + r5.
- date := Date newDay: 3 month: 4 year: year.
- ^date addDays: rc.!
Item was removed:
- ----- Method: Date class>>readFrom: (in category 'squeak protocol') -----
- readFrom: aStream
- "Read a Date from the stream in any of the forms:
- <day> <month> <year> (15 April 1982; 15-APR-82; 15.4.82; 15APR82)
- <month> <day> <year> (April 15, 1982; 4/15/82)
- <year>-<month>-<day> (1982-04-15) (ISO8601)"
- | ymd |
- ymd := self readYearMonthDayFrom: aStream.
- ^ self
- year: ymd first
- month: ymd second
- day: ymd third
- !
Item was removed:
- ----- Method: Date class>>readFrom:pattern: (in category 'squeak protocol') -----
- readFrom: inputStream pattern: pattern
- "Read a Date from the stream based on the pattern which can include the tokens:
-
- y = A year with 1-n digits
- yy = A year with 2 digits
- yyyy = A year with 4 digits
- m = A month with 1-n digits
- mm = A month with 2 digits
- d = A day with 1-n digits
- dd = A day with 2 digits
-
- ...and any other Strings inbetween. Representing $y, $m and $d is done using
- \y, \m and \d and slash itself with \\. Simple example patterns:
-
- 'yyyy-mm-dd'
- 'yyyymmdd'
- 'yy.mm.dd'
- 'y-m-d'
-
- A year given using only two decimals is considered to be >2000."
-
- | day month year patternStream char |
- patternStream := pattern readStream.
- [patternStream atEnd] whileFalse: [
- inputStream atEnd ifTrue: [^nil].
- char := patternStream next.
- char = $\
- ifTrue: [inputStream next = patternStream next ifFalse: [^nil]]
- ifFalse: [
- char = $y
- ifTrue: [
- (patternStream nextMatchAll: 'yyy')
- ifTrue: [year := (inputStream next: 4) asInteger]
- ifFalse: [
- (patternStream peekFor: $y)
- ifTrue: [
- year := (inputStream next: 2) asInteger]
- ifFalse: [
- year := Integer readFrom: inputStream]]]
- ifFalse: [
- char = $m
- ifTrue: [
- (patternStream peekFor: $m)
- ifTrue: [
- month := (inputStream next: 2) asInteger]
- ifFalse: [
- month := Integer readFrom: inputStream]]
- ifFalse: [
- char = $d
- ifTrue: [
- (patternStream peekFor: $d)
- ifTrue: [
- day := (inputStream next: 2) asInteger]
- ifFalse: [
- day := Integer readFrom: inputStream]]
- ifFalse: [
- inputStream next = char ifFalse: [^nil]]]]]].
- (year isNil | month isNil | day isNil) ifTrue: [^nil].
- ^self year: year month: month day: day!
Item was removed:
- ----- Method: Date class>>readYearMonthDayFrom: (in category 'squeak protocol') -----
- readYearMonthDayFrom: aStream
- "Read Date information from the stream in any of the forms:
- <day> <month> <year> (15 April 1982; 15-APR-82; 15.4.82; 15APR82)
- <month> <day> <year> (April 15, 1982; 4/15/82)
- <year>-<month>-<day> (1982-04-15) (ISO8601)"
- | day month year parsedNumber prefix monthIndex |
- aStream peek = $-
- ifTrue: [prefix := -1]
- ifFalse: [prefix := 1].
- [aStream peek isAlphaNumeric]
- whileFalse: [aStream skip: 1].
- aStream peek isDigit
- ifTrue: [
- parsedNumber := (Integer readFrom: aStream) * prefix.
- (parsedNumber < 0 or: [parsedNumber > 31])
- ifTrue: [year := parsedNumber]].
- [aStream peek isAlphaNumeric]
- whileFalse: [aStream skip: 1].
- aStream peek isLetter
- ifTrue: ["MM-DD-YY or DD-MM-YY or YY-MM-DD"
- month := WriteStream on: (String new: 10).
- [aStream peek isLetter]
- whileTrue: [month nextPut: aStream next].
- month := month contents.
- [aStream peek isAlphaNumeric]
- whileFalse: [aStream skip: 1].
- parsedNumber isNil
- ifTrue: ["MM DD YY"
- day := Integer readFrom: aStream]
- ifFalse: [
- year isNil
- ifTrue: ["DD MM YY"
- day := parsedNumber]]]
- ifFalse: ["MM-DD-YY or DD-MM-YY or YY-MM-DD"
- year isNil
- ifTrue: ["MM-DD-YY or DD-MM-YY"
- parsedNumber > 12
- ifTrue: ["DD-MM-YY"
- day := parsedNumber.
- monthIndex := Integer readFrom: aStream.
- "month := Month nameOfMonth: (Integer readFrom: aStream)"]
- ifFalse: ["MM-DD-YY"
- monthIndex := parsedNumber.
- "month := Month nameOfMonth: parsedNumber."
- day := Integer readFrom: aStream]]
- ifFalse: ["YY-MM-DD"
- monthIndex := Integer readFrom: aStream.
- "month := Month nameOfMonth: (Integer readFrom: aStream)"]].
- [aStream peek isAlphaNumeric]
- whileFalse: [aStream skip: 1].
- year isNil
- ifTrue: [year := Integer readFrom: aStream]
- ifFalse: [day := Integer readFrom: aStream].
- (year < 100 and: [year >= 0])
- ifTrue: [
- year < 69
- ifTrue: [ year := 2000 + year]
- ifFalse: [year := 1900 + year]].
-
- monthIndex ifNil: [monthIndex := Month indexOfMonth: month].
- ^ { year . monthIndex . day }
- !
Item was removed:
- ----- Method: Date class>>starting: (in category 'squeak protocol') -----
- starting: aDateAndTime
- ^ self
- starting: aDateAndTime midnight
- duration: Duration oneDay!
Item was removed:
- ----- Method: Date class>>today (in category 'smalltalk-80') -----
- today
-
- ^ self current
- !
Item was removed:
- ----- Method: Date class>>tomorrow (in category 'squeak protocol') -----
- tomorrow
-
- ^ self today next!
Item was removed:
- ----- Method: Date class>>year:day: (in category 'squeak protocol') -----
- year: year day: dayOfYear
- ^ self starting:
- (DateAndTime
- year: year
- day: dayOfYear
- hour: 0
- minute: 0
- second: 0
- offset: self defaultOffset)!
Item was removed:
- ----- Method: Date class>>year:month:day: (in category 'squeak protocol') -----
- year: year month: month day: day
- ^ self starting:
- (DateAndTime
- year: year
- month: month
- day: day
- hour: 0
- minute: 0
- second: 0
- offset: self defaultOffset)!
Item was removed:
- ----- Method: Date class>>yesterday (in category 'squeak protocol') -----
- yesterday
-
- ^ self today previous!
Item was removed:
- ----- Method: Date>>@ (in category 'squeak protocol') -----
- @ aTime
- ^ DateAndTime
- date: self
- time: aTime!
Item was removed:
- ----- Method: Date>>addDays: (in category 'smalltalk-80') -----
- addDays: dayCount
-
- ^ (self asDateAndTime + (dayCount days)) asDate!
Item was removed:
- ----- Method: Date>>addMonths: (in category 'utils') -----
- addMonths: monthCount
- |year month maxDaysInMonth day |
- year := self year + (monthCount + self monthIndex - 1 // 12).
- month := self monthIndex + monthCount - 1 \\ 12 + 1.
- maxDaysInMonth := Month daysInMonth: month forYear: year.
- day := self dayOfMonth > maxDaysInMonth
- ifTrue: [maxDaysInMonth]
- ifFalse: [self dayOfMonth].
- ^ Date
- newDay: day
- month: month
- year: year!
Item was removed:
- ----- Method: Date>>asDate (in category 'squeak protocol') -----
- asDate
-
- ^ self
- !
Item was removed:
- ----- Method: Date>>asSeconds (in category 'smalltalk-80') -----
- asSeconds
- "Answer the seconds since the Squeak epoch: 1 January 1901"
-
- ^ start asSeconds
- !
Item was removed:
- ----- Method: Date>>dayMonthYearDo: (in category 'squeak protocol') -----
- dayMonthYearDo: aBlock
- "Supply integers for day, month and year to aBlock and return the result"
-
- ^ start dayMonthYearDo: aBlock!
Item was removed:
- ----- Method: Date>>leap (in category 'smalltalk-80') -----
- leap
- "Answer whether the receiver's year is a leap year."
-
- ^ start isLeapYear ifTrue: [1] ifFalse: [0].!
Item was removed:
- ----- Method: Date>>mmddyyyy (in category 'printing') -----
- mmddyyyy
- "Answer the receiver rendered in standard U.S.A format mm/dd/yyyy.
- Note that the name here is slightly misleading -- the month and day numbers don't show leading zeros,
- so that for example February 1 1996 is 2/1/96"
-
-
- ^ self printFormat: #(2 1 3 $/ 1 1)
- !
Item was removed:
- ----- Method: Date>>month (in category 'squeak protocol') -----
- month
- ^ self asMonth!
Item was removed:
- ----- Method: Date>>monthIndex (in category 'squeak protocol') -----
- monthIndex
- ^ super month!
Item was removed:
- ----- Method: Date>>onNextMonth (in category 'utils') -----
- onNextMonth
-
- ^ self addMonths: 1
- !
Item was removed:
- ----- Method: Date>>onPreviousMonth (in category 'utils') -----
- onPreviousMonth
-
- ^ self addMonths: -1
- !
Item was removed:
- ----- Method: Date>>previous: (in category 'smalltalk-80') -----
- previous: dayName
- "Answer the previous date whose weekday name is dayName."
-
- | days |
- days := 7 + self weekdayIndex - (self class dayOfWeek: dayName) \\ 7.
- days = 0 ifTrue: [ days := 7 ].
- ^ self subtractDays: days!
Item was removed:
- ----- Method: Date>>printFormat: (in category 'printing') -----
- printFormat: formatArray
- "Answer a String describing the receiver using the argument formatArray."
-
- ^String new: 17 streamContents: [ :stream |
- self printOn: stream format: formatArray ]!
Item was removed:
- ----- Method: Date>>printOn: (in category 'printing') -----
- printOn: aStream
-
- self printOn: aStream format: #(1 2 3 $ 3 1 )
- !
Item was removed:
- ----- Method: Date>>printOn:format: (in category 'printing') -----
- printOn: aStream format: formatArray
- "Print a description of the receiver on aStream using the format
- denoted the argument, formatArray:
-
- #(item item item sep monthfmt yearfmt twoDigits)
-
- items: 1=day 2=month 3=year will appear in the order given,
-
- separated by sep which is eaither an ascii code or character.
-
- monthFmt: 1=09 2=Sep 3=September
-
- yearFmt: 1=1996 2=96
-
- digits: (missing or)1=9 2=09.
-
- See the examples in printOn: and mmddyy"
- | gregorian twoDigits element monthFormat |
- gregorian := self dayMonthYearDo: [ :d :m :y | {d. m. y} ].
- twoDigits := formatArray size > 6 and: [(formatArray at: 7) > 1].
- 1 to: 3 do:
- [ :i |
- element := formatArray at: i.
- element = 1
- ifTrue: [twoDigits
- ifTrue: [aStream
- nextPutAll: (gregorian first asString
- padded: #left
- to: 2
- with: $0)]
- ifFalse: [gregorian first printOn: aStream]].
- element = 2
- ifTrue: [monthFormat := formatArray at: 5.
- monthFormat = 1
- ifTrue: [twoDigits
- ifTrue: [aStream
- nextPutAll: (gregorian middle asString
- padded: #left
- to: 2
- with: $0)]
- ifFalse: [gregorian middle printOn: aStream]].
- monthFormat = 2
- ifTrue: [aStream
- nextPutAll: ((Month nameOfMonth: gregorian middle)
- copyFrom: 1
- to: 3)].
- monthFormat = 3
- ifTrue: [aStream
- nextPutAll: (Month nameOfMonth: gregorian middle)]].
- element = 3
- ifTrue: [(formatArray at: 6)
- = 1
- ifTrue: [gregorian last printOn: aStream]
- ifFalse: [aStream
- nextPutAll: ((gregorian last \\ 100) asString
- padded: #left
- to: 2
- with: $0)]].
- i < 3
- ifTrue: [(formatArray at: 4)
- ~= 0
- ifTrue: [aStream nextPut: (formatArray at: 4) asCharacter]]]!
Item was removed:
- ----- Method: Date>>storeOn: (in category 'printing') -----
- storeOn: aStream
-
- aStream print: self printString; nextPutAll: ' asDate'
- !
Item was removed:
- ----- Method: Date>>subtractDate: (in category 'smalltalk-80') -----
- subtractDate: aDate
- "Answer the number of days between self and aDate"
-
- ^ (self start - aDate asDateAndTime) days!
Item was removed:
- ----- Method: Date>>subtractDays: (in category 'smalltalk-80') -----
- subtractDays: dayCount
-
- ^ (self asDateAndTime - (dayCount days)) asDate!
Item was removed:
- ----- Method: Date>>weekday (in category 'smalltalk-80') -----
- weekday
- "Answer the name of the day of the week on which the receiver falls."
-
- ^ self dayOfWeekName!
Item was removed:
- ----- Method: Date>>weekdayIndex (in category 'smalltalk-80') -----
- weekdayIndex
- "Sunday=1, ... , Saturday=7"
-
- ^ self dayOfWeek!
Item was removed:
- ----- Method: Date>>yyyymmdd (in category 'printing') -----
- yyyymmdd
- "Format the date in ISO 8601 standard like '2002-10-22'."
-
- ^ self printFormat: #(3 2 1 $- 1 1 2)
- !
Item was removed:
- Magnitude subclass: #DateAndTime
- instanceVariableNames: 'utcMicroseconds localOffsetSeconds'
- classVariableNames: 'AutomaticTimezone ClockProvider LocalTimeZone PosixEpochJulianDays'
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !DateAndTime commentStamp: 'dtl 3/12/2016 10:32' prior: 0!
- I represent a point in UTC time as defined by ISO 8601. I have zero duration.
-
- My implementation uses variables utcMicroseconds and localOffsetSeconds. This represents time magnitude as elapsed microseconds since the Posix epoch, with localOffsetSeconds representing local offset from UTC. The magnitude is used for comparison and duration calculations, and the local offset is used for displaying this magnitude in the context of a local time zone.
-
- The implementation ignores leap seconds, which are adjustments made to maintain earth rotational clock time in synchronization with elapsed seconds.
-
- DateAndTime class>>now will use #primitiveUtcWithOffset to obtain current time in UTC microseconds with current local offset in seconds. The primitive provides an atomic query for UTC time and local offset as measured by the OS platform. If primitiveUtcWithOffset is not available, the traditional implementation is used, which relies on a primitive for microseconds in the local time zone and derives UTC based on the TimeZone setting.
- !
Item was removed:
- ----- Method: DateAndTime class>>automaticTimezone (in category 'preferences') -----
- automaticTimezone
- "Accessor for the system-wide preference"
-
- <preference: 'Automatically set local timezone'
- category: 'general'
- description: 'If enabled, the timezone will automatically be kept in sync with the system''s time (daylight savings changes etc.)'
- type: #Boolean>
- ^AutomaticTimezone ifNil: [ true ]!
Item was removed:
- ----- Method: DateAndTime class>>automaticTimezone: (in category 'preferences') -----
- automaticTimezone: aBooleanOrNil
- "Accessor for the system-wide preference.
- Note this gets disabled in localTimeZone: to make that override stick"
-
- AutomaticTimezone := aBooleanOrNil.
- self automaticTimezone ifTrue: [self now]. "fetch timezone immediately"!
Item was removed:
- ----- Method: DateAndTime class>>clock (in category 'clock provider') -----
- clock
- "the provider of real time seconds/milliseconds."
-
- ^ ClockProvider !
Item was removed:
- ----- Method: DateAndTime class>>clockPrecision (in category 'ansi protocol') -----
- clockPrecision
- "One nanosecond precision"
-
- ^ Duration seconds: 0 nanoSeconds: 1
- !
Item was removed:
- ----- Method: DateAndTime class>>current (in category 'squeak protocol') -----
- current
-
-
- ^ self now!
Item was removed:
- ----- Method: DateAndTime class>>date:time: (in category 'squeak protocol') -----
- date: aDate time: aTime
-
- ^ self
- year: aDate year
- month: aDate monthIndex
- day: aDate dayOfMonth
- hour: aTime hour
- minute: aTime minute
- second: aTime second
- nanoSecond: aTime nanoSecond
- offset: aDate start offset!
Item was removed:
- ----- Method: DateAndTime class>>daysFromSmalltalkEpochToPosixEpoch (in category 'private') -----
- daysFromSmalltalkEpochToPosixEpoch
-
- ^52 * 365 + (17 * 366)!
Item was removed:
- ----- Method: DateAndTime class>>epoch (in category 'squeak protocol') -----
- epoch
- "Answer a DateAndTime representing the Squeak epoch: 1 January 1901"
-
- ^ self utcMicroseconds: self epochOffsetMicros negated offset: 0
- !
Item was removed:
- ----- Method: DateAndTime class>>epochOffset (in category 'private') -----
- epochOffset
- "Elaspsed seconds from the Smalltalk epoch to the Posix epoch"
- ^self daysFromSmalltalkEpochToPosixEpoch * SecondsInDay!
Item was removed:
- ----- Method: DateAndTime class>>epochOffsetMicros (in category 'private') -----
- epochOffsetMicros
- "Elaspsed microseconds from the Smalltalk epoch to the Posix epoch"
- ^self epochOffset * 1000000!
Item was removed:
- ----- Method: DateAndTime class>>fromSeconds: (in category 'smalltalk-80') -----
- fromSeconds: seconds
- "Answer a DateAndTime since the Squeak epoch: 1 January 1901
-
- Squeak traditionally used seconds since the Smalltalk epoch in local time,
- which is undefinable. The error was probably caused by some early VM design
- choices that have since been corrected. Assume now that the Smalltalk epoch
- is defined relative to GMT, and that it may be treated similarly to the Posix
- epoch except for a constant offset value.
-
- This implementation differs from earlier Squeak in that it uses seconds relative
- to the Smalltalk epoch (not local time), and represents seconds as an arbitrary
- precision number rather than an integer."
-
- | s uSec offset |
- offset := self localOffsetSeconds.
- s := seconds - self epochOffset.
- uSec := s * 1000000.
- ^ self utcMicroseconds: uSec offset: offset
- !
Item was removed:
- ----- Method: DateAndTime class>>fromString: (in category 'squeak protocol') -----
- fromString: aString
-
-
- ^ self readFrom: (ReadStream on: aString)!
Item was removed:
- ----- Method: DateAndTime class>>fromUnixTime: (in category 'squeak protocol') -----
- fromUnixTime: utcSeconds
-
- ^self utcSeconds: utcSeconds offset: 0
- !
Item was removed:
- ----- Method: DateAndTime class>>initialize (in category 'initialize-release') -----
- initialize
-
- ClockProvider := Time.
- PosixEpochJulianDays := 2440588.!
Item was removed:
- ----- Method: DateAndTime class>>julianDayNumber: (in category 'squeak protocol') -----
- julianDayNumber: anInteger
- ^ self
- julianDayNumber: anInteger
- offset: self localOffset!
Item was removed:
- ----- Method: DateAndTime class>>julianDayNumber:offset: (in category 'squeak protocol') -----
- julianDayNumber: anInteger offset: aDuration
-
- ^self basicNew
- setJdn: anInteger
- seconds: 0
- nano: 0
- offset: aDuration!
Item was removed:
- ----- Method: DateAndTime class>>localOffset (in category 'squeak protocol') -----
- localOffset
- "Answer the duration we are offset from UTC"
-
- ^ Duration seconds: self localOffsetSeconds
- !
Item was removed:
- ----- Method: DateAndTime class>>localOffset: (in category 'squeak protocol') -----
- localOffset: aDuration
- "Override the local time zone (for testing). This disables the #automaticTimezone: preference"
- self localTimeZone: (TimeZone offset: aDuration name: 'Local Time (override)' abbreviation: 'LTO').
- !
Item was removed:
- ----- Method: DateAndTime class>>localOffsetSeconds (in category 'private') -----
- localOffsetSeconds
-
- self automaticTimezone
- ifTrue: [ ^Time posixMicrosecondClockWithOffset second ]
- ifFalse: [ ^self localTimeZone offset asSeconds ]!
Item was removed:
- ----- Method: DateAndTime class>>localTimeZone (in category 'accessing') -----
- localTimeZone
- "Answer the local time zone"
-
- ^ LocalTimeZone ifNil: [ LocalTimeZone := TimeZone default ]
-
- !
Item was removed:
- ----- Method: DateAndTime class>>localTimeZone: (in category 'accessing') -----
- localTimeZone: aTimeZone
- "Set the local time zone"
- "
- DateAndTime localTimeZone: (TimeZone offset: 0 hours name: 'Universal Time' abbreviation: 'UTC').
- DateAndTime localTimeZone: (TimeZone offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST').
- "
- LocalTimeZone := aTimeZone.
- self automaticTimezone: (aTimeZone abbreviation = 'LT')!
Item was removed:
- ----- Method: DateAndTime class>>midnight (in category 'squeak protocol') -----
- midnight
-
- ^ self now midnight!
Item was removed:
- ----- Method: DateAndTime class>>milliSecondsSinceMidnight (in category 'squeak protocol') -----
- milliSecondsSinceMidnight
- ^Time milliSecondsSinceMidnight!
Item was removed:
- ----- Method: DateAndTime class>>millisecondClock (in category 'smalltalk-80') -----
- millisecondClock
-
- ^self clock millisecondClock!
Item was removed:
- ----- Method: DateAndTime class>>new (in category 'squeak protocol') -----
- new
- "Answer a DateAndTime representing the Squeak epoch: 1 January 1901"
-
- ^ self utcMicroseconds: self epochOffsetMicros negated offset: 0
-
- !
Item was removed:
- ----- Method: DateAndTime class>>noon (in category 'squeak protocol') -----
- noon
-
- ^ self now noon
- !
Item was removed:
- ----- Method: DateAndTime class>>now (in category 'ansi protocol') -----
- now
- "Answer time now as reported by #primitiveUtcWithOffset. If the primitive is not
- available, answer the Posix epoch GMT."
-
- self automaticTimezone
- ifTrue: [ ^ self basicNew initializeFromPrimitive ]
- ifFalse: [ | timeArray |
- timeArray := Time posixMicrosecondClockWithOffset.
- ^ self utcMicroseconds: timeArray first offset: self localOffsetSeconds ]
- !
Item was removed:
- ----- Method: DateAndTime class>>nowAtOffset: (in category 'squeak protocol') -----
- nowAtOffset: offsetDuration
- "Answers the local time at places with the specified offsetDuration timezone."
- "local time Chicago (CST)"
- "DateAndTime nowAtOffset: -6 hours"
-
- ^ self utcMicroseconds: Time posixMicrosecondClockWithOffset first offset: offsetDuration asSeconds
- !
Item was removed:
- ----- Method: DateAndTime class>>readFrom: (in category 'squeak protocol') -----
- readFrom: aStream
-
- | yearMonthDay hourMinuteSecondNano offsetSeconds |
-
- yearMonthDay := Date readYearMonthDayFrom: aStream.
- [aStream peek isDigit]
- whileFalse: [aStream next].
- hourMinuteSecondNano := Time readHourMinuteSecondNanoFrom: aStream.
- (aStream atEnd or: [('+-Z' includes: aStream peek) not])
- ifTrue: [ self flag: #FIXME.
- "Different unit tests have conflicting opinions as to whether the
- current local offset should be used as a default. However, the current
- local offset cannot be correct due to DST (offset is itself a function
- of the point in time). Nevertheless, this is a reasonable default considering
- that the offset would have been explicitly part of the date string if it
- was a matter of concern. Unit tests will require updates to match this
- assumption."
- "offsetSeconds := 0"
- offsetSeconds := self localOffsetSeconds]
- ifFalse: [(aStream peekFor: $Z)
- ifTrue: [offsetSeconds := 0]
- ifFalse: [ | ch offsetString offset |
- ch := aStream next.
- ch = $+ ifTrue: [ch := Character space].
- offsetString := aStream upToEnd.
- (offsetString atLast: 3 ifAbsent: ['']) = $:
- ifFalse: [offsetString := (offsetString allButLast: 2) , ':' , (offsetString last: 2)].
- offset := Duration fromString: ch asString, '0:', offsetString, ':0'.
- offsetSeconds := offset asSeconds]].
- ^ self
- year: yearMonthDay first
- month: yearMonthDay second
- day: yearMonthDay third
- hour: hourMinuteSecondNano first
- minute: hourMinuteSecondNano second
- second: hourMinuteSecondNano third
- nanoSecond: hourMinuteSecondNano fourth
- offsetSeconds: offsetSeconds
-
-
- " '-1199-01-05T20:33:14.321-05:00' asDateAndTime
- ' 2002-05-16T17:20:45.1+01:01' asDateAndTime
-
- ' 2002-05-16T17:20:45.02+01:01' asDateAndTime
-
- ' 2002-05-16T17:20:45.003+01:01' asDateAndTime
-
- ' 2002-05-16T17:20:45.0004+01:01' asDateAndTime
- ' 2002-05-16T17:20:45.00005' asDateAndTime
- ' 2002-05-16T17:20:45.000006+01:01' asDateAndTime
-
- ' 2002-05-16T17:20:45.0000007+01:01' asDateAndTime
- ' 2002-05-16T17:20:45.00000008-01:01' asDateAndTime
- ' 2002-05-16T17:20:45.000000009+01:01' asDateAndTime
- ' 2002-05-16T17:20:45.0000000001+01:01' asDateAndTime
-
- ' 2002-05-16T17:20' asDateAndTime
- ' 2002-05-16T17:20:45' asDateAndTime
- ' 2002-05-16T17:20:45+01:57' asDateAndTime
- ' 2002-05-16T17:20:45-02:34' asDateAndTime
- ' 2002-05-16T17:20:45+00:00' asDateAndTime
- ' 1997-04-26T01:02:03+01:02:3' asDateAndTime
-
- ' 1970-01-01T00:00:00.000+0000' asDateAndTime
- "!
Item was removed:
- ----- Method: DateAndTime class>>today (in category 'squeak protocol') -----
- today
-
- ^ self midnight!
Item was removed:
- ----- Method: DateAndTime class>>tomorrow (in category 'squeak protocol') -----
- tomorrow
-
- ^ self today asDate next asDateAndTime
- !
Item was removed:
- ----- Method: DateAndTime class>>unixEpoch (in category 'squeak protocol') -----
- unixEpoch
- "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)"
-
- ^self utcMicroseconds: 0 offset: 0!
Item was removed:
- ----- Method: DateAndTime class>>utcMicroseconds:offset: (in category 'instance creation') -----
- utcMicroseconds: microsecondsSincePosixEpoch offset: secondsFromGMT
-
- ^super new
- utcMicroseconds: microsecondsSincePosixEpoch
- offset: secondsFromGMT!
Item was removed:
- ----- Method: DateAndTime class>>utcMicrosecondsForYear:month:day:hour:minute:second:nanoSecond:offsetSeconds: (in category 'private') -----
- utcMicrosecondsForYear: year month: month day: day hour: hour minute: minute second: second nanoSecond: nanoCount offsetSeconds: offsetSeconds
-
- | monthIndex daysInMonth p q r s julianDayNumber posixDays seconds utcSeconds |
-
- monthIndex := month isInteger ifTrue: [month] ifFalse: [Month indexOfMonth: month].
- daysInMonth := Month
- daysInMonth: monthIndex
- forYear: year.
- day < 1 ifTrue: [self error: 'day may not be zero or negative'].
- day > daysInMonth ifTrue: [self error: 'day is after month ends'].
-
- p := (monthIndex - 14) quo: 12.
- q := year + 4800 + p.
- r := monthIndex - 2 - (12 * p).
- s := (year + 4900 + p) quo: 100.
-
- julianDayNumber :=
- ( (1461 * q) quo: 4 ) +
- ( (367 * r) quo: 12 ) -
- ( (3 * s) quo: 4 ) +
- ( day - 32075 ).
-
- posixDays := julianDayNumber - PosixEpochJulianDays.
- seconds := hour * 60 + minute * 60 + second - offsetSeconds.
- utcSeconds := seconds + (posixDays * 24 * 3600).
- ^ utcSeconds * 1000000 + (nanoCount / 1000)
- !
Item was removed:
- ----- Method: DateAndTime class>>utcSeconds:offset: (in category 'instance creation') -----
- utcSeconds: secondsSincePosixEpoch offset: secondsFromGMT
-
- ^self
- utcMicroseconds: secondsSincePosixEpoch * 1000000
- offset: secondsFromGMT!
Item was removed:
- ----- Method: DateAndTime class>>year:day: (in category 'squeak protocol') -----
- year: year day: dayOfYear
- "Return a DateAndTime"
-
- ^ self
- year: year
- day: dayOfYear
- hour: 0
- minute: 0
- second: 0
- !
Item was removed:
- ----- Method: DateAndTime class>>year:day:hour:minute:second: (in category 'ansi protocol') -----
- year: year day: dayOfYear hour: hour minute: minute second: second
-
- ^ self
- year: year
- day: dayOfYear
- hour: hour
- minute: minute
- second: second
- offset: self localOffset
- !
Item was removed:
- ----- Method: DateAndTime class>>year:day:hour:minute:second:offset: (in category 'ansi protocol') -----
- year: year day: dayOfYear hour: hour minute: minute second: second offset: offset
- "Return a DataAndTime"
-
- | y d |
- y := self
- year: year
- month: 1
- day: 1
- hour: hour
- minute: minute
- second: second
- nanoSecond: 0
- offset: offset.
-
- d := Duration days: (dayOfYear - 1).
-
- ^ y + d
- !
Item was removed:
- ----- Method: DateAndTime class>>year:month:day: (in category 'squeak protocol') -----
- year: year month: month day: day
- "Return a DateAndTime, midnight local time"
-
- ^self
- year: year
- month: month
- day: day
- hour: 0
- minute: 0
- !
Item was removed:
- ----- Method: DateAndTime class>>year:month:day:hour:minute: (in category 'squeak protocol') -----
- year: year month: month day: day hour: hour minute: minute
- "Return a DateAndTime"
-
- ^self
- year: year
- month: month
- day: day
- hour: hour
- minute: minute
- second: 0
- !
Item was removed:
- ----- Method: DateAndTime class>>year:month:day:hour:minute:second: (in category 'ansi protocol') -----
- year: year month: month day: day hour: hour minute: minute second: second
- "Return a DateAndTime"
-
- ^ self
- year: year
- month: month
- day: day
- hour: hour
- minute: minute
- second: second
- offset: self localOffset!
Item was removed:
- ----- Method: DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offset: (in category 'squeak protocol') -----
- year: year month: month day: day hour: hour minute: minute second: second nanoSecond: nanoCount offset: offset
- "Return a DateAndTime"
-
- | offsetSeconds utcMicros |
- offsetSeconds := offset asSeconds.
- utcMicros := self
- utcMicrosecondsForYear: year
- month: month
- day: day
- hour: hour
- minute: minute
- second: second
- nanoSecond: nanoCount
- offsetSeconds: offsetSeconds.
- ^ self utcMicroseconds: utcMicros offset: offsetSeconds!
Item was removed:
- ----- Method: DateAndTime class>>year:month:day:hour:minute:second:nanoSecond:offsetSeconds: (in category 'squeak protocol') -----
- year: year month: month day: day hour: hour minute: minute second: second nanoSecond: nanoCount offsetSeconds: offsetSeconds
- "Return a DateAndTime"
-
- | utcMicros |
- utcMicros := self
- utcMicrosecondsForYear: year
- month: month
- day: day
- hour: hour
- minute: minute
- second: second
- nanoSecond: nanoCount
- offsetSeconds: offsetSeconds.
- ^ self utcMicroseconds: utcMicros offset: offsetSeconds!
Item was removed:
- ----- Method: DateAndTime class>>year:month:day:hour:minute:second:offset: (in category 'ansi protocol') -----
- year: year month: month day: day hour: hour minute: minute second: second offset: offset
-
- ^ self
- year: year
- month: month
- day: day
- hour: hour
- minute: minute
- second: second
- nanoSecond: 0
- offset: offset!
Item was removed:
- ----- Method: DateAndTime class>>yesterday (in category 'squeak protocol') -----
- yesterday
-
- ^ self today asDate previous asDateAndTime!
Item was removed:
- ----- Method: DateAndTime>>+ (in category 'ansi protocol') -----
- + operand
- "operand conforms to protocol Duration"
-
- ^ self class
- utcMicroseconds: operand asDuration asNanoSeconds / 1000 + utcMicroseconds
- offset: localOffsetSeconds
- !
Item was removed:
- ----- Method: DateAndTime>>- (in category 'ansi protocol') -----
- - operand
- "operand conforms to protocol DateAndTime or protocol Duration"
-
- ^ (operand respondsTo: #asDateAndTime)
- ifTrue:
- [ | micros |
- micros := utcMicroseconds - operand asDateAndTime utcMicroseconds.
- Duration seconds: micros // 1000000 nanoSeconds: micros \\ 1000000 * 1000]
- ifFalse:
- [ self + (operand negated) ]
- !
Item was removed:
- ----- Method: DateAndTime>>< (in category 'ansi protocol') -----
- < comparand
- "comparand conforms to protocol DateAndTime,
- or can be converted into something that conforms."
-
- ^utcMicroseconds < comparand asDateAndTime utcMicroseconds
- !
Item was removed:
- ----- Method: DateAndTime>>= (in category 'ansi protocol') -----
- = aDateAndTimeOrTimeStamp
- "Equal if the absolute time values match, regardless of local time transform"
- self == aDateAndTimeOrTimeStamp ifTrue: [ ^ true ].
- ^aDateAndTimeOrTimeStamp species == DateAndTime
- and: [ utcMicroseconds = aDateAndTimeOrTimeStamp utcMicroseconds ]!
Item was removed:
- ----- Method: DateAndTime>>asChronologySeconds (in category 'converting') -----
- asChronologySeconds
- "What #asSeconds answers in prior Chronology-format images."
- ^ self asSeconds + self offset asSeconds!
Item was removed:
- ----- Method: DateAndTime>>asDate (in category 'squeak protocol') -----
- asDate
-
-
- ^ Date starting: self asDateAndTime!
Item was removed:
- ----- Method: DateAndTime>>asDateAndTime (in category 'squeak protocol') -----
- asDateAndTime
-
- ^ self!
Item was removed:
- ----- Method: DateAndTime>>asDuration (in category 'squeak protocol') -----
- asDuration
- "Answer the duration since midnight."
-
- ^ Duration seconds: self getSeconds nanoSeconds: self nanoSecond
- !
Item was removed:
- ----- Method: DateAndTime>>asExactSeconds (in category 'smalltalk-80') -----
- asExactSeconds
- "Return the duration in seconds since the Squeak epoch"
-
- "Squeak traditionally used seconds since the Smalltalk epoch in local time,
- which is undefinable. The error was probably caused by some early VM design
- choices that have since been corrected. Assume now that the Smalltalk epoch
- is defined relative to GMT, and that it may be treated similarly to the Posix
- epoch except for a constant offset value.
-
- This implementation differs from earlier Squeak in that it uses seconds relative
- to the Smalltalk epoch (not local time), and represents seconds as an arbitrary
- precision number rather than an integer."
-
- ^ utcMicroseconds / 1000000 + self class epochOffset
- !
Item was removed:
- ----- Method: DateAndTime>>asLocal (in category 'ansi protocol') -----
- asLocal
-
-
- ^ (self offset = self class localOffset)
-
- ifTrue: [self]
- ifFalse: [self utcOffset: self class localOffset]!
Item was removed:
- ----- Method: DateAndTime>>asMonth (in category 'squeak protocol') -----
- asMonth
-
- ^ Month starting: self!
Item was removed:
- ----- Method: DateAndTime>>asNanoSeconds (in category 'squeak protocol') -----
- asNanoSeconds
- "Answer the number of nanoseconds since midnight"
-
- ^ self asDuration asNanoSeconds!
Item was removed:
- ----- Method: DateAndTime>>asPosixSeconds (in category 'converting') -----
- asPosixSeconds
-
- ^utcMicroseconds / 1000000
- !
Item was removed:
- ----- Method: DateAndTime>>asSeconds (in category 'smalltalk-80') -----
- asSeconds
- "Return the number of seconds since the Squeak epoch. See asExactSeconds
- to retain full precision of the duration in seconds."
-
- "Squeak traditionally used seconds since the Smalltalk epoch in local time,
- which is undefinable. The error was probably caused by some early VM design
- choices that have since been corrected. Assume now that the Smalltalk epoch
- is defined relative to GMT, and that it may be treated similarly to the Posix
- epoch except for a constant offset value.
-
- This implementation differs from earlier Squeak in that it uses seconds relative
- to the Smalltalk epoch (not local time), and represents seconds as an arbitrary
- precision number rather than an integer."
-
- ^ utcMicroseconds // 1000000 + self class epochOffset
- !
Item was removed:
- ----- Method: DateAndTime>>asTime (in category 'squeak protocol') -----
- asTime
-
-
- ^ Time seconds: self getSeconds nanoSeconds: self nanoSecond
- !
Item was removed:
- ----- Method: DateAndTime>>asTimeStamp (in category 'squeak protocol') -----
- asTimeStamp
-
- ^ self as: TimeStamp!
Item was removed:
- ----- Method: DateAndTime>>asUTC (in category 'ansi protocol') -----
- asUTC
-
- localOffsetSeconds = 0 ifTrue: [ ^self ].
- ^self copy localOffsetSeconds: 0.!
Item was removed:
- ----- Method: DateAndTime>>asUnixTime (in category 'squeak protocol') -----
- asUnixTime
- "answer number of seconds since unix epoch (midnight Jan 1, 1970, UTC)"
-
- ^utcMicroseconds // 1000000!
Item was removed:
- ----- Method: DateAndTime>>asWeek (in category 'squeak protocol') -----
- asWeek
-
- ^ Week starting: self!
Item was removed:
- ----- Method: DateAndTime>>asYear (in category 'squeak protocol') -----
- asYear
-
- ^ Year starting: self!
Item was removed:
- ----- Method: DateAndTime>>day (in category 'smalltalk-80') -----
- day
-
- ^ self dayOfYear
- !
Item was removed:
- ----- Method: DateAndTime>>dayMonthYearDo: (in category 'squeak protocol') -----
- dayMonthYearDo: aBlock
- "Evaluation the block with three arguments: day month, year."
-
- | l n i j dd |
- l := self julianDayNumber + 68569.
- n := 4 * l // 146097.
- l := l - (146097 * n + 3 // 4).
- i := l + 1 * 4000 // 1461001.
- l := l - (1461 * i // 4) + 31.
- j := 80 * l // 2447.
- dd := l - (2447 * j // 80).
- l := j // 11.
-
- ^ aBlock
- value: dd
- value: -12 * l + 2 + j "month"
- value: n - 49 * 100 + i + l "year"!
Item was removed:
- ----- Method: DateAndTime>>dayOfLocalWeek (in category 'ansi protocol') -----
- dayOfLocalWeek
-
- "Sunday=1, ... , Saturday=7"
-
- ^ (self julianDayNumber + 2 - Week weekdayStartIndex rem: 7) + 1
- !
Item was removed:
- ----- Method: DateAndTime>>dayOfMonth (in category 'ansi protocol') -----
- dayOfMonth
- "Answer which day of the month is represented by the receiver."
-
- ^ self
- dayMonthYearDo: [ :d :m :y | d ]
- !
Item was removed:
- ----- Method: DateAndTime>>dayOfWeek (in category 'ansi protocol') -----
- dayOfWeek
-
- "Sunday=1, ... , Saturday=7"
-
- ^ (self julianDayNumber + 1 rem: 7) + 1
- !
Item was removed:
- ----- Method: DateAndTime>>dayOfWeekAbbreviation (in category 'ansi protocol') -----
- dayOfWeekAbbreviation
-
- ^ self dayOfWeekName copyFrom: 1 to: 3
- !
Item was removed:
- ----- Method: DateAndTime>>dayOfWeekName (in category 'ansi protocol') -----
- dayOfWeekName
-
- ^ Week nameOfDay: self dayOfWeek!
Item was removed:
- ----- Method: DateAndTime>>dayOfYear (in category 'ansi protocol') -----
- dayOfYear
- "This code was contributed by Dan Ingalls. It is equivalent to the terser
- ^ jdn - (Year year: self year) start julianDayNumber + 1 but much quicker."
-
- ^ self dayMonthYearDo:
- [ :d :m :y |
- | monthStart |
- monthStart := #(1 32 60 91 121 152 182 213 244 274 305 335) at: m.
- (m > 2 and: [ Year isLeapYear: y ])
- ifTrue: [ monthStart + d ]
- ifFalse: [ monthStart + d - 1 ]]!
Item was removed:
- ----- Method: DateAndTime>>daysInMonth (in category 'smalltalk-80') -----
- daysInMonth
- "Answer the number of days in the month represented by the receiver."
-
-
- ^ self asMonth daysInMonth!
Item was removed:
- ----- Method: DateAndTime>>daysInYear (in category 'smalltalk-80') -----
- daysInYear
-
- "Answer the number of days in the year represented by the receiver."
-
- ^ self asYear daysInYear!
Item was removed:
- ----- Method: DateAndTime>>daysLeftInYear (in category 'smalltalk-80') -----
- daysLeftInYear
- "Answer the number of days in the year after the date of the receiver."
-
- ^ self daysInYear - self dayOfYear!
Item was removed:
- ----- Method: DateAndTime>>duration (in category 'squeak protocol') -----
- duration
-
- ^ Duration zero!
Item was removed:
- ----- Method: DateAndTime>>firstDayOfMonth (in category 'smalltalk-80') -----
- firstDayOfMonth
-
- ^ self asMonth start day
- !
Item was removed:
- ----- Method: DateAndTime>>floor (in category 'squeak protocol') -----
- floor
- "Answer a copy with magnitude rounded down to the nearest whole second"
- ^self class
- utcMicroseconds: utcMicroseconds // 1000000 * 1000000
- offset: localOffsetSeconds!
Item was removed:
- ----- Method: DateAndTime>>getSeconds (in category 'accessing') -----
- getSeconds
-
- ^utcMicroseconds // 1000000 + localOffsetSeconds \\ 86400!
Item was removed:
- ----- Method: DateAndTime>>hash (in category 'ansi protocol') -----
- hash
- ^utcMicroseconds hash!
Item was removed:
- ----- Method: DateAndTime>>hour (in category 'ansi protocol') -----
- hour
-
- ^ self hour24!
Item was removed:
- ----- Method: DateAndTime>>hour12 (in category 'ansi protocol') -----
- hour12
- "Answer an <integer> between 1 and 12, inclusive, representing the hour
- of the day in the 12-hour clock of the local time of the receiver."
- ^ self hour24 - 1 \\ 12 + 1
- !
Item was removed:
- ----- Method: DateAndTime>>hour24 (in category 'ansi protocol') -----
- hour24
-
- ^self getSeconds // 3600!
Item was removed:
- ----- Method: DateAndTime>>hours (in category 'smalltalk-80') -----
- hours
-
- ^ self hour
- !
Item was removed:
- ----- Method: DateAndTime>>initializeFromPrimitive (in category 'initialize-release') -----
- initializeFromPrimitive
-
- Time posixMicrosecondClockWithOffset: self!
Item was removed:
- ----- Method: DateAndTime>>isLeapYear (in category 'ansi protocol') -----
- isLeapYear
-
-
- ^ Year isLeapYear: self year
- !
Item was removed:
- ----- Method: DateAndTime>>julianDayNumber (in category 'squeak protocol') -----
- julianDayNumber
-
- ^utcMicroseconds // 1000000 + localOffsetSeconds // 86400 + PosixEpochJulianDays!
Item was removed:
- ----- Method: DateAndTime>>localOffsetSeconds: (in category 'initialize-release') -----
- localOffsetSeconds: seconds
- "Private. Allow value to be modified during initialization in order to support local
- timezone preference."
-
- localOffsetSeconds := seconds
- !
Item was removed:
- ----- Method: DateAndTime>>makeUTC (in category 'squeak protocol') -----
- makeUTC
- "Make the receiver's timezone UTC. This adjusts both the magnitude and
- local offset of the receiver such that self asString remains unchanged
- except for a zero timezone offset."
-
- ^ self
- utcMicroseconds: localOffsetSeconds * 1000000 + utcMicroseconds
- offset: 0
- !
Item was removed:
- ----- Method: DateAndTime>>meridianAbbreviation (in category 'ansi protocol') -----
- meridianAbbreviation
-
- ^ self asTime meridianAbbreviation
- !
Item was removed:
- ----- Method: DateAndTime>>microsecondsFromDay:seconds:nanos:offset: (in category 'private') -----
- microsecondsFromDay: jdn seconds: s nanos: n offset: localOffsetSeconds
-
- ^jdn - PosixEpochJulianDays "days" * 86400
- + s - localOffsetSeconds "seconds" * 1000000
- + (n / 1000) "nanos"!
Item was removed:
- ----- Method: DateAndTime>>middleOf: (in category 'squeak protocol') -----
- middleOf: aDuration
- "Return a Timespan where the receiver is the middle of the Duration"
-
- | duration |
- duration := aDuration asDuration.
-
- ^ Timespan starting: (self - (duration / 2)) duration: duration
- !
Item was removed:
- ----- Method: DateAndTime>>midnight (in category 'squeak protocol') -----
- midnight
- "Answer a DateAndTime starting at midnight of the same timezone offset as the receiver."
- ^ self class basicNew
- setJdn: self julianDayNumber
- seconds: 0
- nano: 0
- localOffsetSeconds: localOffsetSeconds.!
Item was removed:
- ----- Method: DateAndTime>>minute (in category 'ansi protocol') -----
- minute
-
- ^self getSeconds // 60 \\ 60!
Item was removed:
- ----- Method: DateAndTime>>minutes (in category 'smalltalk-80') -----
- minutes
-
- ^ self minute
- !
Item was removed:
- ----- Method: DateAndTime>>month (in category 'ansi protocol') -----
- month
-
- ^ self
- dayMonthYearDo: [ :d :m :y | m ]
- !
Item was removed:
- ----- Method: DateAndTime>>monthAbbreviation (in category 'ansi protocol') -----
- monthAbbreviation
-
-
- ^ self monthName copyFrom: 1 to: 3!
Item was removed:
- ----- Method: DateAndTime>>monthIndex (in category 'smalltalk-80') -----
- monthIndex
-
-
- ^ self month!
Item was removed:
- ----- Method: DateAndTime>>monthName (in category 'ansi protocol') -----
- monthName
-
-
- ^ Month nameOfMonth: self month!
Item was removed:
- ----- Method: DateAndTime>>nanoSecond (in category 'squeak protocol') -----
- nanoSecond
-
- ^utcMicroseconds \\ 1000000 * 1000
- !
Item was removed:
- ----- Method: DateAndTime>>noon (in category 'squeak protocol') -----
- noon
- "Answer a DateAndTime starting at noon"
-
- ^ self dayMonthYearDo:
- [ :d :m :y | self class year: y month: m day: d hour: 12 minute: 0 second: 0 ]
- !
Item was removed:
- ----- Method: DateAndTime>>normalize:ticks:base: (in category 'private') -----
- normalize: i ticks: ticks base: base
-
- | tick div quo rem |
- tick := ticks at: i.
- div := tick asInteger digitDiv: base neg: tick negative.
- quo := (div at: 1) normalize.
- rem := (div at: 2) normalize.
- rem < 0 ifTrue: [ quo := quo - 1. rem := base + rem ].
- ticks at: (i-1) put: ((ticks at: i-1) + quo).
- ticks at: i put: rem
- !
Item was removed:
- ----- Method: DateAndTime>>offset (in category 'ansi protocol') -----
- offset
-
- ^ Duration seconds: localOffsetSeconds!
Item was removed:
- ----- Method: DateAndTime>>offset: (in category 'ansi protocol') -----
- offset: anOffset
- "Answer a DateAndTime for a different time zone offset that has the same
- year, month, day, hour, minute, and second as this instance, and with
- printString that matches except for time zone offset."
-
- | newOffset newMicros |
- newOffset := anOffset asDuration asSeconds.
- newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds.
- ^ self class utcMicroseconds: newMicros offset: newOffset
- !
Item was removed:
- ----- Method: DateAndTime>>offsetSeconds (in category 'accessing') -----
- offsetSeconds
-
- ^localOffsetSeconds!
Item was removed:
- ----- Method: DateAndTime>>posixEpochJulianDays (in category 'initialize-release') -----
- posixEpochJulianDays
-
- ^self class daysFromSmalltalkEpochToPosixEpoch + SqueakEpoch!
Item was removed:
- ----- Method: DateAndTime>>printHMOn: (in category 'squeak protocol') -----
- printHMOn: aStream
- "Print just hh:mm"
-
- | seconds |
- seconds := self getSeconds.
- seconds // 3600 printOn: aStream base: 10 length: 2 padded: true.
- aStream nextPut: $:.
- seconds \\ 3600 // 60 printOn: aStream base: 10 length: 2 padded: true.!
Item was removed:
- ----- Method: DateAndTime>>printHMSOn: (in category 'squeak protocol') -----
- printHMSOn: aStream
- "Print just hh:mm:ss"
-
- | seconds |
- seconds := self getSeconds.
- seconds // 3600 printOn: aStream base: 10 length: 2 padded: true.
- aStream nextPut: $:.
- seconds \\ 3600 // 60 printOn: aStream base: 10 length: 2 padded: true.
- aStream nextPut: $:.
- seconds \\ 60 printOn: aStream base: 10 length: 2 padded: true!
Item was removed:
- ----- Method: DateAndTime>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
- "Print as per ISO 8601 sections 5.3.3 and 5.4.1.
- Prints either:
- 'YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years)"
-
- ^self printOn: aStream withLeadingSpace: false
- !
Item was removed:
- ----- Method: DateAndTime>>printOn:withLeadingSpace: (in category 'squeak protocol') -----
- printOn: aStream withLeadingSpace: printLeadingSpaceToo
- "Print as per ISO 8601 sections 5.3.3 and 5.4.1.
- If printLeadingSpaceToo is false, prints either:
- 'YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years)
- If printLeadingSpaceToo is true, prints either:
- ' YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for positive years) or '-YYYY-MM-DDThh:mm:ss.s+ZZ:zz:z' (for negative years)
- "
-
- | nanos offsetSeconds |
- self printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo.
- aStream nextPut: $T.
- self printHMSOn: aStream.
- (nanos := utcMicroseconds \\ 1000000 * 1000) = 0 ifFalse: [
- | length |
- aStream nextPut: $..
- length := 9.
- [ nanos \\ 10 = 0 ] whileTrue: [
- nanos := nanos // 10.
- length := length - 1 ].
- nanos asInteger printOn: aStream base: 10 length: length padded: true ].
- "Print offset"
- aStream nextPut: (localOffsetSeconds >= 0 ifTrue: [ $+ ] ifFalse: [ $- ]).
- offsetSeconds := localOffsetSeconds abs.
- offsetSeconds // 3600 printOn: aStream base: 10 length: 2 padded: true.
- aStream nextPut: $:.
- offsetSeconds \\ 3600 // 60 printOn: aStream base: 10 length: 2 padded: true.
- (offsetSeconds := offsetSeconds \\ 60) = 0 ifFalse: [
- aStream
- nextPut: $:;
- print: offsetSeconds ]!
Item was removed:
- ----- Method: DateAndTime>>printYMDOn: (in category 'squeak protocol') -----
- printYMDOn: aStream
- "Print just YYYY-MM-DD part.
- If the year is negative, prints out '-YYYY-MM-DD'."
-
- ^self printYMDOn: aStream withLeadingSpace: false.
- !
Item was removed:
- ----- Method: DateAndTime>>printYMDOn:withLeadingSpace: (in category 'squeak protocol') -----
- printYMDOn: aStream withLeadingSpace: printLeadingSpaceToo
- "Print just the year, month, and day on aStream.
-
- If printLeadingSpaceToo is true, then print as:
- ' YYYY-MM-DD' (if the year is positive) or '-YYYY-MM-DD' (if the year is negative)
- otherwise print as:
- 'YYYY-MM-DD' or '-YYYY-MM-DD' "
-
- self dayMonthYearDo: [ :day :month :year |
- year negative
- ifTrue: [ aStream nextPut: $- ]
- ifFalse: [ printLeadingSpaceToo ifTrue: [ aStream space ] ].
- year abs printOn: aStream base: 10 length: 4 padded: true.
- aStream nextPut: $-.
- month printOn: aStream base: 10 length: 2 padded: true.
- aStream nextPut: $-.
- day printOn: aStream base: 10 length: 2 padded: true ]!
Item was removed:
- ----- Method: DateAndTime>>readDataFrom:size: (in category 'objects from disk') -----
- readDataFrom: aDataStream size: varsOnDisk
- "Fill in the fields of self based on the contents of aDataStream. The serialized
- data will have four instance variables, because all instances are serialized in a
- cononical format as if having originating from an instance with the traditional
- seconds/offset/jdn/nanos instance variables."
-
- | seconds offset jdn nanos |
- seconds := aDataStream next.
- offset := aDataStream next.
- jdn := aDataStream next.
- nanos := aDataStream next.
- localOffsetSeconds := offset ifNil: [ 0 ] ifNotNil: [ :off | off asSeconds ].
- utcMicroseconds := self
- microsecondsFromDay: jdn
- seconds: seconds
- nanos: nanos
- offset: localOffsetSeconds.!
Item was removed:
- ----- Method: DateAndTime>>second (in category 'ansi protocol') -----
- second
-
- ^self getSeconds \\ 60!
Item was removed:
- ----- Method: DateAndTime>>seconds (in category 'smalltalk-80') -----
- seconds
-
- ^ self second
- !
Item was removed:
- ----- Method: DateAndTime>>secondsSinceMidnight (in category 'private') -----
- secondsSinceMidnight
-
- ^ self getSeconds!
Item was removed:
- ----- Method: DateAndTime>>setJdn:seconds:nano:localOffsetSeconds: (in category 'private') -----
- setJdn: jdn seconds: s nano: n localOffsetSeconds: offset
-
- localOffsetSeconds := offset.
- utcMicroseconds := self
- microsecondsFromDay: jdn
- seconds: s
- nanos: n
- offset: offset!
Item was removed:
- ----- Method: DateAndTime>>setJdn:seconds:nano:offset: (in category 'squeak protocol') -----
- setJdn: jdn seconds: s nano: n offset: o
-
- self setJdn: jdn seconds: s nano: n localOffsetSeconds: o asSeconds.
- !
Item was removed:
- ----- Method: DateAndTime>>species (in category 'accessing') -----
- species
- ^DateAndTime!
Item was removed:
- ----- Method: DateAndTime>>storeDataOn: (in category 'objects from disk') -----
- storeDataOn: aDataStream
- "Store myself on a DataStream. Answer self.
- Store 4 variables worth of data, corresponding to the 4 instance variables of the old
- DateAndTime implementation, which is to be used as common format for externally
- stored instances."
-
- " | dt dt2 |
- dt := DateAndTime now.
- dt2 := DataStream testWith: dt.
- { dt . dt2 }."
-
- | cntInstVars cntIndexedVars ticks jdn offset seconds nanos |
- "Set the instance variable count to 4 to match that of a cononical instance."
- cntInstVars := 4.
- cntIndexedVars := self basicSize.
- aDataStream
- beginInstance: self xxxClass
- size: cntInstVars + cntIndexedVars.
-
- "Create the 4 values of the old format DateAndTime"
- ticks := self ticks. "{days. seconds. nanoSeconds}."
- offset := self offset.
- jdn := ticks at: 1.
- seconds := ticks at: 2.
- nanos := ticks at: 3.
- aDataStream
- nextPut: seconds;
- nextPut: offset;
- nextPut: jdn;
- nextPut: nanos.
- !
Item was removed:
- ----- Method: DateAndTime>>ticks (in category 'private') -----
- ticks
- "Private - answer an array with our instance variables. Assumed to be UTC "
-
- ^ Array with: self julianDayNumber with: self getSeconds with: self nanoSecond
- !
Item was removed:
- ----- Method: DateAndTime>>ticks:offset: (in category 'private') -----
- ticks: ticks offset: utcOffset
- "ticks is {julianDayNumber. secondCount. nanoSeconds}"
-
- | jdn s nanos normalizedTicks |
- normalizedTicks := ticks copy.
- self normalize: 3 ticks: normalizedTicks base: NanosInSecond.
- self normalize: 2 ticks: normalizedTicks base: SecondsInDay.
-
- jdn := normalizedTicks at: 1.
- s := normalizedTicks at: 2.
- nanos := normalizedTicks at: 3.
- localOffsetSeconds := utcOffset ifNil: [0] ifNotNil: [utcOffset asSeconds].
- utcMicroseconds := self microsecondsFromDay: jdn seconds: s nanos: nanos offset: localOffsetSeconds.
- !
Item was removed:
- ----- Method: DateAndTime>>timeZoneAbbreviation (in category 'ansi protocol') -----
- timeZoneAbbreviation
-
- ^ self class localTimeZone abbreviation!
Item was removed:
- ----- Method: DateAndTime>>timeZoneName (in category 'ansi protocol') -----
- timeZoneName
-
- ^ self class localTimeZone name!
Item was removed:
- ----- Method: DateAndTime>>to: (in category 'squeak protocol') -----
- to: anEnd
- "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan"
-
- ^ Timespan starting: self ending: (anEnd asDateAndTime)
- !
Item was removed:
- ----- Method: DateAndTime>>to:by: (in category 'squeak protocol') -----
- to: anEnd by: aDuration
- "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan"
-
- ^ (Schedule starting: self ending: (anEnd asDateAndTime))
- schedule: (Array with: aDuration asDuration);
- yourself
- !
Item was removed:
- ----- Method: DateAndTime>>to:by:do: (in category 'squeak protocol') -----
- to: anEnd by: aDuration do: aBlock
- "Answer a Timespan. anEnd conforms to protocol DateAndTime or protocol Timespan"
-
- ^ (self to: anEnd by: aDuration) scheduleDo: aBlock!
Item was removed:
- ----- Method: DateAndTime>>utcMicroseconds (in category 'accessing') -----
- utcMicroseconds
- ^utcMicroseconds!
Item was removed:
- ----- Method: DateAndTime>>utcMicroseconds: (in category 'initialize-release') -----
- utcMicroseconds: utcValue
- "Allow value to be modified during initialization from a primitive in order to support
- monotonically increasing clock behavior."
- utcMicroseconds := utcValue!
Item was removed:
- ----- Method: DateAndTime>>utcMicroseconds:offset: (in category 'initialize-release') -----
- utcMicroseconds: microsecondsSincePosixEpoch offset: tzOffset
-
- utcMicroseconds := microsecondsSincePosixEpoch.
- localOffsetSeconds := tzOffset.
- !
Item was removed:
- ----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') -----
- utcOffset: anOffset
- "Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset"
- ^ self class
- utcMicroseconds: utcMicroseconds
- offset: anOffset asDuration asSeconds!
Item was removed:
- ----- Method: DateAndTime>>year (in category 'ansi protocol') -----
- year
- ^ self
- dayMonthYearDo: [ :d :m :y | y ]
- !
Item was removed:
- Magnitude subclass: #Duration
- instanceVariableNames: 'nanos seconds'
- classVariableNames: ''
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !Duration commentStamp: 'dtl 7/11/2009 15:03' prior: 0!
- I represent a duration of time. I have nanosecond precision!
Item was removed:
- ----- Method: Duration class>>days: (in category 'squeak protocol') -----
- days: aNumber
-
- ^ self seconds: aNumber * SecondsInDay nanoSeconds: 0!
Item was removed:
- ----- Method: Duration class>>days:hours:minutes:seconds: (in category 'ansi protocol') -----
- days: days hours: hours minutes: minutes seconds: seconds
-
- ^ self days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: 0!
Item was removed:
- ----- Method: Duration class>>days:hours:minutes:seconds:nanoSeconds: (in category 'squeak protocol') -----
- days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: nanos
-
- ^self
- seconds: seconds
- + (minutes * SecondsInMinute)
- + (hours * SecondsInHour)
- + (days * SecondsInDay)
- nanoSeconds: nanos
- !
Item was removed:
- ----- Method: Duration class>>days:seconds: (in category 'ansi protocol') -----
- days: days seconds: seconds
-
- ^ self basicNew seconds: days * SecondsInDay + seconds nanoSeconds: 0
- !
Item was removed:
- ----- Method: Duration class>>fromString: (in category 'squeak protocol') -----
- fromString: aString
-
- ^ self readFrom: (ReadStream on: aString)
- !
Item was removed:
- ----- Method: Duration class>>hours: (in category 'squeak protocol') -----
- hours: aNumber
-
- ^ self seconds: aNumber * SecondsInHour nanoSeconds: 0!
Item was removed:
- ----- Method: Duration class>>initialize (in category 'initialize-release') -----
- initialize
- ChronologyConstants classPool
- at: #Zero
- put:
- (self basicNew
- seconds: 0
- nanoSeconds: 0) ;
- at: #OneDay
- put: 1 day!
Item was removed:
- ----- Method: Duration class>>microSeconds: (in category 'squeak protocol') -----
- microSeconds: anInteger
- ^ self
- seconds: (anInteger quo: 1e6)
- nanoSeconds: (anInteger rem: 1e6) * 1000!
Item was removed:
- ----- Method: Duration class>>milliSeconds: (in category 'squeak protocol') -----
- milliSeconds: milliCount
-
- ^self
- seconds: (milliCount quo: 1000)
- nanoSeconds: (milliCount rem: 1000) * NanosInMillisecond!
Item was removed:
- ----- Method: Duration class>>minutes: (in category 'squeak protocol') -----
- minutes: aNumber
-
- ^ self seconds: aNumber * SecondsInMinute nanoSeconds: 0!
Item was removed:
- ----- Method: Duration class>>month: (in category 'squeak protocol') -----
- month: aMonth
- "aMonth is an Integer or a String"
-
- ^ (Month month: aMonth year: Year current year) duration
- !
Item was removed:
- ----- Method: Duration class>>nanoSeconds: (in category 'squeak protocol') -----
- nanoSeconds: nanos
- "This method is slow. If you have nanos less than 10^6 you should use #seconds:nanoSeconds: instead."
-
- | quo |
- quo := nanos quo: NanosInSecond.
- ^ self basicNew
- seconds: quo
- nanoSeconds: nanos - (quo * NanosInSecond)
- !
Item was removed:
- ----- Method: Duration class>>oneDay (in category 'squeak protocol') -----
- oneDay
- "Answer the canonicalized Duration representing length of 1 day. Used by Dates."
- ^ OneDay!
Item was removed:
- ----- Method: Duration class>>readDayHourMinuteSecondNanaFrom: (in category 'squeak protocol') -----
- readDayHourMinuteSecondNanaFrom: aStream
- "Formatted as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]"
-
- | sign days hours minutes seconds nanos nanosBuffer |
- sign := (aStream peekFor: $-) ifTrue: [-1] ifFalse: [1].
- days := (aStream upTo: $:) asInteger sign: sign.
- hours := (aStream upTo: $:) asInteger sign: sign.
- minutes := (aStream upTo: $:) asInteger sign: sign.
- seconds := (aStream upTo: $.) asInteger sign: sign.
- nanosBuffer := '000000000' copy.
- nanos := WriteStream on: nanosBuffer.
- [aStream atEnd not and: [aStream peek isDigit]]
- whileTrue: [nanos nextPut: aStream next].
-
- ^ { days . hours . minutes . seconds .nanosBuffer asInteger sign: sign }
-
- " '0:00:00:00' asDuration
- '0:00:00:00.000000001' asDuration
- '0:00:00:00.999999999' asDuration
- '0:00:00:00.100000000' asDuration
- '0:00:00:00.001 ' asDuration
- '0:00:00:00.1' asDuration
- '0:00:00:01 ' asDuration
- '0:12:45:45' asDuration
- '1:00:00:00' asDuration
- '365:00:00:00' asDuration
- '-7:09:12:06.10' asDuration
- '+0:01:02:3' asDuration
- "!
Item was removed:
- ----- Method: Duration class>>readFrom: (in category 'squeak protocol') -----
- readFrom: aStream
- "Formatted as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]"
-
- | dayHourMinuteSecondNano |
- dayHourMinuteSecondNano := self readDayHourMinuteSecondNanaFrom: aStream.
-
- ^ self
- days: dayHourMinuteSecondNano first
- hours: dayHourMinuteSecondNano second
- minutes: dayHourMinuteSecondNano third
- seconds: dayHourMinuteSecondNano fourth
- nanoSeconds: dayHourMinuteSecondNano fifth
-
- " '0:00:00:00' asDuration
- '0:00:00:00.000000001' asDuration
- '0:00:00:00.999999999' asDuration
- '0:00:00:00.100000000' asDuration
- '0:00:00:00.001 ' asDuration
- '0:00:00:00.1' asDuration
- '0:00:00:01 ' asDuration
- '0:12:45:45' asDuration
- '1:00:00:00' asDuration
- '365:00:00:00' asDuration
- '-7:09:12:06.10' asDuration
- '+0:01:02:3' asDuration
- "!
Item was removed:
- ----- Method: Duration class>>seconds: (in category 'ansi protocol') -----
- seconds: seconds
-
- seconds isInteger
- ifTrue: [ ^ self basicNew fullSeconds: seconds ]
- ifFalse: [ ^ self seconds: seconds nanoSeconds: 0 ]
- !
Item was removed:
- ----- Method: Duration class>>seconds:nanoSeconds: (in category 'squeak protocol') -----
- seconds: seconds nanoSeconds: nanos
-
- ^ self basicNew
- seconds: seconds truncated
- nanoSeconds: seconds fractionPart * NanosInSecond + nanos!
Item was removed:
- ----- Method: Duration class>>weeks: (in category 'squeak protocol') -----
- weeks: aNumber
-
- ^ self days: (aNumber * 7) seconds: 0
- !
Item was removed:
- ----- Method: Duration class>>zero (in category 'ansi protocol') -----
- zero
- "Answer the canonicalized instance of Duration zero."
- ^ Zero!
Item was removed:
- ----- Method: Duration>>* (in category 'ansi protocol') -----
- * operand
- "operand is a Number" ^ self class nanoSeconds: ( (self asNanoSeconds * operand) asInteger)
- !
Item was removed:
- ----- Method: Duration>>+ (in category 'ansi protocol') -----
- + operand
-
- "operand is a Duration" ^ self class nanoSeconds: (self asNanoSeconds + operand asNanoSeconds)!
Item was removed:
- ----- Method: Duration>>- (in category 'ansi protocol') -----
- - operand
- "operand is a Duration" ^ self + operand negated!
Item was removed:
- ----- Method: Duration>>/ (in category 'ansi protocol') -----
- / operand
-
- "operand is a Duration or a Number"
-
-
- ^ operand isNumber
- ifTrue: [ self class nanoSeconds: (self asNanoSeconds / operand) asInteger ]
- ifFalse: [ self asNanoSeconds / operand asDuration asNanoSeconds ]
- !
Item was removed:
- ----- Method: Duration>>// (in category 'squeak protocol') -----
- // operand
-
- "operand is a Duration or a Number"
-
-
- ^ operand isNumber
- ifTrue: [ self class nanoSeconds: (self asNanoSeconds // operand) asInteger ]
- ifFalse: [ self asNanoSeconds // operand asDuration asNanoSeconds ]!
Item was removed:
- ----- Method: Duration>>< (in category 'ansi protocol') -----
- < comparand
-
- ^ self asNanoSeconds < comparand asNanoSeconds!
Item was removed:
- ----- Method: Duration>>= (in category 'ansi protocol') -----
- = comparand
- "Answer whether the argument is a <Duration> representing the same
- period of time as the receiver."
-
- ^ self == comparand
- ifTrue: [true]
- ifFalse:
- [self species = comparand species
- ifTrue: [self asNanoSeconds = comparand asNanoSeconds]
- ifFalse: [false] ]
- !
Item was removed:
- ----- Method: Duration>>\\ (in category 'squeak protocol') -----
- \\ operand
-
- "modulo. Remainder defined in terms of //. Answer a Duration with the
- same sign as aDuration. operand is a Duration or a Number."
-
- ^ operand isNumber
- ifTrue: [ self class nanoSeconds: (self asNanoSeconds \\ operand) ]
- ifFalse: [ self - (operand * (self // operand)) ]!
Item was removed:
- ----- Method: Duration>>abs (in category 'ansi protocol') -----
- abs
-
- ^ self class seconds: seconds abs nanoSeconds: nanos abs!
Item was removed:
- ----- Method: Duration>>adaptToCollection:andSend: (in category 'converting') -----
- adaptToCollection: rcvr andSend: selector
- "If I am involved in arithmetic with a Collection, return a Collection of the results of each element combined with me in that expression."
-
- ^ rcvr collect: [:element | element perform: selector with: self]!
Item was removed:
- ----- Method: Duration>>ago (in category 'squeak protocol') -----
- ago
- "Answer the DateAndTime which was the receiver's duration ago.
- e.g., 5 minutes ago. 2 days ago."
- ^ DateAndTime now - self!
Item was removed:
- ----- Method: Duration>>asDelay (in category 'squeak protocol') -----
- asDelay
-
- ^Delay forMilliseconds: self asMilliSeconds
- !
Item was removed:
- ----- Method: Duration>>asDuration (in category 'ansi protocol') -----
- asDuration
-
- ^ self!
Item was removed:
- ----- Method: Duration>>asMicroSeconds (in category 'squeak protocol') -----
- asMicroSeconds
- nanos = 0 ifTrue: [ ^ seconds * 1e6 ].
- ^ (seconds * 1e6) + (nanos // 1000)!
Item was removed:
- ----- Method: Duration>>asMilliSeconds (in category 'squeak protocol') -----
- asMilliSeconds
-
- nanos = 0 ifTrue: [ ^seconds * 1000 ].
- ^nanos // 1000000 + (seconds * 1000)!
Item was removed:
- ----- Method: Duration>>asNanoSeconds (in category 'squeak protocol') -----
- asNanoSeconds
-
- ^seconds * NanosInSecond + nanos!
Item was removed:
- ----- Method: Duration>>asSeconds (in category 'ansi protocol') -----
- asSeconds
-
-
- ^ seconds!
Item was removed:
- ----- Method: Duration>>busyWait (in category 'squeak protocol') -----
- busyWait
- "BEWARE!! This method is more precise than #wait, but it sacrifices many CPU cycles for that precision. Also note that only processes with a higher priority can run while waiting. See more detailed commentary in Delay >> #busyWait."
-
- ^ self asDelay busyWait!
Item was removed:
- ----- Method: Duration>>days (in category 'ansi protocol') -----
- days
- "Answer the number of days the receiver represents."
-
- ^ seconds quo: SecondsInDay
- !
Item was removed:
- ----- Method: Duration>>fromNow (in category 'squeak protocol') -----
- fromNow
- "Answer the DateAndTime which which occurs the receiver's duration from now.
- e.g., 5 minutes fromNow. 2 days fromNow."
- ^ DateAndTime now + self!
Item was removed:
- ----- Method: Duration>>fullSeconds: (in category 'private') -----
- fullSeconds: secondCount
- "Private - only used by Duration class"
-
- seconds := secondCount.
- nanos := 0.
- !
Item was removed:
- ----- Method: Duration>>hash (in category 'ansi protocol') -----
- hash
-
- ^seconds bitXor: nanos!
Item was removed:
- ----- Method: Duration>>hours (in category 'ansi protocol') -----
- hours
- "Answer the number of hours the receiver represents."
-
-
- ^ (seconds rem: SecondsInDay) quo: SecondsInHour!
Item was removed:
- ----- Method: Duration>>initialize (in category 'initialize-release') -----
- initialize
- self seconds: 0 nanoSeconds: 0.
- !
Item was removed:
- ----- Method: Duration>>isZero (in category 'squeak protocol') -----
- isZero
-
- ^ seconds = 0 and: [ nanos = 0 ]
- !
Item was removed:
- ----- Method: Duration>>minutes (in category 'ansi protocol') -----
- minutes
-
- "Answer the number of minutes the receiver represents."
-
-
- ^ (seconds rem: SecondsInHour) quo: SecondsInMinute!
Item was removed:
- ----- Method: Duration>>nanoSeconds (in category 'squeak protocol') -----
- nanoSeconds
-
-
- ^ nanos!
Item was removed:
- ----- Method: Duration>>negated (in category 'ansi protocol') -----
- negated
-
- ^ self class seconds: seconds negated nanoSeconds: nanos negated!
Item was removed:
- ----- Method: Duration>>negative (in category 'ansi protocol') -----
- negative
-
-
- ^ self positive not!
Item was removed:
- ----- Method: Duration>>positive (in category 'ansi protocol') -----
- positive
-
-
- ^ seconds = 0 ifTrue: [ nanos positive ] ifFalse: [ seconds positive ]!
Item was removed:
- ----- Method: Duration>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
- "Format as per ANSI 5.8.2.16: [-]D:HH:MM:SS[.S]" | d h m s n |
- d := self days abs.
- h := self hours abs.
- m := self minutes abs.
- s := self seconds abs truncated.
- n := self nanoSeconds abs. self negative ifTrue: [ aStream nextPut: $- ].
- d printOn: aStream. aStream nextPut: $:.
- h < 10 ifTrue: [ aStream nextPut: $0. ].
- h printOn: aStream. aStream nextPut: $:.
- m < 10 ifTrue: [ aStream nextPut: $0. ].
- m printOn: aStream. aStream nextPut: $:.
- s < 10 ifTrue: [ aStream nextPut: $0. ].
- s printOn: aStream.
- n = 0 ifFalse:
- [ | z ps |
- aStream nextPut: $..
- ps := n printString padded: #left to: 9 with: $0.
- z := ps findLast: [ :c | c asciiValue > $0 asciiValue ].
- ps from: 1 to: z + 2 // 3 * 3 do: [ :c | aStream nextPut: c ] ]
- !
Item was removed:
- ----- Method: Duration>>roundTo: (in category 'squeak protocol') -----
- roundTo: aDuration
- "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 6 minutes."
-
- ^ self class nanoSeconds: (self asNanoSeconds roundTo: aDuration asNanoSeconds)
- !
Item was removed:
- ----- Method: Duration>>seconds (in category 'ansi protocol') -----
- seconds
- "Answer the number of seconds the receiver represents."
-
- ^seconds rem: SecondsInMinute!
Item was removed:
- ----- Method: Duration>>seconds:nanoSeconds: (in category 'private') -----
- seconds: secondCount nanoSeconds: nanoCount
- "Private - only used by Duration class"
-
- seconds := secondCount.
- nanos := nanoCount rounded.
- "normalize if signs do not match"
- [ nanos < 0 and: [ seconds > 0 ] ]
- whileTrue: [ seconds := seconds - 1.
- nanos := nanos + NanosInSecond ].
- [ seconds < 0 and: [ nanos > 0 ] ]
- whileTrue: [ seconds := seconds + 1.
- nanos := nanos - NanosInSecond ]
-
- !
Item was removed:
- ----- Method: Duration>>storeOn: (in category 'private') -----
- storeOn: aStream
-
- aStream
- nextPut: $(;
- nextPutAll: self className;
- nextPutAll: ' seconds: ';
- print: seconds;
- nextPutAll: ' nanoSeconds: ';
- print: nanos;
- nextPut: $)
- !
Item was removed:
- ----- Method: Duration>>ticks (in category 'private') -----
- ticks
- "Answer an array {days. seconds. nanoSeconds}. Used by DateAndTime and Time."
-
- | days |
- days := self days.
- ^ Array
- with: days
- with: seconds - (days * SecondsInDay)
- with: nanos
- !
Item was removed:
- ----- Method: Duration>>truncateTo: (in category 'squeak protocol') -----
- truncateTo: aDuration
- "e.g. if the receiver is 5 minutes, 37 seconds, and aDuration is 2 minutes, answer 4 minutes."
-
- ^ self class
- nanoSeconds: (self asNanoSeconds truncateTo: aDuration asNanoSeconds)
- !
Item was removed:
- ----- Method: Duration>>wait (in category 'squeak protocol') -----
- wait
- "Convert this duration in a delay and wait once. Answer the created delay so that the client can wait on it again if needed. NOTE THAT for delays shorter than 50 milliseconds, you might want to use #busyWait for greater precision if the higher CPU load and restricted process scheduling are not an issue. See commentary in #busyWait."
-
- "[3 seconds wait] timeToRun"
-
- ^self asDelay wait!
Item was removed:
- ----- Method: Integer>>asYear (in category '*chronology-core') -----
- asYear
-
- ^ Year year: self
- !
Item was removed:
- Timespan subclass: #Month
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !Month commentStamp: 'cbr 7/28/2010 18:11' prior: 0!
- I represent a month.
-
- For example, to get the number of days this month, you can evaluate the following expression:
-
- Month current daysInMonth!
Item was removed:
- ----- Method: Month class>>daysInMonth:forYear: (in category 'smalltalk-80') -----
- daysInMonth: indexOrName forYear: yearInteger
-
- | index |
- index := indexOrName isInteger
- ifTrue: [indexOrName]
- ifFalse: [self indexOfMonth: indexOrName].
- ^ (DaysInMonth at: index)
- + ((index = 2
- and: [Year isLeapYear: yearInteger])
- ifTrue: [1] ifFalse: [0])
- !
Item was removed:
- ----- Method: Month class>>indexOfMonth: (in category 'smalltalk-80') -----
- indexOfMonth: aMonthName
-
-
- 1 to: 12 do: [ :i | (aMonthName, '*' match: (MonthNames at: i)) ifTrue: [^i] ].
- self error: aMonthName , ' is not a recognized month name'.!
Item was removed:
- ----- Method: Month class>>month:year: (in category 'squeak protocol') -----
- month: month year: year
- "Create a Month for the given <year> and <month>.
- <month> may be a number or a String with the
- name of the month. <year> should be with 4 digits."
- ^ self starting:
- (DateAndTime
- year: year
- month: month
- day: 1
- hour: 0
- minute: 0
- second: 0
- offset: self defaultOffset)!
Item was removed:
- ----- Method: Month class>>nameOfMonth: (in category 'smalltalk-80') -----
- nameOfMonth: anIndex
-
- ^ MonthNames at: anIndex.!
Item was removed:
- ----- Method: Month class>>readFrom: (in category 'squeak protocol') -----
- readFrom: aStream
- | m y |
- aStream skipSeparators.
- m := aStream upToAnyOf: CharacterSet separators.
- aStream skipSeparators.
- y := aStream upToEnd.
- ^ self
- month: m
- year: y asInteger
-
- "Month readFrom: 'July 1998' readStream"!
Item was removed:
- ----- Method: Month class>>starting:duration: (in category 'squeak protocol') -----
- starting: aDateAndTime duration: aDuration
- "Override - a each month has a defined duration"
- | start adjusted days |
- start := aDateAndTime asDateAndTime.
- adjusted := DateAndTime
- year: start year
- month: start month
- day: 1
- hour: 0
- minute: 0
- second: 0
- offset: start offset.
- days := self
- daysInMonth: adjusted month
- forYear: adjusted year.
- ^ super
- starting: adjusted
- duration: (Duration days: days)!
Item was removed:
- ----- Method: Month>>asMonth (in category 'squeak protocol') -----
- asMonth
-
- ^ self!
Item was removed:
- ----- Method: Month>>daysInMonth (in category 'squeak protocol') -----
- daysInMonth
-
- ^ self duration days.!
Item was removed:
- ----- Method: Month>>index (in category 'squeak protocol') -----
- index
-
- ^ self monthIndex!
Item was removed:
- ----- Method: Month>>name (in category 'squeak protocol') -----
- name
-
-
- ^ self monthName!
Item was removed:
- ----- Method: Month>>previous (in category 'squeak protocol') -----
- previous
-
-
- ^ self class starting: (self start - 1)!
Item was removed:
- ----- Method: Month>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
-
-
- aStream nextPutAll: self monthName, ' ', self year printString!
Item was removed:
- ----- Method: Number>>asDuration (in category '*chronology-core') -----
- asDuration
-
- ^ Duration nanoSeconds: self asInteger
- !
Item was removed:
- ----- Method: Number>>day (in category '*chronology-core') -----
- day
-
- ^ self days!
Item was removed:
- ----- Method: Number>>days (in category '*chronology-core') -----
- days
-
- ^ Duration days: self!
Item was removed:
- ----- Method: Number>>hour (in category '*chronology-core') -----
- hour
-
- ^ self hours
- !
Item was removed:
- ----- Method: Number>>hours (in category '*chronology-core') -----
- hours
-
- ^ Duration hours: self!
Item was removed:
- ----- Method: Number>>microSecond (in category '*chronology-core') -----
- microSecond
- ^ self microSeconds!
Item was removed:
- ----- Method: Number>>microSeconds (in category '*chronology-core') -----
- microSeconds
- ^ Duration microSeconds: self!
Item was removed:
- ----- Method: Number>>milliSecond (in category '*chronology-core') -----
- milliSecond
-
- ^ self milliSeconds
- !
Item was removed:
- ----- Method: Number>>milliSeconds (in category '*chronology-core') -----
- milliSeconds
-
- ^ Duration milliSeconds: self
- !
Item was removed:
- ----- Method: Number>>minute (in category '*chronology-core') -----
- minute
-
- ^ self minutes
- !
Item was removed:
- ----- Method: Number>>minutes (in category '*chronology-core') -----
- minutes
-
- ^ Duration minutes: self!
Item was removed:
- ----- Method: Number>>nanoSecond (in category '*chronology-core') -----
- nanoSecond
-
- ^ self nanoSeconds
- !
Item was removed:
- ----- Method: Number>>nanoSeconds (in category '*chronology-core') -----
- nanoSeconds
-
- ^ Duration nanoSeconds: self.!
Item was removed:
- ----- Method: Number>>second (in category '*chronology-core') -----
- second
-
- ^ self seconds
- !
Item was removed:
- ----- Method: Number>>seconds (in category '*chronology-core') -----
- seconds
-
- ^ Duration seconds: self!
Item was removed:
- ----- Method: Number>>week (in category '*chronology-core') -----
- week
-
- ^ self weeks
- !
Item was removed:
- ----- Method: Number>>weeks (in category '*chronology-core') -----
- weeks
-
- ^ Duration weeks: self!
Item was removed:
- Timespan subclass: #Schedule
- instanceVariableNames: 'schedule'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !Schedule commentStamp: 'brp 5/13/2003 09:48' prior: 0!
- I represent a powerful class for implementing recurring schedules.!
Item was removed:
- ----- Method: Schedule>>between:and:do: (in category 'enumerating') -----
- between: aStart and: anEnd do: aBlock
-
- | element end i |
- end := self end min: anEnd.
- element := self start.
-
- i := 1.
- [ element < aStart ] whileTrue:
-
- [ element := element + (schedule at: i).
- i := i + 1. (i > schedule size) ifTrue: [i := 1]].
- i := 1.
- [ element <= end ] whileTrue:
-
- [ aBlock value: element.
- element := element + (schedule at: i).
- i := i + 1.
- (i > schedule size) ifTrue: [i := 1]]
- !
Item was removed:
- ----- Method: Schedule>>dateAndTimes (in category 'enumerating') -----
- dateAndTimes
-
- | dateAndTimes |
- dateAndTimes := OrderedCollection new.
- self scheduleDo: [ :e | dateAndTimes add: e ].
- ^ dateAndTimes asArray!
Item was removed:
- ----- Method: Schedule>>includes: (in category 'squeak protocol') -----
- includes: aDateAndTime
-
- | dt |
- dt := aDateAndTime asDateAndTime.
- self scheduleDo: [ :e | e = dt ifTrue: [^true] ].
- ^ false
- !
Item was removed:
- ----- Method: Schedule>>schedule (in category 'enumerating') -----
- schedule
- ^ schedule!
Item was removed:
- ----- Method: Schedule>>schedule: (in category 'enumerating') -----
- schedule: anArrayOfDurations
-
- schedule := anArrayOfDurations!
Item was removed:
- ----- Method: Schedule>>scheduleDo: (in category 'enumerating') -----
- scheduleDo: aBlock
-
- self between: (self start) and: (self end) do: aBlock
- !
Item was removed:
- Object subclass: #Stopwatch
- instanceVariableNames: 'timespans state'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !Stopwatch commentStamp: '<historical>' prior: 0!
- A Stopwatch maintains a collection of timespans.!
Item was removed:
- ----- Method: Stopwatch>>activate (in category 'squeak protocol') -----
- activate
-
- self isSuspended ifTrue:
- [self timespans add:
- (Timespan starting: DateAndTime now duration: Duration zero).
- self state: #active]
- !
Item was removed:
- ----- Method: Stopwatch>>duration (in category 'squeak protocol') -----
- duration
-
- | ts last |
- self isSuspended
- ifTrue:
- [ (ts := self timespans) isEmpty ifTrue:
- [ ts := { Timespan starting: DateAndTime now duration: Duration zero } ] ]
- ifFalse:
- [ last := self timespans last.
- ts := self timespans allButLast
- add: (last duration: (DateAndTime now - last start); yourself);
- yourself ].
-
- ^ (ts collect: [ :t | t duration ]) sum!
Item was removed:
- ----- Method: Stopwatch>>end (in category 'squeak protocol') -----
- end
-
- ^ self timespans last next
-
- !
Item was removed:
- ----- Method: Stopwatch>>isActive (in category 'squeak protocol') -----
- isActive
-
- ^ self state = #active
- !
Item was removed:
- ----- Method: Stopwatch>>isSuspended (in category 'squeak protocol') -----
- isSuspended
-
- ^ self state = #suspended
-
- !
Item was removed:
- ----- Method: Stopwatch>>postCopy (in category 'copying') -----
- postCopy
- super postCopy.
- timespans := timespans copy!
Item was removed:
- ----- Method: Stopwatch>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
-
- super printOn: aStream.
- aStream
- nextPut: $(;
- nextPutAll: self state;
- nextPut: $:;
- print: self duration;
- nextPut: $).
-
- !
Item was removed:
- ----- Method: Stopwatch>>reActivate (in category 'squeak protocol') -----
- reActivate
-
- self
- suspend;
- activate.
- !
Item was removed:
- ----- Method: Stopwatch>>reset (in category 'squeak protocol') -----
- reset
-
- self suspend.
- timespans := nil
- !
Item was removed:
- ----- Method: Stopwatch>>start (in category 'squeak protocol') -----
- start
-
- ^ self timespans first start
-
- !
Item was removed:
- ----- Method: Stopwatch>>state (in category 'squeak protocol') -----
- state
-
- ^ state ifNil: [ state := #suspended ]!
Item was removed:
- ----- Method: Stopwatch>>state: (in category 'squeak protocol') -----
- state: aSymbol
-
- state := aSymbol!
Item was removed:
- ----- Method: Stopwatch>>suspend (in category 'squeak protocol') -----
- suspend
-
- | ts |
- self isActive ifTrue:
- [ ts := self timespans last.
- ts duration: (DateAndTime now - ts start).
- self state: #suspended]!
Item was removed:
- ----- Method: Stopwatch>>timespans (in category 'squeak protocol') -----
- timespans
-
- ^ timespans ifNil: [ timespans := OrderedCollection new ]!
Item was removed:
- ----- Method: String>>asDate (in category '*chronology-core') -----
- asDate
- "Many allowed forms, see Date>>#readFrom:"
-
- ^ Date fromString: self!
Item was removed:
- ----- Method: String>>asDateAndTime (in category '*chronology-core') -----
- asDateAndTime
-
- "Convert from UTC format" ^ DateAndTime fromString: self!
Item was removed:
- ----- Method: String>>asDuration (in category '*chronology-core') -----
- asDuration
- "convert from [nnnd]hh:mm:ss[.nanos] format. [] implies optional elements"
-
- ^ Duration fromString: self
- !
Item was removed:
- ----- Method: String>>asTime (in category '*chronology-core') -----
- asTime
- "Many allowed forms, see Time>>readFrom:"
-
- ^ Time fromString: self.!
Item was removed:
- ----- Method: String>>asTimeStamp (in category '*chronology-core') -----
- asTimeStamp
- "Convert from obsolete TimeStamp format"
-
- ^ TimeStamp fromString: self!
Item was removed:
- Magnitude subclass: #Time
- instanceVariableNames: 'seconds nanos'
- classVariableNames: 'ClockPolicy HighResClockTicksPerMillisecond LastClockTick UpdateVMTimeZoneCacheAt UseHighResClockForTiming'
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0!
- This represents a particular point in time during any given day. For example, '5:19:45 pm'.
-
- If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration.
- !
Item was removed:
- ----- Method: Time class>>benchmarkMillisecondClock (in category 'benchmarks') -----
- benchmarkMillisecondClock "Time benchmarkMillisecondClock"
-
- "Benchmark the time spent in a call to Time>>millisecondClockValue.
-
- On the VM level this tests the efficiency of calls to ioMSecs()."
-
- "PII/400 Windows 98: 0.725 microseconds per call"
-
- | temp1 temp2 temp3 delayTime nLoops time |
-
- delayTime := 5000. "Time to run benchmark is approx. 2*delayTime"
-
-
-
- "Don't run the benchmark if we have an active delay since
-
- we will measure the additional penalty in the primitive dispatch
-
- mechanism (see #benchmarkPrimitiveResponseDelay)."
-
- Delay anyActive ifTrue:[
-
- ^self notify:'Some delay is currently active.
-
- Running this benchmark will not give any useful result.'].
-
-
-
- "Flush the cache for this benchmark so we will have
-
- a clear cache hit for each send to #millisecondClockValue below"
-
- Object flushCache.
-
- temp1 := 0.
-
- temp2 := self. "e.g., temp1 == Time"
-
- temp3 := self millisecondClockValue + delayTime.
-
-
-
- "Now check how often we can run the following loop in the given time"
-
- [temp2 millisecondClockValue < temp3]
-
- whileTrue:[temp1 := temp1 + 1].
-
-
-
- nLoops := temp1. "Remember the loops we have run during delayTime"
-
-
-
- "Setup the second loop"
-
- temp1 := 0.
-
- temp3 := nLoops.
-
-
-
- "Now measure how much time we spend without sending #millisecondClockValue"
-
- time := Time millisecondClockValue.
-
- [temp1 < temp3]
-
- whileTrue:[temp1 := temp1 + 1].
-
- time := Time millisecondClockValue - time.
-
-
-
- "And compute the number of microseconds spent per call to #millisecondClockValue"
-
- ^((delayTime - time * 1000.0 / nLoops) truncateTo: 0.001) printString,
-
- ' microseconds per call to Time>>millisecondClockValue'
- !
Item was removed:
- ----- Method: Time class>>benchmarkPrimitiveResponseDelay (in category 'benchmarks') -----
- benchmarkPrimitiveResponseDelay "Time benchmarkPrimitiveResponseDelay"
-
- "Benchmark the overhead for primitive dispatches with an active Delay.
-
- On the VM level, this tests the efficiency of ioLowResMSecs."
-
-
-
- "PII/400 Windows98: 0.128 microseconds per prim"
-
-
-
- "ar 9/6/1999: This value is *extremely* important for stuff like sockets etc.
-
- I had a bad surprise when Michael pointed this particular problem out:
-
- Using the hardcoded clock() call for ioLowResMSecs on Win32 resulted in an overhead
-
- of 157.4 microseconds per primitive call - meaning you can't get no more than
-
- approx. 6000 primitives per second on my 400Mhz PII system with an active delay!!
-
- BTW, it finally explains why Squeak seemed soooo slow when running PWS or
-
- other socket stuff. The new version (not using clock() but some Windows function)
-
- looks a lot better (see above; approx. 8,000,000 prims per sec with an active delay)."
-
-
-
- | nLoops bb index baseTime actualTime delayTime |
-
- delayTime := 5000. "Time to run this test is approx. 3*delayTime"
-
-
-
- Delay anyActive ifTrue:[
-
- ^self notify:'Some delay is currently active.
-
- Running this benchmark will not give any useful result.'].
-
-
-
- bb := Array new: 1. "The object we send the prim message to"
-
-
-
- "Compute the # of loops we'll run in a decent amount of time"
-
- [(Delay forMilliseconds: delayTime) wait]
-
- forkAt: Processor userInterruptPriority.
-
-
-
- nLoops := 0.
-
- [Delay anyActive] whileTrue:[
-
- bb basicSize; basicSize; basicSize; basicSize; basicSize;
-
- basicSize; basicSize; basicSize; basicSize; basicSize.
-
- nLoops := nLoops + 1.
-
- ].
-
-
-
- "Flush the cache and make sure #basicSize is in there"
-
- Object flushCache.
-
- bb basicSize.
-
-
-
- "Now run the loop without any active delay
-
- for getting an idea about its actual speed."
-
- baseTime := self millisecondClockValue.
-
- index := nLoops.
-
- [index > 0] whileTrue:[
-
- bb basicSize; basicSize; basicSize; basicSize; basicSize;
-
- basicSize; basicSize; basicSize; basicSize; basicSize.
-
- index := index - 1.
-
- ].
-
- baseTime := self millisecondClockValue - baseTime.
-
-
-
- "Setup the active delay but try to never make it active"
-
- [(Delay forMilliseconds: delayTime + delayTime) wait]
-
- forkAt: Processor userInterruptPriority.
-
-
-
- "And run the loop"
-
- actualTime := self millisecondClockValue.
-
- index := nLoops.
-
- [index > 0] whileTrue:[
-
- bb basicSize; basicSize; basicSize; basicSize; basicSize;
-
- basicSize; basicSize; basicSize; basicSize; basicSize.
-
- index := index - 1.
-
- ].
-
- actualTime := self millisecondClockValue - actualTime.
-
-
-
- "And get us some result"
-
- ^((actualTime - baseTime) * 1000 asFloat / (nLoops * 10) truncateTo: 0.001) printString,
-
- ' microseconds overhead per primitive call'
- !
Item was removed:
- ----- Method: Time class>>clockPolicy (in category 'class initialization') -----
- clockPolicy
-
- ^ClockPolicy!
Item was removed:
- ----- Method: Time class>>clockPolicy: (in category 'class initialization') -----
- clockPolicy: aSymbol
- "When sequencial calls are made to DateAndTime now, it may be desirable to
- force the system clock to be monotonic, and it may be desirable for the clock
- to appear to be strictly increasing with no repeat values. The ClockPolicy
- identifies which of several possible strategies to use.
-
- Allowable values are
- #acceptPlatformTime
- #monotonicAllowDuplicates
- #monotonicForceMicrosecondIncrement
- #monotonicForceNanosecondIncrement "
-
- self assert: (
- #(
- acceptPlatformTime
- monotonicAllowDuplicates
- monotonicForceMicrosecondIncrement
- monotonicForceNanosecondIncrement) includes: aSymbol).
- ClockPolicy := aSymbol!
Item was removed:
- ----- Method: Time class>>condenseBunches: (in category 'general inquiries') -----
- condenseBunches: aCollectionOfSeconds
- | secArray now out pause prev bunchEnd |
- "Identify the major intervals in a bunch of numbers.
- Each number is a seconds since 1901 that represents a date and time.
- We want the last event in a bunch. Return array of seconds for:
-
- Every event in the last half hour.
- Every bunch separated by 30 min in the last 24 hours.
-
- Every bunch separated by two hours before that."
-
- "Time condenseBunches:
- (#(20 400 401 20000 20200 20300 40000 45000 200000 201000 202000)
- collect: [ :tt | self totalSeconds - tt])
- "
-
- secArray := aCollectionOfSeconds asSortedCollection.
- pause := 1.
- now := self totalSeconds.
- out := OrderedCollection new.
- prev := 0.
- bunchEnd := nil.
- secArray reverseDo: [:secs | | ago | "descending"
- ago := now - secs.
- ago > (60*30) ifTrue: [pause := "60*30" 1800].
- ago > (60*60*24) ifTrue: [pause := "60*120" 7200].
- ago - prev >= pause ifTrue: [out add: bunchEnd. bunchEnd := secs].
- prev := ago].
- out add: bunchEnd.
- out removeFirst.
- ^ out
- !
Item was removed:
- ----- Method: Time class>>current (in category 'squeak protocol') -----
- current
-
- ^ self now!
Item was removed:
- ----- Method: Time class>>dateAndTimeFromSeconds: (in category 'smalltalk-80') -----
- dateAndTimeFromSeconds: secondCount
-
- ^ Array
- with: (Date fromSeconds: secondCount)
- with: (Time fromSeconds: secondCount \\ 86400)!
Item was removed:
- ----- Method: Time class>>dateAndTimeNow (in category 'smalltalk-80') -----
- dateAndTimeNow
- "Answer a two-element Array of (Date today, Time now)."
-
- ^ self dateAndTimeFromSeconds: self totalSeconds
- !
Item was removed:
- ----- Method: Time class>>durationToRun: (in category 'general inquiries') -----
- durationToRun: timedBlock
- "Answer a duration timedBlock takes to return its value"
-
- ^(self nanosecondsToRun: timedBlock) nanoSeconds!
Item was removed:
- ----- Method: Time class>>estimateHighResClockTicksPerMillisecond (in category 'clock') -----
- estimateHighResClockTicksPerMillisecond
-
- | t0 t1 t2 t3 |
-
- "Count the ticks ellapsed during a 10ms busy loop"
- t0 := Time utcMicrosecondClock + 200.
- [Time utcMicrosecondClock >= t0] whileFalse.
- t1 := self highResClock.
- [Time utcMicrosecondClock >= (t0 + 10000)] whileFalse.
- t1 := self highResClock - t1 * 1000 // (Time utcMicrosecondClock - t0).
-
- "Count the ticks ellapsed during a 20ms busy loop"
- t0 := Time utcMicrosecondClock + 200.
- [Time utcMicrosecondClock >= t0] whileFalse.
- t2 := self highResClock.
- [Time utcMicrosecondClock >= (t0 + 20000)] whileFalse.
- t2 := self highResClock - t2 * 1000 // (Time utcMicrosecondClock - t0).
-
- "Count the ticks ellapsed during a 30ms busy loop"
- t0 := Time utcMicrosecondClock + 200.
- [Time utcMicrosecondClock >= t0] whileFalse.
- t3 := self highResClock.
- [Time utcMicrosecondClock >= (t0 + 30000)] whileFalse.
- t3 := self highResClock - t3 * 1000 // (Time utcMicrosecondClock - t0).
-
- "Take the median of the 3 estimates as the best"
- ^ t1 <= t2
- ifTrue: [t2 <= t3
- ifTrue: [t2]
- ifFalse: [t1 <= t3
- ifTrue: [t3]
- ifFalse: [t1]]]
- ifFalse: [t1 <= t3
- ifTrue: [t1]
- ifFalse: [t2 <= t3
- ifTrue: [t3]
- ifFalse: [t2]]]!
Item was removed:
- ----- Method: Time class>>eventMillisecondClock (in category 'clock') -----
- eventMillisecondClock
- "In order to make certain event handling code work (cf MouseEvent>asMouseMove) we need access
- to the tick kept by ioMSecs() "
- "Time eventMillisecondClock"
- <primitive: 135>
- ^0!
Item was removed:
- ----- Method: Time class>>fromSeconds: (in category 'smalltalk-80') -----
- fromSeconds: secondCount
- "Answer an instance of me that is secondCount number of seconds since midnight."
-
- | integerSeconds nanos |
- integerSeconds := secondCount truncated.
- integerSeconds = secondCount
- ifTrue: [nanos := 0]
- ifFalse: [nanos := (secondCount - integerSeconds * NanosInSecond) asInteger].
- ^ self seconds: integerSeconds nanoSeconds: nanos
- !
Item was removed:
- ----- Method: Time class>>highResClock (in category 'clock') -----
- highResClock
- "Time highResClock"
- "Primitive. Answer the value of the high resolution clock if this computer has one.
- Usually, this should be the highest resolution value available, for example on Intel
- it will be the value of the time stamp counter register."
- <primitive: 'primitiveHighResClock'>
- ^0!
Item was removed:
- ----- Method: Time class>>highResClockTicksPerMillisecond (in category 'clock') -----
- highResClockTicksPerMillisecond
- HighResClockTicksPerMillisecond = 0
- ifTrue:
- [HighResClockTicksPerMillisecond := self estimateHighResClockTicksPerMillisecond].
- ^HighResClockTicksPerMillisecond!
Item was removed:
- ----- Method: Time class>>hour:minute:second: (in category 'squeak protocol') -----
- hour: hour minute: minute second: second
- "Answer a Time"
-
- ^ self hour: hour minute: minute second: second nanoSecond: 0
- !
Item was removed:
- ----- Method: Time class>>hour:minute:second:nanoSecond: (in category 'squeak protocol') -----
- hour: hour minute: minute second: second nanoSecond: nanoCount
- "Answer a Time - only second precision for now"
-
- ^ self
- seconds: (hour * SecondsInHour) + (minute * SecondsInMinute) + second
- nanoSeconds: nanoCount
- !
Item was removed:
- ----- Method: Time class>>humanWordsForSecondsAgo: (in category 'general inquiries') -----
- humanWordsForSecondsAgo: secs
- | date today |
- "Return natural language for this date and time in the past."
-
- secs <= 1 ifTrue: [^ 'a second ago'].
- secs < 45 ifTrue: [^ secs printString, ' seconds ago'].
- secs < 90 ifTrue: [^ 'a minute ago'].
- secs < "45*60" 2700 ifTrue: [^ (secs//60) printString, ' minutes ago'].
- secs < "90*60" 5400 ifTrue: [^ 'an hour ago'].
- secs < "18*60*60" 64800 ifTrue: [^ (secs//3600) printString, ' hours ago'].
- date := Date fromSeconds: self totalSeconds - secs. "now work with dates"
- today := Date today.
- date > (today subtractDays: 2) ifTrue: [^ 'yesterday'].
- date > (today subtractDays: 8) ifTrue: [^ 'last ', date dayOfWeekName].
- date > (today subtractDays: 13) ifTrue: [^ 'a week ago'].
- date > (today subtractDays: 28) ifTrue: [
- ^ ((today subtractDate: date)//7) printString, ' weeks ago'].
- date > (today subtractDays: 45) ifTrue: [^ 'a month ago'].
- date > (today subtractDays: 300) ifTrue: [^ 'last ', date monthName].
- ^ date monthName, ', ', date year printString
-
- "Example
- #(0.5 30 62 130 4000 10000 60000 90000 345600 864000 1728000 3456000 17280000 34560000 345600000)
- collect: [:ss | Time humanWordsForSecondsAgo: ss].
- "
- !
Item was removed:
- ----- Method: Time class>>initialize (in category 'class initialization') -----
- initialize
- " self initialize "
-
- LastClockTick ifNil: [ LastClockTick := 0 ].
-
- HighResClockTicksPerMillisecond ifNil: [ HighResClockTicksPerMillisecond := 0 ].
-
- ClockPolicy ifNil: [
- "self clockPolicy: #acceptPlatformTime."
- self clockPolicy: #monotonicAllowDuplicates.
- "self clockPolicy: #monotonicForceMicrosecondIncrement."
- "self clockPolicy: #monotonicForceNanosecondIncrement." ]!
Item was removed:
- ----- Method: Time class>>localMicrosecondClock (in category 'clock') -----
- localMicrosecondClock
- "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).
- The value is derived from the current UTC wallclock time and the image's current notion of time zone."
- ^self utcMicrosecondClock + (DateAndTime localOffsetSeconds * 1000000)!
Item was removed:
- ----- Method: Time class>>localMicrosecondClockPrimitive (in category 'clock') -----
- localMicrosecondClockPrimitive
- "Answer the local microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).
- The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds
- between the two epochs according to RFC 868, and with an offset duration corresponding to the current
- offset of local time from UTC."
- <primitive: 241>
- ^0!
Item was removed:
- ----- Method: Time class>>localMicrosecondClockWithOffset (in category 'clock') -----
- localMicrosecondClockWithOffset
- "Answer an array with local microseconds since the Smalltalk epoch and the
- current seconds offset from GMT in the local time zone."
-
- | result |
- result := self posixMicrosecondClockWithOffset.
- "DateAndTime unixEpoch asSeconds"
- result at: 1 put: result first + ((2177452800 + result second) * 1000000).
- ^result!
Item was removed:
- ----- Method: Time class>>microsecondsToRun: (in category 'general inquiries') -----
- microsecondsToRun: timedBlock
- "Answer the number of microseconds timedBlock takes to return its value."
-
- | startUsecs |
- (self useHighResClockForTiming and: [self highResClock ~= 0])
- ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock) + 500 // 1000].
- startUsecs := self utcMicrosecondClock.
- timedBlock value.
- ^self utcMicrosecondClock - startUsecs!
Item was removed:
- ----- Method: Time class>>midnight (in category 'squeak protocol') -----
- midnight
-
- ^ self seconds: 0
- !
Item was removed:
- ----- Method: Time class>>milliSecondsSinceMidnight (in category 'ansi protocol') -----
- milliSecondsSinceMidnight
- ^self localMicrosecondClock // 1000 \\ 86400000 "24 * 60 * 60 * 1000"!
Item was removed:
- ----- Method: Time class>>millisecondClock (in category 'general inquiries') -----
- millisecondClock
- "Answer the value of the millisecond clock. Unlike older implementatins, this is a clock; it will never roll-over."
-
- ^self utcMicrosecondClock // 1000!
Item was removed:
- ----- Method: Time class>>millisecondClockValue (in category 'general inquiries') -----
- millisecondClockValue
- "Answer the value of the millisecond clock."
-
- ^self utcMicrosecondClock // 1000!
Item was removed:
- ----- Method: Time class>>milliseconds:since: (in category 'squeak protocol') -----
- milliseconds: currentTime since: lastTime
- "Answer the elapsed time since last recorded in milliseconds (i.e. of millisecondClockValue).
- Since the time basis is now a 61-bit or greater UTC microsecond clock, rollover is no longer an issue."
-
- ^currentTime - lastTime!
Item was removed:
- ----- Method: Time class>>millisecondsSince: (in category 'squeak protocol') -----
- millisecondsSince: lastTime
- "Answer the elapsed time since last recorded in milliseconds.
- Compensate for rollover."
-
- ^self milliseconds: self millisecondClockValue since: lastTime
- !
Item was removed:
- ----- Method: Time class>>millisecondsToRun: (in category 'general inquiries') -----
- millisecondsToRun: timedBlock
- "Answer the number of milliseconds timedBlock takes to return its value."
-
- ^(self microsecondsToRun: timedBlock) + 500 // 1000!
Item was removed:
- ----- Method: Time class>>namesForTimes: (in category 'general inquiries') -----
- namesForTimes: arrayOfSeconds
- | simpleEnglish final prev |
- "Return English descriptions of the times in the array. They are each seconds since 1901. If two names are the same, append the date and time to distinguish them."
-
- simpleEnglish := arrayOfSeconds collect: [:secsAgo |
- self humanWordsForSecondsAgo: self totalSeconds - secsAgo].
- prev := ''.
- final := simpleEnglish copy.
- simpleEnglish withIndexDo: [:eng :ind | | prevPair myPair |
- eng = prev ifFalse: [eng]
- ifTrue: ["both say 'a month ago'"
- prevPair := self dateAndTimeFromSeconds:
- (arrayOfSeconds at: ind-1).
- myPair := self dateAndTimeFromSeconds:
- (arrayOfSeconds at: ind).
- (final at: ind-1) = prev ifTrue: ["only has 'a month ago'"
- final at: ind-1 put:
- (final at: ind-1), ', ', prevPair first mmddyyyy].
- final at: ind put:
- (final at: ind), ', ', myPair first mmddyyyy.
- prevPair first = myPair first
- ifTrue: [
- (final at: ind-1) last == $m ifFalse: ["date but no time"
- final at: ind-1 put:
- (final at: ind-1), ', ', prevPair second printMinutes].
- final at: ind put:
- (final at: ind), ', ', myPair second printMinutes]].
- prev := eng].
- ^ final
- !
Item was removed:
- ----- Method: Time class>>nanosecondsToRun: (in category 'general inquiries') -----
- nanosecondsToRun: timedBlock
- "Answer the number of nanoseconds timedBlock takes to return its value.
- Use high resolution clock if available and preferred."
-
- | startUsecs |
- (self useHighResClockForTiming and: [self highResClock ~= 0])
- ifTrue: [ ^(self nanosecondsToRunHighRes: timedBlock)].
- "Fallback to microseconds clock"
- startUsecs := self utcMicrosecondClock.
- timedBlock value.
- ^self utcMicrosecondClock - startUsecs * 1000!
Item was removed:
- ----- Method: Time class>>nanosecondsToRunHighRes: (in category 'general inquiries') -----
- nanosecondsToRunHighRes: timedBlock
- "Answer the number of nanoseconds timedBlock takes to return its value using high resolution clock.
- This assumes that high resolution clock is available, has a constant rate, and is synchronized between multi-core CPU"
-
- | ticks |
- ticks := self highResClock.
- timedBlock value.
- ^(self highResClock - ticks
- + (self highResClock - self highResClock ) "subtract the ticks taken by the call to highResClock itself"
- * 1e6 // self highResClockTicksPerMillisecond) "and convert ticks to nanoSeconds"!
Item was removed:
- ----- Method: Time class>>new (in category 'smalltalk-80') -----
- new
- "Answer a Time representing midnight"
-
- ^ self midnight!
Item was removed:
- ----- Method: Time class>>noon (in category 'squeak protocol') -----
- noon
-
- ^ self seconds: (SecondsInDay / 2)
- !
Item was removed:
- ----- Method: Time class>>now (in category 'ansi protocol') -----
- now
- "Answer a Time representing the time right now - this is a 24 hour clock."
- | localUsecs localUsecsToday |
- localUsecs := self localMicrosecondClock.
- localUsecsToday := localUsecs \\ MicrosecondsInDay.
- ^ self
- seconds: localUsecsToday // 1000000
- nanoSeconds: localUsecsToday \\ 1000000 * 1000!
Item was removed:
- ----- Method: Time class>>posixMicrosecondClockWithOffset (in category 'clock') -----
- posixMicrosecondClockWithOffset
- "Answer an array with local microseconds since the Posix epoch and the
- current seconds offset from GMT in the local time zone."
-
- | array posixUtcValue |
- array := self primPosixMicrosecondClockWithOffset: (Array new: 2).
- posixUtcValue := array at: 1.
- (self updateTimeZoneCacheAt: posixUtcValue) ifTrue: [ "Time zone may have changed: fetch again."
- self primPosixMicrosecondClockWithOffset: array.
- posixUtcValue := array at: 1 ].
- ClockPolicy caseOf: {
- [#acceptPlatformTime] -> [^ array] .
- [#monotonicAllowDuplicates] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [array at: 1 put: LastClockTick]] .
- [#monotonicForceMicrosecondIncrement] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [LastClockTick := LastClockTick + 1. "add one microsecond"
- array at: 1 put: LastClockTick]] .
- [#monotonicForceNanosecondIncrement] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [LastClockTick := LastClockTick + (1 / 1000). "add one nanosecond"
- array at: 1 put: LastClockTick]]
- } otherwise: [].
- ^array!
Item was removed:
- ----- Method: Time class>>posixMicrosecondClockWithOffset: (in category 'clock') -----
- posixMicrosecondClockWithOffset: aDateAndTime
- "Initialize aDateAndTime initialized with local microseconds since the Posix
- epoch and the current seconds offset from GMT in the local time zone."
-
- | posixUtcValue |
- self primPosixMicrosecondClockWithOffset: aDateAndTime.
- posixUtcValue := aDateAndTime utcMicroseconds.
- (self updateTimeZoneCacheAt: posixUtcValue) ifTrue: [ "Time zone may have changed: fetch again."
- self primPosixMicrosecondClockWithOffset: aDateAndTime .
- posixUtcValue := aDateAndTime utcMicroseconds ].
- ClockPolicy caseOf: {
- [#acceptPlatformTime] -> [^ aDateAndTime] .
- [#monotonicAllowDuplicates] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [aDateAndTime utcMicroseconds: LastClockTick]] .
- [#monotonicForceMicrosecondIncrement] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [LastClockTick := LastClockTick + 1. "add one microsecond"
- aDateAndTime utcMicroseconds: LastClockTick]] .
- [#monotonicForceNanosecondIncrement] -> [
- posixUtcValue > LastClockTick
- ifTrue: [LastClockTick := posixUtcValue]
- ifFalse: [LastClockTick := LastClockTick + (1 / 1000). "add one nanosecond"
- aDateAndTime utcMicroseconds: LastClockTick]]
- } otherwise: [].
- ^aDateAndTime!
Item was removed:
- ----- Method: Time class>>primPosixMicrosecondClockWithOffset: (in category 'clock') -----
- primPosixMicrosecondClockWithOffset: arrayOrObjectWithTwoSlots
- "Answer an array with UTC microseconds since the Posix epoch and the
- current seconds offset from GMT in the local time zone. If the primitive is
- not available, then answer the time and offset of Posix epoch GMT. This enables
- the image to continue running in the absence of #primitiveUtcWithOffset, thus
- avoiding the need to fallback code based on the earlier local microsecond clock
- mechanism.
-
- The parameter may be a two element array, or an object whose first two instance
- variables are expected to be UTC microseconds and seconds offset from GMT."
-
- <primitive: 'primitiveUtcWithOffset'>
-
- (arrayOrObjectWithTwoSlots instVarAt: 1)
- ifNil: [arrayOrObjectWithTwoSlots instVarAt: 1 put: 0].
- (arrayOrObjectWithTwoSlots instVarAt: 2)
- ifNil: [arrayOrObjectWithTwoSlots instVarAt: 2 put: 0]!
Item was removed:
- ----- Method: Time class>>primitiveUpdateTimeZone (in category 'clock') -----
- primitiveUpdateTimeZone
- "Update the VMs notion of the current time zone. The VM sets its notion
- of the time zone once at start-up. If one wants the VM to keep its notion
- up-to-date arrange to invoke this primitive periodically."
-
- <primitive: 243>
- ^nil "Return nil instead of self to indicate that the primitive failed."!
Item was removed:
- ----- Method: Time class>>readFrom: (in category 'smalltalk-80') -----
- readFrom: aStream
- "Read a Time from the stream in the form:
- <hour>:<minute>:<second> <am/pm>
-
- <minute>, <second> or <am/pm> may be omitted. e.g. 1:59:30 pm; 8AM; 15:30"
-
- | hourMinuteSecondNano |
- hourMinuteSecondNano := self readHourMinuteSecondNanoFrom: aStream.
- ^ self
- hour: hourMinuteSecondNano first
- minute: hourMinuteSecondNano second
- second: hourMinuteSecondNano third
- nanoSecond: hourMinuteSecondNano fourth
-
- "Time readFrom: (ReadStream on: '2:23:09 pm')"!
Item was removed:
- ----- Method: Time class>>readHourMinuteSecondNanoFrom: (in category 'smalltalk-80') -----
- readHourMinuteSecondNanoFrom: aStream
- "Read a Time from the stream in the form:
- <hour>:<minute>:<second> <am/pm>
-
- <minute>, <second> or <am/pm> may be omitted. e.g. 1:59:30 pm; 8AM; 15:30"
-
- | hour minute second ampm nanos nanosBuffer |
- hour := Integer readFrom: aStream.
- minute := 0.
- second := 0.
- nanosBuffer := '000000000' copy.
- nanos := WriteStream on: nanosBuffer.
- (aStream peekFor: $:)
- ifTrue: [
- minute := Integer readFrom: aStream.
- (aStream peekFor: $:)
- ifTrue: [
- second := Integer readFrom: aStream.
- (aStream peekFor: $.)
- ifTrue: [
- [aStream atEnd not and: [aStream peek isDigit]]
- whileTrue: [nanos nextPut: aStream next]]]].
- aStream skipSeparators.
- (aStream atEnd not and: ['PApa' includes: aStream peek]) ifTrue:
- [ampm := aStream next asLowercase.
- (ampm = $p and: [hour < 12]) ifTrue: [hour := hour + 12].
- (ampm = $a and: [hour = 12]) ifTrue: [hour := 0].
- (aStream peekFor: $m) ifFalse: [aStream peekFor: $M ]].
- ^ { hour . minute . second . nanosBuffer asInteger }
-
- "Time readFrom: (ReadStream on: '2:23:09 pm')"!
Item was removed:
- ----- Method: Time class>>seconds: (in category 'squeak protocol') -----
- seconds: seconds
- "Answer a Time from midnight."
-
- ^ self basicNew ticks: (Duration seconds: seconds) ticks!
Item was removed:
- ----- Method: Time class>>seconds:nanoSeconds: (in category 'squeak protocol') -----
- seconds: seconds nanoSeconds: nanoCount
- "Answer a Time from midnight."
-
- ^ self basicNew
- ticks: (Duration seconds: seconds nanoSeconds: nanoCount) ticks
- !
Item was removed:
- ----- Method: Time class>>startUp: (in category 'system startup') -----
- startUp: resuming
-
- resuming ifTrue: [
- LastClockTick := 0 ]!
Item was removed:
- ----- Method: Time class>>totalSeconds (in category 'smalltalk-80') -----
- totalSeconds
- "Answer the total seconds since the Squeak epoch: 1 January 1901, in local time."
-
- ^self localMicrosecondClock // 1000000!
Item was removed:
- ----- Method: Time class>>updateTimeZoneCacheAt: (in category 'clock') -----
- updateTimeZoneCacheAt: posixUtcMicrosecondClock
- "Tell the VM to update its cached time zone value if the POSIX UTC time has reached the value stored in UpdateVMTimeZoneCacheAt. Assume that posixUtcMicrosecondClock is an integer with the current POSIX UTC microsecond clock value. Return true if the cache was updated to indicate that the time zone may have changed."
-
- | updateInterval |
- UpdateVMTimeZoneCacheAt ifNil: [
- "Automatic update is disabled."
- ^false ].
- posixUtcMicrosecondClock < UpdateVMTimeZoneCacheAt ifTrue: [ ^false ].
- self primitiveUpdateTimeZone ifNil: [
- "The primitive failed."
- ^false ].
- updateInterval := 1800000000. "This could be a preference but 30 minutes works for all upcoming DST change times."
- UpdateVMTimeZoneCacheAt := posixUtcMicrosecondClock // updateInterval + 1 * updateInterval "Round up posixUtcMicrosecondClock to the next multiple of updateInterval.".
- ^true!
Item was removed:
- ----- Method: Time class>>useHighResClockForTiming (in category 'preferences') -----
- useHighResClockForTiming
- <preference: 'Use high resolution clock for timing'
- category: 'performance'
- description: 'This is used for measuring time ellapsed for running a block. High resolution clocks (known as TSC) are counter embedded on CPU and incremented at each cycle. They enable timing close to the nanosecond for GHz CPU. However, on older models, they might have a non constant rate depending on power saving: converting ticks to seconds is not reliable in this case, but knowing the number of cycles taken to perform the task is still a valuable information. TSC might also be un-synchronized between the multi-cores: if Squeak process is switched from 1 core to another during the timing, timing results could be random. If you have a recent CPU, you might prefer this option'
- type: #Boolean>
- ^UseHighResClockForTiming ifNil: [ false ]!
Item was removed:
- ----- Method: Time class>>utcMicrosecondClock (in category 'clock') -----
- utcMicrosecondClock
- "Answer the UTC microseconds since the Smalltalk epoch (January 1st 1901, the start of the 20th century).
- The value is derived from the Posix epoch with a constant offset corresponding to elapsed microseconds
- between the two epochs according to RFC 868."
- <primitive: 240>
- ^0!
Item was removed:
- ----- Method: Time>>< (in category 'ansi protocol') -----
- < aTime
-
- ^ self asDuration < aTime asDuration!
Item was removed:
- ----- Method: Time>>= (in category 'ansi protocol') -----
- = aTime
-
- ^ [ self ticks = aTime ticks ]
- on: MessageNotUnderstood do: [false]!
Item was removed:
- ----- Method: Time>>addSeconds: (in category 'smalltalk-80') -----
- addSeconds: nSeconds
- "Answer a Time that is nSeconds after the receiver."
-
- | secondsToAdd newNanos |
- (secondsToAdd := nSeconds truncated) = nSeconds
- ifTrue: [newNanos := nanos]
- ifFalse: [(newNanos := nanos + (nSeconds - secondsToAdd * NanosInSecond)) > NanosInSecond
- ifTrue: [secondsToAdd := secondsToAdd + 1.
- newNanos := newNanos - NanosInSecond]].
- ^ self class seconds: seconds + secondsToAdd nanoSeconds: newNanos!
Item was removed:
- ----- Method: Time>>addTime: (in category 'smalltalk-80') -----
- addTime: timeAmount
- "Answer a Time that is timeInterval after the receiver. timeInterval is an
- instance of Date or Time."
-
- ^ self class seconds: self asSeconds + timeAmount asSeconds
- !
Item was removed:
- ----- Method: Time>>asDate (in category 'squeak protocol') -----
- asDate
-
- ^ Date today!
Item was removed:
- ----- Method: Time>>asDateAndTime (in category 'squeak protocol') -----
- asDateAndTime
-
- ^ DateAndTime today + self!
Item was removed:
- ----- Method: Time>>asDuration (in category 'squeak protocol') -----
- asDuration
-
- "Answer the duration since midnight"
-
- ^ Duration seconds: seconds nanoSeconds: nanos!
Item was removed:
- ----- Method: Time>>asMonth (in category 'squeak protocol') -----
- asMonth
-
- ^ self asDateAndTime asMonth!
Item was removed:
- ----- Method: Time>>asNanoSeconds (in category 'squeak protocol') -----
- asNanoSeconds
- "Answer the number of nanoseconds since midnight"
-
- ^ self asDuration asNanoSeconds!
Item was removed:
- ----- Method: Time>>asSeconds (in category 'smalltalk-80') -----
- asSeconds
- "Answer the number of seconds since midnight of the receiver."
-
- ^ seconds
- !
Item was removed:
- ----- Method: Time>>asTime (in category 'squeak protocol') -----
- asTime
-
- ^ self!
Item was removed:
- ----- Method: Time>>asTimeStamp (in category 'squeak protocol') -----
- asTimeStamp
-
- ^ self asDateAndTime asTimeStamp!
Item was removed:
- ----- Method: Time>>asWeek (in category 'squeak protocol') -----
- asWeek
-
- ^ self asDateAndTime asWeek!
Item was removed:
- ----- Method: Time>>asYear (in category 'squeak protocol') -----
- asYear
-
- ^ self asDateAndTime asYear!
Item was removed:
- ----- Method: Time>>duration (in category 'ansi protocol') -----
- duration
-
- ^ Duration zero!
Item was removed:
- ----- Method: Time>>hash (in category 'ansi protocol') -----
- hash
-
- ^ self ticks hash!
Item was removed:
- ----- Method: Time>>hhmm24 (in category 'printing') -----
- hhmm24
- "Return a string of the form 1123 (for 11:23 am), 2154 (for 9:54 pm), of exactly 4 digits"
-
- ^(String streamContents:
- [ :aStream | self print24: true showSeconds: false on: aStream ])
- copyWithout: $:
- !
Item was removed:
- ----- Method: Time>>hour (in category 'ansi protocol') -----
- hour
-
- ^ self hour24!
Item was removed:
- ----- Method: Time>>hour12 (in category 'ansi protocol') -----
- hour12
- "Answer an <integer> between 1 and 12, inclusive, representing the hour
- of the day in the 12-hour clock of the local time of the receiver."
- ^ self hour24 - 1 \\ 12 + 1
- !
Item was removed:
- ----- Method: Time>>hour24 (in category 'ansi protocol') -----
- hour24
-
-
- ^ self asDuration hours!
Item was removed:
- ----- Method: Time>>hours (in category 'smalltalk-80') -----
- hours
-
- ^ self hour!
Item was removed:
- ----- Method: Time>>intervalString (in category 'smalltalk-80') -----
- intervalString
- "Treat the time as a difference. Give it in hours and minutes with two digits of accuracy."
-
- | d |
- d := self asDuration.
- ^ String streamContents: [ :s |
- d hours > 0 ifTrue: [s print: d hours; nextPutAll: ' hours'].
- d minutes > 0 ifTrue: [s space; print: d minutes; nextPutAll: ' minutes'].
- d seconds > 0 ifTrue: [s space; print: d seconds; nextPutAll: ' seconds'] ]
- !
Item was removed:
- ----- Method: Time>>meridianAbbreviation (in category 'ansi protocol') -----
- meridianAbbreviation
-
- ^ self hour < 12 ifTrue: ['AM'] ifFalse: ['PM']
- !
Item was removed:
- ----- Method: Time>>minute (in category 'ansi protocol') -----
- minute
-
- ^ self asDuration minutes!
Item was removed:
- ----- Method: Time>>minutes (in category 'smalltalk-80') -----
- minutes
-
- ^ self asDuration minutes!
Item was removed:
- ----- Method: Time>>nanoSecond (in category 'squeak protocol') -----
- nanoSecond
-
-
- ^ nanos!
Item was removed:
- ----- Method: Time>>print24 (in category 'printing') -----
- print24
- "Return as 8-digit string 'hh:mm:ss', with leading zeros if needed"
-
- ^String streamContents:
- [ :aStream | self print24: true on: aStream ]
- !
Item was removed:
- ----- Method: Time>>print24:on: (in category 'printing') -----
- print24: hr24 on: aStream
- "Format is 'hh:mm:ss' or 'h:mm:ss am' "
-
- self print24: hr24 showSeconds: true on: aStream!
Item was removed:
- ----- Method: Time>>print24:showSeconds:on: (in category 'printing') -----
- print24: hr24 showSeconds: showSeconds on: aStream
- "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'"
-
- ^self print24: hr24 showSeconds: showSeconds showSubseconds: false on: aStream !
Item was removed:
- ----- Method: Time>>print24:showSeconds:showSubseconds:on: (in category 'printing') -----
- print24: hr24 showSeconds: showSeconds showSubseconds: showSubseconds on: aStream
- "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'.
- If showSubseconds is true and our nanoSeconds are not zero, a decimal point and subseconds are added"
-
- | h m s |
- h := self hour. m := self minute. s := self second.
- hr24
- ifTrue:
- [ h < 10 ifTrue: [ aStream nextPutAll: '0' ].
- h printOn: aStream ]
- ifFalse:
- [ h > 12
- ifTrue: [h - 12 printOn: aStream]
- ifFalse:
- [h < 1
- ifTrue: [ 12 printOn: aStream ]
- ifFalse: [ h printOn: aStream ]]].
-
- aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']).
- m printOn: aStream.
-
- showSeconds ifTrue:
- [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']).
- (showSubseconds not or: [self nanoSecond = 0])
- ifTrue: [s asInteger printOn: aStream]
- ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger
- printOn: aStream asFixedPoint: NanosInSecond]].
-
- hr24 ifFalse:
- [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ].
- !
Item was removed:
- ----- Method: Time>>printMinutes (in category 'printing') -----
- printMinutes
- "Return as string 'hh:mm pm' "
-
- ^String streamContents:
- [ :aStream | self print24: false showSeconds: false on: aStream ]!
Item was removed:
- ----- Method: Time>>printOn: (in category 'printing') -----
- printOn: aStream
-
- self print24: false
- showSeconds: (self seconds ~= 0
- or: [self nanoSecond ~= 0])
- showSubseconds: self nanoSecond ~= 0
- on: aStream!
Item was removed:
- ----- Method: Time>>second (in category 'ansi protocol') -----
- second
-
-
- ^ self asDuration seconds
- !
Item was removed:
- ----- Method: Time>>seconds (in category 'smalltalk-80') -----
- seconds
-
- ^ self second!
Item was removed:
- ----- Method: Time>>seconds: (in category 'private') -----
- seconds: secondCount
- "Private - only used by Time class."
-
- seconds := secondCount.
- nanos := 0
- !
Item was removed:
- ----- Method: Time>>seconds:nanoSeconds: (in category 'private') -----
- seconds: secondCount nanoSeconds: nanoCount
- "Private - only used by Time class."
-
- seconds := secondCount.
- nanos := nanoCount
- !
Item was removed:
- ----- Method: Time>>storeOn: (in category 'printing') -----
- storeOn: aStream
-
- aStream print: self printString; nextPutAll: ' asTime'
- !
Item was removed:
- ----- Method: Time>>subtractTime: (in category 'smalltalk-80') -----
- subtractTime: timeAmount
- "Answer a Time that is timeInterval before the receiver. timeInterval is
- an instance of Date or Time."
-
- ^ self class seconds: self asSeconds - timeAmount asSeconds!
Item was removed:
- ----- Method: Time>>ticks (in category 'private') -----
- ticks
- "Answer an Array: { seconds. nanoSeconds }"
-
- ^ Array with: 0 with: seconds with: nanos.!
Item was removed:
- ----- Method: Time>>ticks: (in category 'private') -----
- ticks: anArray
- "ticks is an Array: { days. seconds. nanoSeconds }"
-
- seconds := anArray at: 2.
- nanos := anArray at: 3
- !
Item was removed:
- ----- Method: Time>>to: (in category 'squeak protocol') -----
- to: anEnd
- "Answer a Timespan. anEnd must respond to #asDateAndTime"
-
- ^ self asDateAndTime to: anEnd!
Item was removed:
- DateAndTime subclass: #TimeStamp
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !TimeStamp commentStamp: '<historical>' prior: 0!
- This represents a duration of 0 length that marks a particular point in time.!
Item was removed:
- ----- Method: TimeStamp class>>current (in category 'squeak protocol') -----
- current
-
- ^self now!
Item was removed:
- ----- Method: TimeStamp>>asDateAndTime (in category 'squeak protocol') -----
- asDateAndTime
- "Answer the receiver as an instance of DateAndTime."
-
- ^ DateAndTime utcMicroseconds: utcMicroseconds offset: localOffsetSeconds!
Item was removed:
- ----- Method: TimeStamp>>asTimeStamp (in category 'squeak protocol') -----
- asTimeStamp
- "Answer the receiver as an instance of TimeStamp."
-
- ^ self!
Item was removed:
- ----- Method: TimeStamp>>date (in category 'squeak protocol') -----
- date
- "Answer the date of the receiver."
-
- ^ self asDate!
Item was removed:
- ----- Method: TimeStamp>>dateAndTime (in category 'squeak protocol') -----
- dateAndTime
- "Answer a two element Array containing the receiver's date and time."
-
- ^ Array with: self date with: self time!
Item was removed:
- ----- Method: TimeStamp>>minusDays: (in category 'squeak protocol') -----
- minusDays: anInteger
- "Answer a TimeStamp which is anInteger days before the receiver."
-
- ^ self - (anInteger days)!
Item was removed:
- ----- Method: TimeStamp>>minusSeconds: (in category 'squeak protocol') -----
- minusSeconds: anInteger
- "Answer a TimeStamp which is anInteger number of seconds before the receiver."
-
- ^ self - (anInteger seconds)!
Item was removed:
- ----- Method: TimeStamp>>plusDays: (in category 'squeak protocol') -----
- plusDays: anInteger
- "Answer a TimeStamp which is anInteger days after the receiver."
-
- ^ self + (anInteger days)!
Item was removed:
- ----- Method: TimeStamp>>plusSeconds: (in category 'squeak protocol') -----
- plusSeconds: anInteger
- "Answer a TimeStamp which is anInteger number of seconds after the receiver."
-
- ^ self + (anInteger seconds)!
Item was removed:
- ----- Method: TimeStamp>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
- "Print receiver's date and time on aStream."
-
- aStream
- nextPutAll: self date printString;
- space;
- nextPutAll: self time printString.!
Item was removed:
- ----- Method: TimeStamp>>storeOn: (in category 'squeak protocol') -----
- storeOn: aStream
-
- aStream
- print: self printString;
- nextPutAll: ' asTimeStamp'!
Item was removed:
- ----- Method: TimeStamp>>time (in category 'squeak protocol') -----
- time
- "Answer the time of the receiver."
-
- ^ self asTime!
Item was removed:
- Object subclass: #TimeZone
- instanceVariableNames: 'offset abbreviation name'
- classVariableNames: ''
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0!
- TimeZone is a simple class to colect the information identifying a UTC time zone.
-
- offset - Duration - the time zone's offset from UTC
- abbreviation - String - the abbreviated name for the time zone.
- name - String - the name of the time zone.
-
- TimeZone class >> #timeZones returns an array of the known time zones
- TimeZone class >> #default returns the default time zone (Grenwich Mean Time)
- !
Item was removed:
- ----- Method: TimeZone class>>default (in category 'accessing') -----
- default
- "Answer the default time zone - GMT"
-
- ^ self timeZones detect: [ :tz | tz offset = Duration zero ]!
Item was removed:
- ----- Method: TimeZone class>>offset:name:abbreviation: (in category 'instance creation') -----
- offset: aDuration name: aName abbreviation: anAbbreviation
-
- ^ self new
- offset: aDuration;
- name: aName;
- abbreviation: anAbbreviation;
- yourself
- !
Item was removed:
- ----- Method: TimeZone class>>timeZones (in category 'accessing') -----
- timeZones
- ^{
- self offset: 0 hours name: 'Universal Time' abbreviation: 'UTC'.
- self offset: 0 hours name: 'Greenwich Mean Time' abbreviation: 'GMT'.
- self offset: 1 hours name: 'Central European Time' abbreviation: 'CET'.
- self offset: 2 hours name: 'South African Standard Time' abbreviation: 'SAST'.
- self offset: -8 hours name: 'Pacific Standard Time' abbreviation: 'PST'.
- self offset: -7 hours name: 'Mountain Standard Time' abbreviation: 'MST'.
- self offset: -6 hours name: 'Central Standard Time' abbreviation: 'CST'.
- self offset: -5 hours name: 'Eastern Standard Time' abbreviation: 'EST'.
- }!
Item was removed:
- ----- Method: TimeZone class>>timeZonesDST (in category 'accessing') -----
- timeZonesDST
- ^{
- self offset: 1 hours name: 'British Summer Time' abbreviation: 'BST'.
- self offset: 2 hours name: 'Central European Summer Time' abbreviation: 'CEST'.
- self offset: -7 hours name: 'Pacific Daylight Time' abbreviation: 'PDT'.
- self offset: -6 hours name: 'Mountain Daylight Time' abbreviation: 'MDT'.
- self offset: -5 hours name: 'Central Daylight Time' abbreviation: 'CDT'.
- self offset: -4 hours name: 'Eastern Daylight Time' abbreviation: 'EDT'.
- }!
Item was removed:
- ----- Method: TimeZone>>abbreviation (in category 'accessing') -----
- abbreviation
-
- ^ abbreviation!
Item was removed:
- ----- Method: TimeZone>>abbreviation: (in category 'accessing') -----
- abbreviation: aString
-
- abbreviation := aString!
Item was removed:
- ----- Method: TimeZone>>name (in category 'accessing') -----
- name
-
- ^ name!
Item was removed:
- ----- Method: TimeZone>>name: (in category 'accessing') -----
- name: aString
-
- name := aString!
Item was removed:
- ----- Method: TimeZone>>offset (in category 'accessing') -----
- offset
-
- ^ offset
- !
Item was removed:
- ----- Method: TimeZone>>offset: (in category 'accessing') -----
- offset: aDuration
-
- offset := aDuration
- !
Item was removed:
- ----- Method: TimeZone>>printOn: (in category 'private') -----
- printOn: aStream
-
- super printOn: aStream.
- aStream
- nextPut: $(;
- nextPutAll: self abbreviation;
- nextPut: $)!
Item was removed:
- Magnitude subclass: #Timespan
- instanceVariableNames: 'start duration'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !Timespan commentStamp: 'bf 2/18/2016 14:43' prior: 0!
- I represent a duration starting on a specific DateAndTime.
-
- If my start has an offset identical to my #defaultOffset then comparisons ignore timezone offset.!
Item was removed:
- ----- Method: Timespan class>>current (in category 'squeak protocol') -----
- current
- ^ self starting: (DateAndTime now offset: self defaultOffset)!
Item was removed:
- ----- Method: Timespan class>>defaultOffset (in category 'configuring') -----
- defaultOffset
- "Timespans created in the context of an offset will start in that offset. When no context is available, the defaultOffset for Timespans must be zero. For example, two ways to make a Date for today:
- Date today. 'start is midnight at offset zero. Will compare successfully to other Date today results.'
- DateAndTime now asDate. 'In this case, the start is midnight of the local time-zone. It can only compare equally to Dates of its time-zone.'"
- ^ Duration zero!
Item was removed:
- ----- Method: Timespan class>>new (in category 'squeak protocol') -----
- new
- "Answer a Timespan starting on the Squeak epoch: 1 January 1901"
- ^ self starting: (DateAndTime new offset: self defaultOffset)!
Item was removed:
- ----- Method: Timespan class>>starting: (in category 'squeak protocol') -----
- starting: aDateAndTime
-
-
- ^ self starting: aDateAndTime duration: Duration zero!
Item was removed:
- ----- Method: Timespan class>>starting:duration: (in category 'squeak protocol') -----
- starting: aDateAndTime duration: aDuration
-
- ^ self basicNew
- start: aDateAndTime asDateAndTime;
- duration: aDuration;
- yourself!
Item was removed:
- ----- Method: Timespan class>>starting:ending: (in category 'squeak protocol') -----
- starting: startDateAndTime ending: endDateAndTime
-
- ^ self
- starting: startDateAndTime
- duration: (endDateAndTime asDateAndTime - startDateAndTime)
- !
Item was removed:
- ----- Method: Timespan>>+ (in category 'ansi protocol') -----
- + operand
- "operand conforms to protocol Duration"
-
-
- ^ self class starting: (self start + operand) duration: self duration!
Item was removed:
- ----- Method: Timespan>>- (in category 'ansi protocol') -----
- - operand
- "operand conforms to protocol DateAndTime or protocol Duration"
-
- ^ (operand respondsTo: #asDateAndTime)
-
- ifTrue: [ self start - operand ]
-
- ifFalse: [ self + (operand negated) ]
- !
Item was removed:
- ----- Method: Timespan>>< (in category 'ansi protocol') -----
- < comparand
-
- ^ self start < comparand!
Item was removed:
- ----- Method: Timespan>>= (in category 'ansi protocol') -----
- = comparand
- ^ self class = comparand class
- and: [ self start = comparand start
- and: [ self duration = comparand duration ] ]
- .!
Item was removed:
- ----- Method: Timespan>>asDate (in category 'squeak protocol') -----
- asDate
-
-
- ^ start asDate!
Item was removed:
- ----- Method: Timespan>>asDateAndTime (in category 'squeak protocol') -----
- asDateAndTime
-
- ^ start!
Item was removed:
- ----- Method: Timespan>>asDuration (in category 'squeak protocol') -----
- asDuration
-
- ^ self duration!
Item was removed:
- ----- Method: Timespan>>asMonth (in category 'squeak protocol') -----
- asMonth
-
-
- ^ start asMonth!
Item was removed:
- ----- Method: Timespan>>asTime (in category 'squeak protocol') -----
- asTime
-
- ^ start asTime!
Item was removed:
- ----- Method: Timespan>>asTimeStamp (in category 'squeak protocol') -----
- asTimeStamp
-
- ^ start asTimeStamp!
Item was removed:
- ----- Method: Timespan>>asWeek (in category 'squeak protocol') -----
- asWeek
-
- ^ start asWeek!
Item was removed:
- ----- Method: Timespan>>asYear (in category 'squeak protocol') -----
- asYear
-
-
- ^ start asYear
- !
Item was removed:
- ----- Method: Timespan>>beCanonical (in category 'squeak protocol') -----
- beCanonical
- "Chronology preserves Timespans that are extracted from DateAndTime's, making Dates, Months and Years in Squeak able to represent a true Timespan of those durations starting at a specific local DateAndTime. In case a canonical version is needed, make the receiver independent of any Timezone by removing it."
- start makeUTC!
Item was removed:
- ----- Method: Timespan>>dates (in category 'enumerating') -----
- dates
-
-
- | dates |
-
- dates := OrderedCollection new.
- self datesDo: [ :m | dates add: m ].
- ^ dates asArray!
Item was removed:
- ----- Method: Timespan>>datesDo: (in category 'enumerating') -----
- datesDo: aBlock
-
-
- self do: aBlock with: start asDate
- !
Item was removed:
- ----- Method: Timespan>>day (in category 'smalltalk-80') -----
- day
- "Answer the day of the year represented by the receiver."
- ^ self dayOfYear!
Item was removed:
- ----- Method: Timespan>>dayOfLocalWeek (in category 'ansi protocol') -----
- dayOfLocalWeek
- "Answer the day of the week represented by the receiver."
-
- ^ start dayOfLocalWeek!
Item was removed:
- ----- Method: Timespan>>dayOfMonth (in category 'ansi protocol') -----
- dayOfMonth
- "Answer the day of the month represented by the receiver."
-
- ^ start dayOfMonth!
Item was removed:
- ----- Method: Timespan>>dayOfWeek (in category 'ansi protocol') -----
- dayOfWeek
- "Answer the day of the week represented by the receiver."
-
- ^ start dayOfWeek!
Item was removed:
- ----- Method: Timespan>>dayOfWeekName (in category 'ansi protocol') -----
- dayOfWeekName
- "Answer the day of the week represented by the receiver."
-
- ^ start dayOfWeekName!
Item was removed:
- ----- Method: Timespan>>dayOfYear (in category 'ansi protocol') -----
- dayOfYear
- "Answer the day of the year represented by the receiver."
-
- ^ start dayOfYear!
Item was removed:
- ----- Method: Timespan>>daysInMonth (in category 'smalltalk-80') -----
- daysInMonth
-
-
- ^ start daysInMonth!
Item was removed:
- ----- Method: Timespan>>daysInYear (in category 'smalltalk-80') -----
- daysInYear
- "Answer the number of days in the month represented by the receiver."
-
- ^ start daysInYear!
Item was removed:
- ----- Method: Timespan>>daysLeftInYear (in category 'smalltalk-80') -----
- daysLeftInYear
- ^ start daysLeftInYear!
Item was removed:
- ----- Method: Timespan>>do:with: (in category 'private') -----
- do: aBlock with: aFirstElement
-
- self do: aBlock with: aFirstElement when: [ :t | true ]
- !
Item was removed:
- ----- Method: Timespan>>do:with:when: (in category 'private') -----
- do: aBlock with: aFirstElement when: aConditionBlock
-
- | element end |
- element := aFirstElement.
- end := self end.
- [ element start <= end ] whileTrue:
-
- [(aConditionBlock value: element)
- ifTrue: [ aBlock value: element ].
- element := element next. ]
- !
Item was removed:
- ----- Method: Timespan>>duration (in category 'squeak protocol') -----
- duration
- "Answer the Duration of this timespan"
-
- ^ duration!
Item was removed:
- ----- Method: Timespan>>duration: (in category 'private') -----
- duration: aDuration
- "Set the Duration of this timespan"
-
- duration := aDuration!
Item was removed:
- ----- Method: Timespan>>end (in category 'squeak protocol') -----
- end
-
-
- ^ self duration asNanoSeconds = 0
- ifTrue: [ self start ]
- ifFalse: [ self next start - DateAndTime clockPrecision ]
- !
Item was removed:
- ----- Method: Timespan>>every:do: (in category 'enumerating') -----
- every: aDuration do: aBlock
-
- | element end |
- element := self start.
- end := self end.
- [ element <= end ] whileTrue:
-
- [ aBlock value: element.
- element := element + aDuration. ]!
Item was removed:
- ----- Method: Timespan>>firstDayOfMonth (in category 'smalltalk-80') -----
- firstDayOfMonth
-
- ^ start firstDayOfMonth!
Item was removed:
- ----- Method: Timespan>>hash (in category 'ansi protocol') -----
- hash
-
- ^ start hash + duration hash!
Item was removed:
- ----- Method: Timespan>>includes: (in category 'squeak protocol') -----
- includes: aDateAndTime
-
-
- ^ (aDateAndTime isKindOf: Timespan)
- ifTrue: [ (self includes: aDateAndTime start)
- and: [ self includes: aDateAndTime end ] ]
- ifFalse: [ aDateAndTime asDateAndTime between: start and: self end ]!
Item was removed:
- ----- Method: Timespan>>includesAllOf: (in category 'squeak protocol') -----
- includesAllOf: aCollection
- "Answer whether all the elements of aCollection are in the receiver."
-
- aCollection do: [:elem | (self includes: elem) ifFalse: [^ false]].
- ^ true
- !
Item was removed:
- ----- Method: Timespan>>includesAnyOf: (in category 'squeak protocol') -----
- includesAnyOf: aCollection
- "Answer whether any element of aCollection is included in the receiver"
-
- aCollection do: [ :elem | (self includes: elem) ifTrue: [^ true]].
- ^false
- !
Item was removed:
- ----- Method: Timespan>>intersection: (in category 'squeak protocol') -----
- intersection: aTimespan
-
- "Return the Timespan both have in common, or nil"
-
- | aBegin anEnd |
- aBegin := self start max: aTimespan start.
- anEnd := self end min: aTimespan end.
- anEnd < aBegin ifTrue: [^nil].
-
- ^ self class starting: aBegin ending: anEnd
- !
Item was removed:
- ----- Method: Timespan>>isLeapYear (in category 'ansi protocol') -----
- isLeapYear
-
- ^ start isLeapYear!
Item was removed:
- ----- Method: Timespan>>julianDayNumber (in category 'squeak protocol') -----
- julianDayNumber
-
-
- ^ start julianDayNumber!
Item was removed:
- ----- Method: Timespan>>makeUTC (in category 'squeak protocol') -----
- makeUTC
- "Change the receiver's timezone to UTC, which affords substantially better hashing performance."
- start makeUTC!
Item was removed:
- ----- Method: Timespan>>month (in category 'ansi protocol') -----
- month
-
- ^ start month!
Item was removed:
- ----- Method: Timespan>>monthAbbreviation (in category 'ansi protocol') -----
- monthAbbreviation
-
-
- ^ start monthAbbreviation!
Item was removed:
- ----- Method: Timespan>>monthIndex (in category 'smalltalk-80') -----
- monthIndex
-
- ^ self month!
Item was removed:
- ----- Method: Timespan>>monthName (in category 'ansi protocol') -----
- monthName
-
-
- ^ start monthName!
Item was removed:
- ----- Method: Timespan>>months (in category 'enumerating') -----
- months
-
- | months |
- months := OrderedCollection new: 12.
- self monthsDo: [ :m | months add: m ].
- ^ months asArray.
- !
Item was removed:
- ----- Method: Timespan>>monthsDo: (in category 'enumerating') -----
- monthsDo: aBlock
-
- self do: aBlock with: start asMonth!
Item was removed:
- ----- Method: Timespan>>next (in category 'smalltalk-80') -----
- next
-
- ^ self class starting: (start + duration) duration: duration!
Item was removed:
- ----- Method: Timespan>>previous (in category 'smalltalk-80') -----
- previous
-
-
- ^ self class starting: (start - duration) duration: duration!
Item was removed:
- ----- Method: Timespan>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
-
-
- super printOn: aStream.
- aStream
- nextPut: $(;
- print: start;
- nextPut: $D;
- print: duration;
- nextPut: $)
- !
Item was removed:
- ----- Method: Timespan>>start (in category 'squeak protocol') -----
- start
- "Answer the start DateAndTime of this timespan"
-
- ^ start!
Item was removed:
- ----- Method: Timespan>>start: (in category 'squeak protocol') -----
- start: aDateAndTime
- "Store the start DateAndTime of this timespan"
-
- start := aDateAndTime asDateAndTime!
Item was removed:
- ----- Method: Timespan>>to: (in category 'squeak protocol') -----
- to: anEnd
- "Answer an Timespan. anEnd must be aDateAndTime or a Timespan"
-
-
- ^ Timespan starting: (self start) ending: (anEnd asDateAndTime)
- !
Item was removed:
- ----- Method: Timespan>>union: (in category 'squeak protocol') -----
- union: aTimespan
- "Return the Timespan spanned by both"
-
- | aBegin anEnd |
-
- aBegin := self start min: aTimespan start.
- anEnd := self end max: aTimespan end.
- ^ Timespan starting: aBegin ending: (anEnd + DateAndTime clockPrecision)
- !
Item was removed:
- ----- Method: Timespan>>weeks (in category 'enumerating') -----
- weeks
-
-
- | weeks |
- weeks := OrderedCollection new.
- self weeksDo: [ :m | weeks add: m ].
- ^ weeks asArray!
Item was removed:
- ----- Method: Timespan>>weeksDo: (in category 'enumerating') -----
- weeksDo: aBlock
-
- self do: aBlock with: self asWeek.!
Item was removed:
- ----- Method: Timespan>>workDatesDo: (in category 'enumerating') -----
- workDatesDo: aBlock
- "Exclude Saturday and Sunday"
-
- self do: aBlock with: start asDate when: [ :d | d dayOfWeek < 6 ]
- !
Item was removed:
- ----- Method: Timespan>>year (in category 'ansi protocol') -----
- year
-
-
- ^ start year!
Item was removed:
- ----- Method: Timespan>>years (in category 'enumerating') -----
- years
-
-
- | years |
- years := OrderedCollection new.
- self yearsDo: [ :m | years add: m ].
- ^ years asArray!
Item was removed:
- ----- Method: Timespan>>yearsDo: (in category 'enumerating') -----
- yearsDo: aBlock
-
- self do: aBlock with: start asYear.!
Item was removed:
- Timespan subclass: #Week
- instanceVariableNames: ''
- classVariableNames: 'StartDay'
- poolDictionaries: 'ChronologyConstants'
- category: 'Chronology-Core'!
-
- !Week commentStamp: 'cbr 7/28/2010 18:11' prior: 0!
- I represent a week.
-
- To find out what days of the week on which Squeak is fun, select the following expression, and print it:
-
- Week dayNames!
Item was removed:
- ----- Method: Week class>>dayNames (in category 'squeak protocol') -----
- dayNames
-
- ^ DayNames!
Item was removed:
- ----- Method: Week class>>indexOfDay: (in category 'squeak protocol') -----
- indexOfDay: aSymbol
-
- ^ DayNames indexOf: aSymbol!
Item was removed:
- ----- Method: Week class>>nameOfDay: (in category 'smalltalk-80') -----
- nameOfDay: anIndex
-
- ^ DayNames at: anIndex!
Item was removed:
- ----- Method: Week class>>startDay (in category 'squeak protocol') -----
- startDay
-
- ^ StartDay ifNil: [ StartDay
- := DayNames first ]
- !
Item was removed:
- ----- Method: Week class>>startDay: (in category 'squeak protocol') -----
- startDay: aSymbol
-
- (DayNames includes: aSymbol)
- ifTrue: [ StartDay := aSymbol ]
- ifFalse: [ self error: aSymbol, ' is not a recognised day name' ]!
Item was removed:
- ----- Method: Week class>>starting:duration: (in category 'squeak protocol') -----
- starting: aDateAndTime duration: aDuration
- "Override - the duration is always one week.
- Week will start from the Week class>>startDay"
-
- | midnight delta adjusted |
- midnight := aDateAndTime asDateAndTime midnight.
- delta := ((midnight dayOfWeek + 7 - (DayNames indexOf: self startDay)) rem: 7) abs.
- adjusted := midnight - (Duration days: delta seconds: 0).
-
- ^ super starting: adjusted duration: (Duration weeks: 1)!
Item was removed:
- ----- Method: Week class>>weekdayStartIndex (in category 'squeak protocol') -----
- weekdayStartIndex
- ^self indexOfDay: self startDay!
Item was removed:
- ----- Method: Week>>asWeek (in category 'squeak protocol') -----
- asWeek
-
- ^ self!
Item was removed:
- ----- Method: Week>>index (in category 'squeak protocol') -----
- index
-
- ^ self asMonth dayOfWeek + self dayOfMonth - 2 // 7 + 1
- !
Item was removed:
- ----- Method: Week>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
-
- aStream nextPutAll: 'a Week starting: '.
- self start printOn: aStream
- !
Item was removed:
- Timespan subclass: #Year
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Core'!
-
- !Year commentStamp: 'cbr 7/28/2010 18:10' prior: 0!
- I represent a year.
-
- Try me!! Select the following expression and print it:
-
- Year current daysInYear "Try me again next leap year!!"!
Item was removed:
- ----- Method: Year class>>current (in category 'squeak protocol') -----
- current
-
- ^ self year: (DateAndTime now year)
- !
Item was removed:
- ----- Method: Year class>>daysInYear: (in category 'smalltalk-80') -----
- daysInYear: yearInteger
-
- ^ 365 + ((self isLeapYear: yearInteger) ifTrue: [1] ifFalse: [0]).
- !
Item was removed:
- ----- Method: Year class>>isLeapYear: (in category 'squeak protocol') -----
- isLeapYear: aYearInteger
-
-
- | adjustedYear |
- adjustedYear := aYearInteger > 0
- ifTrue: [aYearInteger]
- ifFalse: [(aYearInteger + 1) negated].
-
- "There was no year 0"
- ^ ((adjustedYear \\ 4 ~= 0) or: [(adjustedYear \\ 100 = 0) and: [adjustedYear \\ 400 ~= 0]]) not!
Item was removed:
- ----- Method: Year class>>leapYear: (in category 'smalltalk-80') -----
- leapYear: yearInteger
-
- ^ (self isLeapYear: yearInteger)
- ifTrue: [1]
- ifFalse: [0]!
Item was removed:
- ----- Method: Year class>>starting:duration: (in category 'squeak protocol') -----
- starting: aDateAndTime duration: aDuration
- "Override - start from midnight"
- | midnight |
- midnight := aDateAndTime asDateAndTime midnight.
-
- ^ super
- starting: midnight
- duration: (Duration days: (self daysInYear: midnight year))!
Item was removed:
- ----- Method: Year class>>year: (in category 'squeak protocol') -----
- year: aYear
- ^ self starting:
- (DateAndTime
- year: aYear
- month: 1
- day: 1
- hour: 0
- minute: 0
- second: 0
- offset: self defaultOffset)!
Item was removed:
- ----- Method: Year>>asYear (in category 'squeak protocol') -----
- asYear
-
-
- ^ self!
Item was removed:
- ----- Method: Year>>daysInMonth (in category 'squeak protocol') -----
- daysInMonth
-
-
- self shouldNotImplement!
Item was removed:
- ----- Method: Year>>daysInYear (in category 'squeak protocol') -----
- daysInYear
-
- ^ self duration days.!
Item was removed:
- ----- Method: Year>>previous (in category 'smalltalk-80') -----
- previous
- "This implementation handles leap years correctly"
-
- ^ self class year: (self year - 1)!
Item was removed:
- ----- Method: Year>>printOn: (in category 'squeak protocol') -----
- printOn: aStream
-
- aStream nextPutAll: 'a Year ('.
- self start year printOn: aStream.
-
- aStream nextPutAll: ')'
- !
Item was removed:
- (PackageInfo named: 'Chronology-Core') postscript: 'Smalltalk removeFromStartUpList: DateAndTime'!
1
0
David T. Lewis uploaded a new version of Chronology-Core to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Core-dtl.80.mcz
==================== Summary ====================
Name: Chronology-Core-dtl.80
Author: dtl
Time: 19 May 2022, 12:03:05.720962 pm
UUID: 1b1b97c4-bc35-408d-b548-f0d0376a0808
Ancestors: Chronology-Core-dtl.79
Change DateAndTime>>offset: to be compliant with the ANSI draft spec. The offset: method should answer an instance equivalent to the receiver, where equivalent means having the same UTC time.
Let #offset: adopt the prior behavior of #utcOffset: and let #utcOffset: be a compatibility synonym for #offset:. Add #asLocalAt: to the squeak protocol and let it implement the prior behavior of #offset: Change existing code and tests to use #asLocalAt: but otherwise retain existing behavior.
Issue reported at https://github.com/squeak-smalltalk/squeak-object-memory/issues/23
=============== Diff against Chronology-Core-dtl.79 ===============
Item was added:
+ ----- Method: DateAndTime>>asLocalAt: (in category 'squeak protocol') -----
+ asLocalAt: anOffset
+ "Answer a DateAndTime for a different time zone offset that has the same
+ year, month, day, hour, minute, and second as this instance, and with
+ printString that matches except for time zone offset."
+
+ | newOffset newMicros |
+ newOffset := anOffset asDuration asSeconds.
+ newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds.
+ ^ self class utcMicroseconds: newMicros offset: newOffset
+ !
Item was changed:
----- Method: DateAndTime>>offset: (in category 'ansi protocol') -----
offset: anOffset
+ "Answer a <DateAndTime> equivalent to the receiver but with its local time
+ being offset from UTC by offset.
- "Answer a DateAndTime for a different time zone offset that has the same
- year, month, day, hour, minute, and second as this instance, and with
- printString that matches except for time zone offset."
+ See asLocalAt: for the earlier behavior of this method."
+
+ ^ self class
+ utcMicroseconds: utcMicroseconds
+ offset: anOffset asDuration asSeconds!
- | newOffset newMicros |
- newOffset := anOffset asDuration asSeconds.
- newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds.
- ^ self class utcMicroseconds: newMicros offset: newOffset
- !
Item was changed:
----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') -----
utcOffset: anOffset
+ "Compatiblity. Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset."
+
+ ^ self offset: anOffset!
- "Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset"
- ^ self class
- utcMicroseconds: utcMicroseconds
- offset: anOffset asDuration asSeconds!
Item was changed:
----- Method: Timespan class>>current (in category 'squeak protocol') -----
current
+ ^ self starting: (DateAndTime now asLocalAt: self defaultOffset)!
- ^ self starting: (DateAndTime now offset: self defaultOffset)!
1
0
David T. Lewis uploaded a new version of Chronology-Tests to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Tests-dtl.33.mcz
==================== Summary ====================
Name: Chronology-Tests-dtl.33
Author: dtl
Time: 18 June 2023, 12:54:08.985243 pm
UUID: cda186b6-d5ac-4a95-bc15-373c7a4a645b
Ancestors: Chronology-Tests-dtl.32
Establish protocol for aTimeZone offsetAt: aDateAndTime. Let TimeZone be abstract and let FixedTimeZone implement the previous behavior with offset represented as a constant (no DST transition support). Other packages (e.g. TZ-Olson) may implement concrete TimeZone with DST support.
Add FixedTimeZoneTest updated from proposad by Christoph Thiede on squeak-dev (Review Request: allTimeZones.4.cs, Thu, 18 May 2023 22:11:32 +0200)
=============== Diff against Chronology-Tests-dtl.32 ===============
Item was changed:
----- Method: DateAndTimeEpochTest>>setUp (in category 'running') -----
setUp
localTimeZoneToRestore := DateAndTime localTimeZone.
localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
aDateAndTime := DateAndTime localTimeZone: TimeZone default; epoch.
+ aTimeZone := FixedTimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'.
- aTimeZone := TimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'.
aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 !
Item was changed:
----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'tests') -----
testPrintOn
| ref ws |
ref := '1901-01-01T00:00:00+00:00'.
ws := '' writeStream.
aDateAndTime printOn: ws.
self assert: ws contents = ref.
+ ref := 'a ConstantTimeZone(ETZ)'.
- ref := 'a TimeZone(ETZ)'.
ws := '' writeStream.
aTimeZone printOn: ws.
self assert: ws contents = ref!
Item was changed:
----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') -----
testPrintOn
| ref ws |
ref := '2004-02-29T13:33:00+02:00'.
ws := '' writeStream.
aDateAndTime printOn: ws.
self assert: ws contents = ref.
+ ref := 'a ConstantTimeZone(UTC)'.
- ref := 'a TimeZone(UTC)'.
ws := '' writeStream.
aTimeZone printOn: ws.
self assert: ws contents = ref !
Item was changed:
----- Method: DateTest>>testMakeUTC (in category 'testing') -----
testMakeUTC
"Equal dates should compare equal regardless of which TimeZone they are created in."
| priorTz priorPreference march31stLocal march31stOcean |
priorTz := DateAndTime localTimeZone.
priorPreference := DateAndTime automaticTimezone.
[DateAndTime
+ localTimeZone: (FixedTimeZone
- localTimeZone: (TimeZone
offset: 9 hours
name: 'Early Test Countries'
abbreviation: 'Test Ocean Early').
march31stLocal := Date year: 2016 month: 3 day: 31.
march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset).
DateAndTime
+ localTimeZone: (FixedTimeZone
- localTimeZone: (TimeZone
offset: -9 hours
name: 'Late Test Countries'
abbreviation: 'Test Ocean Late').
march31stOcean := Date year: 2016 month: 3 day: 31.
march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).]
ensure: [DateAndTime localTimeZone: priorTz.
DateAndTime automaticTimezone: priorPreference].
self
deny: march31stLocal = march31stOcean;
assert: march31stOcean > march31stLocal.
self
assert: march31stLocal makeUTC = march31stOcean makeUTC;
deny: march31stOcean makeUTC > march31stLocal makeUTC;
deny: march31stOcean makeUTC < march31stLocal makeUTC.!
Item was added:
+ ClassTestCase subclass: #FixedTimeZoneTest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Chronology-Tests'!
Item was added:
+ ----- Method: FixedTimeZoneTest>>testAllForOffset (in category 'tests') -----
+ testAllForOffset
+
+ self assert: ((self classToBeTested allForOffset: 0 hours) collect: #abbreviation) = #('UTC' 'GMT').
+ self assert: (self classToBeTested allForOffset: -14 hours) isEmpty.!
Item was added:
+ ----- Method: FixedTimeZoneTest>>testAllTimeZones (in category 'tests') -----
+ testAllTimeZones
+
+ self assert: self classToBeTested allTimeZones notEmpty.
+ self assert: (self classToBeTested allTimeZones anySatisfy: [:ea | ea offset = 2 hours]).!
Item was changed:
----- Method: ScheduleTest>>setUp (in category 'running') -----
setUp
"Schedule is a type of Timespan representing repeated occurences of the same event.
The beginning of the schedule is the first occurrence of the event.
A schedule maintains an array of Durations.
Each durations specify the offset to the next scheduled each.
The duration of each occurence of the event is not specified.
Nor are any other attributes such as name"
restoredTimeZone := DateAndTime localTimeZone.
localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
+ DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
- DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
"Create aSchedule with an event scheduled for 8:30pm every Saturday
and Sunday for the year 2003. "
"Create the first event occurring on the first Saturday at 8:30 pm: 1/4/03"
firstEvent := DateAndTime year: 2003 month: 1 day: 4 hour: 20 minute: 30.
"Create a schedule for one year starting with the first event"
aSchedule := Schedule starting: firstEvent duration: 52 weeks.
"Schedule the recurring events by scheduling the time in between each one.
One day for Sat-Sun. 6 days for Sun-Sat"
aSchedule schedule: { Duration days: 1. Duration days: 6 }.
!
Item was changed:
----- Method: YearMonthWeekTest>>setUp (in category 'running') -----
setUp
restoredStartDay := Week startDay.
restoredTimeZone := DateAndTime localTimeZone.
localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
Week startDay: #Sunday.
+ DateAndTime localTimeZone: (FixedTimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
- DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
!
1
0
David T. Lewis uploaded a new version of Chronology-Tests to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Tests-ct.31.mcz
==================== Summary ====================
Name: Chronology-Tests-ct.31
Author: ct
Time: 10 June 2022, 7:14:53.837345 pm
UUID: 989ff157-f700-a04f-9051-8ba05c932351
Ancestors: Chronology-Tests-ct.30
Adds test for #busyWait with duration shorter than 1 milliSecond. Regression test for Chronology-Core-ct.80.
=============== Diff against Chronology-Tests-ct.30 ===============
Item was removed:
- SystemOrganization addCategory: #'Chronology-Tests'!
Item was removed:
- TestCase subclass: #DateAndTimeEpochTest
- instanceVariableNames: 'aDateAndTime aDuration aTimeZone localTimeZoneToRestore localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !DateAndTimeEpochTest commentStamp: 'tlk 1/6/2004 18:27' prior: 0!
- I represent one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. The other Chronology sunit test cases are:
- DateTestCase
- DateAndTimeLeapTestCase,
- DurationTestCase,
- ScheduleTestCase
- TimeStampTestCase
- TimespanDoTestCase,
- TimespanDoSpanAYearTestCase,
- TimespanTestCase,
- YearMonthWeekTestCase.
- These tests attempt to exercise all public and private methods. Except, they do not explicitly depreciated methods. tlk
- My fixtures are:
- aDateAndTime = January 01, 1901 midnight (the start of the Squeak epoch) with localTimeZone = Grenwhich Meridian (local offset = 0 hours)
- aDuration = 1 day, 2 hours, 3, minutes, 4 seconds and 5 nano seconds.
- aTimeZone = 'Epoch Test Time Zone', 'ETZ' , offset: 12 hours, 15 minutes. !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>setUp (in category 'running') -----
- setUp
- localTimeZoneToRestore := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- aDateAndTime := DateAndTime localTimeZone: TimeZone default; epoch.
- aTimeZone := TimeZone offset: (Duration minutes: 135) name: 'Epoch Test Time Zone' abbreviation: 'ETZ'.
- aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>tearDown (in category 'running') -----
- tearDown
- DateAndTime localTimeZone: localTimeZoneToRestore.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.
- "wish I could remove the time zones I added earlier, tut there is no method for that"
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsDate (in category 'tests') -----
- testAsDate
- self assert: aDateAndTime asDate = 'January 1, 1901' asDate.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsDateAndTime (in category 'tests') -----
- testAsDateAndTime
- self assert: aDateAndTime asDateAndTime = aDateAndTime
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsDuration (in category 'tests') -----
- testAsDuration
- self assert: aDateAndTime asDuration = 0 asDuration
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsLocal (in category 'tests') -----
- testAsLocal
- self assert: aDateAndTime asLocal = aDateAndTime.
- self assert: aDateAndTime asLocal = (aDateAndTime utcOffset: aDateAndTime class localOffset)
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsMonth (in category 'tests') -----
- testAsMonth
- self assert: aDateAndTime asMonth = (Month month: 'January' year: 1901).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsNanoSeconds (in category 'tests') -----
- testAsNanoSeconds
- self assert: aDateAndTime asNanoSeconds = 0 asDuration asNanoSeconds
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsSeconds (in category 'tests') -----
- testAsSeconds
- self assert: aDateAndTime asSeconds = 0 asDuration asSeconds
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsTime (in category 'tests') -----
- testAsTime
- self assert: aDateAndTime asTime = Time midnight.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsTimeStamp (in category 'tests') -----
- testAsTimeStamp
- self assert: aDateAndTime asTimeStamp = TimeStamp new.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsUTC (in category 'tests') -----
- testAsUTC
- self assert: aDateAndTime asUTC = aDateAndTime
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsWeek (in category 'tests') -----
- testAsWeek
- self assert: aDateAndTime asWeek = (Week starting: '12-31-1900' asDate).
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testAsYear (in category 'tests') -----
- testAsYear
- self assert: aDateAndTime asYear = (Year starting: '01-01-1901' asDate).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testCurrent (in category 'tests') -----
- testCurrent
- self deny: aDateAndTime = (DateAndTime current).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDateTime (in category 'tests') -----
- testDateTime
- self assert: aDateAndTime = (DateAndTime date: '01-01-1901' asDate time: '00:00:00' asTime)
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDay (in category 'tests') -----
- testDay
- self assert: aDateAndTime day = DateAndTime new day
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDayMonthYearDo (in category 'tests') -----
- testDayMonthYearDo
- |iterations|
- iterations := 0.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | iterations := iterations + 1]) = 1.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachYear]) = 1901.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachMonth]) = 1.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachDay]) = 1.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDayOfMonth (in category 'tests') -----
- testDayOfMonth
- self assert: aDateAndTime dayOfMonth = 1.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDayOfWeek (in category 'tests') -----
- testDayOfWeek
- self assert: aDateAndTime dayOfWeek = 3.
- self assert: aDateAndTime dayOfWeekAbbreviation = 'Tue'.
- self assert: aDateAndTime dayOfWeekName = 'Tuesday'.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDayOfYear (in category 'tests') -----
- testDayOfYear
- self assert: aDateAndTime dayOfYear = 1.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDaysInMonth (in category 'tests') -----
- testDaysInMonth
- self assert: aDateAndTime daysInMonth = 31.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDaysInYear (in category 'tests') -----
- testDaysInYear
- self assert: aDateAndTime daysInYear = 365.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDaysLeftInYear (in category 'tests') -----
- testDaysLeftInYear
- self assert: aDateAndTime daysLeftInYear = 364.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testDuration (in category 'tests') -----
- testDuration
- self assert: aDateAndTime duration = 0 asDuration.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testEpoch (in category 'tests - epoch') -----
- testEpoch
- self assert: aDateAndTime = '1901-01-01T00:00:00+00:00' asDateAndTime
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testEpochHappenedOnlyOnce (in category 'tests - epoch') -----
- testEpochHappenedOnlyOnce
- "The epoch is defined as January 01, 1901 midnight with localTimeZone = Greenwhich Meridian (local offset = 0 hours)"
-
- | epochInMichigan epochInKyoto |
- self assert: aDateAndTime = '1901-01-01T00:00:00+00:00' asDateAndTime.
- self assert: 0 equals: aDateAndTime asSeconds.
- epochInMichigan := '1900-12-31T19:00:00-05:00' asDateAndTime.
- self assert: 0 equals: epochInMichigan asSeconds.
- self assert: aDateAndTime equals: epochInMichigan.
- epochInKyoto := '1901-01-01T09:00:00+09:00' asDateAndTime.
- self assert: 0 equals: epochInKyoto asSeconds.
- self assert: aDateAndTime equals: epochInKyoto.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testFirstDayOfMonth (in category 'tests') -----
- testFirstDayOfMonth
- self assert: aDateAndTime firstDayOfMonth = 1
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testFromSeconds (in category 'tests') -----
- testFromSeconds
- self assert: aDateAndTime = (DateAndTime fromSeconds: 0).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testFromString (in category 'tests') -----
- testFromString
- self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00').
- self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00').
- self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00').
- self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00').
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testHash (in category 'tests') -----
- testHash
- self assert: aDateAndTime hash = DateAndTime new hash.
- self assert: aDateAndTime hash = -2177452800000000
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testHour (in category 'tests') -----
- testHour
- self assert: aDateAndTime hour = aDateAndTime hour24.
- self assert: aDateAndTime hour = 0.
- self assert: aDateAndTime hour = aDateAndTime hours
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testHour12 (in category 'tests') -----
- testHour12
- self assert: aDateAndTime hour12 = DateAndTime new hour12.
- self assert: aDateAndTime hour12 = 12
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testIsLeapYear (in category 'tests') -----
- testIsLeapYear
- self deny: aDateAndTime isLeapYear
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testJulianDayNumber (in category 'tests') -----
- testJulianDayNumber
- self assert: aDateAndTime = (DateAndTime julianDayNumber: 2415386).
- self assert: aDateAndTime julianDayNumber = 2415386.!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testLessThan (in category 'tests') -----
- testLessThan
- self assert: aDateAndTime < (aDateAndTime + '1:00:00:00').
- self assert: aDateAndTime + -1 < aDateAndTime.
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMeridianAbbreviation (in category 'tests') -----
- testMeridianAbbreviation
- self assert: aDateAndTime meridianAbbreviation = 'AM'.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMiddleOf (in category 'tests') -----
- testMiddleOf
- self assert: (aDateAndTime middleOf: '2:00:00:00' asDuration) =
- (Timespan starting: '12-31-1900' asDate duration: 2 days).
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMidnight (in category 'tests') -----
- testMidnight
- self assert: aDateAndTime midnight = aDateAndTime
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMinus (in category 'tests') -----
- testMinus
- self assert: aDateAndTime - aDateAndTime = '0:00:00:00' asDuration.
- self assert: aDateAndTime - '0:00:00:00' asDuration = aDateAndTime.
- self assert: aDateAndTime - aDuration = (DateAndTime year: 1900 month: 12 day: 30 hour: 21 minute: 56 second: 55 nanoSecond: 999999995 offset: 0 hours ).
- " I believe this Failure is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMinute (in category 'tests') -----
- testMinute
- self assert: aDateAndTime minute = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMinutes (in category 'tests') -----
- testMinutes
- self assert: aDateAndTime minutes = 0
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testMonth (in category 'tests') -----
- testMonth
- self assert: aDateAndTime month = 1.
- self assert: aDateAndTime monthAbbreviation = 'Jan'.
- self assert: aDateAndTime monthName = 'January'.
- self assert: aDateAndTime monthIndex = 1.!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testNanoSecond (in category 'tests') -----
- testNanoSecond
- self assert: aDateAndTime nanoSecond = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testNew (in category 'tests') -----
- testNew
- self assert: aDateAndTime = (DateAndTime new).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testNoon (in category 'tests') -----
- testNoon
- self assert: aDateAndTime noon = '1901-01-01T12:00:00+00:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testNow (in category 'tests') -----
- testNow
- self deny: aDateAndTime = (DateAndTime now).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testOffset (in category 'tests') -----
- testOffset
- self assert: aDateAndTime offset = '0:00:00:00' asDuration.
- self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testPlus (in category 'tests') -----
- testPlus
- self assert: aDateAndTime + '0:00:00:00' = aDateAndTime.
- self assert: aDateAndTime + 0 = aDateAndTime.
- self assert: aDateAndTime + aDuration = (DateAndTime year: 1901 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours )
- " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)"
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testPosixEpoch (in category 'tests - epoch') -----
- testPosixEpoch
- "The Smalltalk epoch happened, by agreed convention, 2177452800 seconds
- prior to the Posix epoch, which is defined as 1970-01-01T00:00:00+00:00.
-
- Note for reference the corresponding implementation in the Unix VM:
-
- /* Squeak epoch is Jan 1, 1901. Unix epoch is Jan 1, 1970: 17 leap years
- and 52 non-leap years later than Squeak. */
- return unixTime + ((52*365UL + 17*366UL) * 24*60*60UL);"
-
- | epochInMichigan epochInKyoto posixEpoch epochDelta |
- epochDelta := 2177452800.
- self assert: epochDelta equals: ((52*365 + (17*366)) * 24*60*60). "cross check against VM code"
- posixEpoch := '1970-01-01T00:00:00+00:00' asDateAndTime.
- self assert: epochDelta equals: posixEpoch asSeconds.
- epochInMichigan := '1969-12-31T19:00:00-05:00' asDateAndTime.
- self assert: epochDelta equals: epochInMichigan asSeconds.
- self assert: posixEpoch equals: epochInMichigan.
- epochInKyoto := '1970-01-01T09:00:00+09:00' asDateAndTime.
- self assert: epochDelta equals: epochInKyoto asSeconds.
- self assert: posixEpoch equals: epochInKyoto.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'tests') -----
- testPrintOn
- | ref ws |
- ref := '1901-01-01T00:00:00+00:00'.
- ws := '' writeStream.
- aDateAndTime printOn: ws.
- self assert: ws contents = ref.
- ref := 'a TimeZone(ETZ)'.
- ws := '' writeStream.
- aTimeZone printOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testSecond (in category 'tests') -----
- testSecond
- self assert: aDateAndTime second = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testSeconds (in category 'tests') -----
- testSeconds
- self assert: aDateAndTime seconds = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testTicks (in category 'tests') -----
- testTicks
- self assert: aDateAndTime ticks = (DateAndTime julianDayNumber: 2415386) ticks.
- self assert: aDateAndTime ticks = #(2415386 0 0)!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testTicksOffset (in category 'tests') -----
- testTicksOffset
- self assert: aDateAndTime = (aDateAndTime ticks: #(2415386 0 0) offset: DateAndTime localOffset).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testTo (in category 'tests') -----
- testTo
- self assert: (aDateAndTime to: aDateAndTime) = (DateAndTime new to: DateAndTime new)
- "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testToBy (in category 'tests') -----
- testToBy
- self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days) =
- (DateAndTime new to: DateAndTime new + 10 days by: 5 days )
- "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testToByDo (in category 'tests') -----
- testToByDo
- "self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days do: []) = "
- "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testToday (in category 'tests') -----
- testToday
- self deny: aDateAndTime = (DateAndTime today).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testTommorrow (in category 'tests') -----
- testTommorrow
- self assert: (DateAndTime today + 24 hours) = (DateAndTime tomorrow).
- self deny: aDateAndTime = (DateAndTime tomorrow).
- "MessageNotUnderstood: Date class>>starting:"!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testUtcOffset (in category 'tests') -----
- testUtcOffset
- self assert: (aDateAndTime utcOffset: '0:12:00:00') = '1901-01-01T12:00:00+12:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYear (in category 'tests') -----
- testYear
- self assert: aDateAndTime year = 1901.
-
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYearDay (in category 'tests') -----
- testYearDay
- self assert: aDateAndTime = (DateAndTime year: 1901 day: 1).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYearDayHourMinuteSecond (in category 'tests') -----
- testYearDayHourMinuteSecond
- self assert: aDateAndTime = (DateAndTime year: 1901 day: 1 hour: 0 minute: 0 second: 0).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYearMonthDay (in category 'tests') -----
- testYearMonthDay
- self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecond (in category 'tests') -----
- testYearMonthDayHourMinuteSecond
- self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecondNanosSecondOffset (in category 'tests') -----
- testYearMonthDayHourMinuteSecondNanosSecondOffset
- self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset:0 hours ).
- self assert: ((DateAndTime year: 1 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset: 0 hours ) +
- (Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5) ) =
- (DateAndTime year: 1 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours )
- " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)"" I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)"
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testYesterday (in category 'tests') -----
- testYesterday
- self deny: aDateAndTime = (DateAndTime yesterday).
- !
Item was removed:
- ----- Method: DateAndTimeEpochTest>>testtimeZone (in category 'tests') -----
- testtimeZone
- self assert: aDateAndTime timeZoneName = 'Universal Time'.
- self assert: aDateAndTime timeZoneAbbreviation = 'UTC'
-
- !
Item was removed:
- TestCase subclass: #DateAndTimeLeapTest
- instanceVariableNames: 'aDateAndTime aDuration aTimeZone localTimeZoneToRestore localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !DateAndTimeLeapTest commentStamp: 'tlk 1/6/2004 17:54' prior: 0!
- I represent one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. tlk.
- My fixtures are:
- aDateAndTime = February 29, 2004 1:33 PM with offset: 2 hours
- aDuration = 15 days, 14 hours, 13 minutes, 12 seconds and 11 nano seconds.
- aTimeZone = Grenwhich Meridian (local offset = 0 hours) !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>setUp (in category 'running') -----
- setUp
- localTimeZoneToRestore := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- DateAndTime localTimeZone: TimeZone default.
- aDateAndTime := (DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: 2 hours).
- aTimeZone := TimeZone default.
- aDuration := Duration days: 0 hours: 13 minutes: 33 seconds: 0 nanoSeconds: 0
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>tearDown (in category 'running') -----
- tearDown
- DateAndTime localTimeZone: localTimeZoneToRestore.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.
- "wish I could remove the time zones I added earlier, tut there is no method for that"
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsDate (in category 'testing') -----
- testAsDate
- self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asDate = 'February 29, 2004' asDate!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsDuration (in category 'testing') -----
- testAsDuration
- self assert: aDateAndTime asDuration = aDuration
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsLocal (in category 'testing') -----
- testAsLocal
- self assert: aDateAndTime asLocal = aDateAndTime.
- self assert: aDateAndTime asLocal = (aDateAndTime utcOffset: aDateAndTime class localOffset)
-
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsMonth (in category 'testing') -----
- testAsMonth
- self assert:
- (aDateAndTime offset: Month defaultOffset) asMonth =
- (Month
- month: 'February'
- year: 2004)!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsNanoSeconds (in category 'testing') -----
- testAsNanoSeconds
- self assert: aDateAndTime asNanoSeconds = aDuration asNanoSeconds.
- self assert: aDateAndTime asNanoSeconds = 48780000000000
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsSeconds (in category 'testing') -----
- testAsSeconds
- self assert: aDuration asSeconds = 48780.
- self assert: aDateAndTime asSeconds = 3255507180
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsTime (in category 'testing') -----
- testAsTime
- self assert: aDateAndTime asTime = (Time hour: 13 minute: 33 second: 0)
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsTimeStamp (in category 'testing') -----
- testAsTimeStamp
- self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) offset: 2 hours).
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsUTC (in category 'testing') -----
- testAsUTC
- self assert: aDateAndTime asUTC = aDateAndTime
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsWeek (in category 'testing') -----
- testAsWeek
- self assert: (aDateAndTime offset: DateAndTime localTimeZone offset) asWeek = (Week starting: '02-29-2004' asDate)!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testAsYear (in category 'testing') -----
- testAsYear
- | year |
- year := (aDateAndTime offset: DateAndTime localTimeZone offset) asYear.
- self assert: year = (Year starting: '02-29-2004' asDate).
- self deny: year = (Year starting: '01-01-2004' asDate)!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDay (in category 'testing') -----
- testDay
- self assert: aDateAndTime day = 60.
- self deny: aDateAndTime day = 29 !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDayMonthYearDo (in category 'testing') -----
- testDayMonthYearDo
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachYear]) = 2004.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachMonth]) = 2.
- self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachDay]) = 29.
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDayOfMonth (in category 'testing') -----
- testDayOfMonth
- self assert: aDateAndTime dayOfMonth = 29.
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDayOfWeek (in category 'testing') -----
- testDayOfWeek
- self assert: aDateAndTime dayOfWeek = 1.
- self assert: aDateAndTime dayOfWeekAbbreviation = 'Sun'.
- self assert: aDateAndTime dayOfWeekName = 'Sunday'.
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDayOfYear (in category 'testing') -----
- testDayOfYear
- self assert: aDateAndTime dayOfYear = 60.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDaysInMonth (in category 'testing') -----
- testDaysInMonth
- self assert: aDateAndTime daysInMonth = 29.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDaysInYear (in category 'testing') -----
- testDaysInYear
- self assert: aDateAndTime daysInYear = 366.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testDaysLeftInYear (in category 'testing') -----
- testDaysLeftInYear
- self assert: aDateAndTime daysLeftInYear = 306.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testFirstDayOfMonth (in category 'testing') -----
- testFirstDayOfMonth
- self deny: aDateAndTime firstDayOfMonth = 1.
- self assert: aDateAndTime firstDayOfMonth = 32
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testFromString (in category 'testing') -----
- testFromString
- self assert: aDateAndTime = (DateAndTime fromString: ' 2004-02-29T13:33:00+02:00').
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testHash (in category 'testing') -----
- testHash
- self assert: aDateAndTime hash = 1078054380000000
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testHour (in category 'testing') -----
- testHour
- self assert: aDateAndTime hour = aDateAndTime hour24.
- self assert: aDateAndTime hour = 13.
- self assert: aDateAndTime hour = aDateAndTime hours
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testHour12 (in category 'testing') -----
- testHour12
- self assert: aDateAndTime hour12 = 1.
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testIsLeapYear (in category 'testing') -----
- testIsLeapYear
- self assert: aDateAndTime isLeapYear
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testLessThan (in category 'testing') -----
- testLessThan
- self assert: aDateAndTime < (aDateAndTime + '1:00:00:00').
- self assert: aDateAndTime + -1 < aDateAndTime.
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMeridianAbbreviation (in category 'testing') -----
- testMeridianAbbreviation
- self assert: aDateAndTime meridianAbbreviation = 'PM'.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMiddleOf (in category 'testing') -----
- testMiddleOf
- self assert: (aDateAndTime middleOf: aDuration) =
- (Timespan starting: (DateAndTime year: 2004 month: 2 day: 29 hour: 6 minute: 46 second: 30 offset: 2 hours)
- duration: (Duration days: 0 hours: 13 minutes: 33 seconds: 0 nanoSeconds: 0 ))
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMidnight (in category 'testing') -----
- testMidnight
- | midnight |
- midnight := (aDateAndTime offset: DateAndTime localTimeZone offset) midnight.
- self assert: midnight = '2004-02-29T00:00:00+00:00' asDateAndTime.
- self deny: midnight = '2004-02-29T00:00:00+02:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMinute (in category 'testing') -----
- testMinute
- self assert: aDateAndTime minute = 33
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMinutes (in category 'testing') -----
- testMinutes
- self assert: aDateAndTime minutes = 33
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMonth (in category 'testing') -----
- testMonth
- self assert: aDateAndTime month = 2.
- self assert: aDateAndTime monthAbbreviation = 'Feb'.
- self assert: aDateAndTime monthName = 'February'.
- self assert: aDateAndTime monthIndex = 2.!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testMonthParsing (in category 'testing') -----
- testMonthParsing
- self assert:
- (Month readFrom: 'Feb 2011' readStream) =
- (Month
- month: 2
- year: 2011)!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testNanoSecond (in category 'testing') -----
- testNanoSecond
- self assert: aDateAndTime nanoSecond = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testNoon (in category 'testing') -----
- testNoon
- self assert: aDateAndTime noon = '2004-02-29T12:00:00+00:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testOffset (in category 'testing') -----
- testOffset
- self assert: aDateAndTime offset = '0:02:00:00' asDuration.
- self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | ref ws |
- ref := '2004-02-29T13:33:00+02:00'.
- ws := '' writeStream.
- aDateAndTime printOn: ws.
- self assert: ws contents = ref.
- ref := 'a TimeZone(UTC)'.
- ws := '' writeStream.
- aTimeZone printOn: ws.
- self assert: ws contents = ref !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testSecond (in category 'testing') -----
- testSecond
- self assert: aDateAndTime second = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testSeconds (in category 'testing') -----
- testSeconds
- self assert: aDateAndTime seconds = 0
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testTicks (in category 'testing') -----
- testTicks
- self assert: aDateAndTime ticks = ((DateAndTime julianDayNumber: 2453065) + 48780 seconds) ticks.
- self assert: aDateAndTime ticks = #(2453065 48780 0)!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testTicksOffset (in category 'testing') -----
- testTicksOffset
- self assert: aDateAndTime = (aDateAndTime ticks: #(2453065 48780 0) offset: DateAndTime localOffset).
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testUtcOffset (in category 'testing') -----
- testUtcOffset
- self assert: (aDateAndTime utcOffset: '0:02:00:00') = '2004-02-29T13:33:00+02:00' asDateAndTime!
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testYear (in category 'testing') -----
- testYear
- self assert: aDateAndTime year = 2004.
-
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testYearDayHourMinuteSecond (in category 'testing') -----
- testYearDayHourMinuteSecond
- self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) offset: 2 hours).
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testYearMonthDayHourMinuteSecond (in category 'testing') -----
- testYearMonthDayHourMinuteSecond
- self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) offset: 2 hours).
- !
Item was removed:
- ----- Method: DateAndTimeLeapTest>>testtimeZone (in category 'testing') -----
- testtimeZone
- self assert: aDateAndTime timeZoneName = 'Universal Time'.
- self assert: aDateAndTime timeZoneAbbreviation = 'UTC'
-
- !
Item was removed:
- TestCase subclass: #DateAndTimeReferenceStreamTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !DateAndTimeReferenceStreamTest commentStamp: 'dtl 12/8/2018 15:03' prior: 0!
- Verify reference stream serialization for DateAndTime and Date. Tests are written in a Cronology-Classic image and should pass in a Chronology-UTC image.!
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testArrayOfDateAndTimeToBytes (in category 'testing') -----
- testArrayOfDateAndTimeToBytes
-
- | a bytes expectedBytes |
- a := Array
- with: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- with: '2018-12-08T14:16:16.931528-05:00' asDateAndTime
- with: #endMarker.
- expectedBytes := #[8 0 0 0 3 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 5 0 10 4 0 0 200 176 16 3 0 33 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 55 133 253 64 6 9 101 110 100 77 97 114 107 101 114].
- bytes := (ReferenceStream on: ByteArray new writeStream)
- nextPut: a;
- yourself;
- contents.
- self assert: expectedBytes equals: bytes
- description: 'serialized bytes should match expected bytes'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testArrayWithDateToBytes (in category 'testing') -----
- testArrayWithDateToBytes
-
- | date a bytes expectedBytes |
- date := Date
- starting: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- duration: 1 day + 13 seconds.
- a := Array
- with: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- with: date
- with: '2018-12-08T14:16:16.931528-05:00' asDateAndTime
- with: #endMarker.
- expectedBytes := #[8 0 0 0 4 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 9 0 0 0 3 6 4 68 97 116 101 16 5 0 10 4 0 0 134 206 16 3 0 33 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 3 0 33 4 0 0 0 0 4 0 1 81 141 16 5 0 10 4 0 0 200 176 16 3 0 33 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 55 133 253 64 6 9 101 110 100 77 97 114 107 101 114].
- bytes := (ReferenceStream on: ByteArray new writeStream)
- nextPut: a;
- yourself;
- contents.
- self assert: expectedBytes equals: bytes
- description: 'serialized bytes should match expected bytes'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testBytesToArrayOfDateAndTime (in category 'testing') -----
- testBytesToArrayOfDateAndTime
-
- | bytes expected materializedArray |
- expected := Array
- with: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- with: '2018-12-08T14:16:16.931528-05:00' asDateAndTime
- with: #endMarker.
- .
- bytes := #[8 0 0 0 3 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 5 0 10 4 0 0 200 176 10 0 0 0 28 4 0 37 131 93 4 55 133 253 64 6 9 101 110 100 77 97 114 107 101 114].
- materializedArray := (ReferenceStream on: bytes readStream) next.
- self assert: expected equals: materializedArray
- description: 'materialized from bytes should match expected array objects'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testBytesToArrayWithfDate (in category 'testing') -----
- testBytesToArrayWithfDate
-
- | date bytes expected materializedArray |
- date := Date
- starting: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- duration: 1 day + 13 seconds.
- expected := Array
- with: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- with: date
- with: '2018-12-08T14:16:16.931528-05:00' asDateAndTime
- with: #endMarker.
- bytes := #[8 0 0 0 4 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 9 0 0 0 3 6 4 68 97 116 101 16 5 0 10 4 0 0 134 206 16 3 0 33 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 3 0 33 4 0 0 0 0 4 0 1 81 141 16 5 0 10 4 0 0 200 176 16 3 0 33 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 55 133 253 64 6 9 101 110 100 77 97 114 107 101 114].
- materializedArray := (ReferenceStream on: bytes readStream) next.
- self assert: expected equals: materializedArray
- description: 'materialized from bytes should match expected array objects'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testBytesToDate (in category 'testing') -----
- testBytesToDate
-
- | bytes expected materializedDate |
- expected := Date
- starting: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- duration: 1 day + 13 seconds.
- bytes := #[9 0 0 0 3 6 4 68 97 116 101 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 3 0 39 4 0 0 0 0 4 0 1 81 141].
- materializedDate := (ReferenceStream on: bytes readStream) next.
- self assert: expected equals: materializedDate
- description: 'materialized from bytes should match expected DateAndTime'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testBytesToDateAndTime (in category 'testing') -----
- testBytesToDateAndTime
-
- | bytes expected materializedDateAndTime |
- expected := '2018-12-08T09:35:10.913743-05:00' asDateAndTime.
- bytes := #[9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152].
- materializedDateAndTime := (ReferenceStream on: bytes readStream) next.
- self assert: expected equals: materializedDateAndTime
- description: 'materialized from bytes should match expected DateAndTime'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testDateAndTimeToBytes (in category 'testing') -----
- testDateAndTimeToBytes
-
- | dt bytes expectedBytes |
- dt := '2018-12-08T09:35:10.913743-05:00' asDateAndTime.
- expectedBytes := #[9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152].
- bytes := (ReferenceStream on: ByteArray new writeStream)
- nextPut: dt;
- yourself;
- contents.
- self assert: expectedBytes equals: bytes
- description: 'serialized bytes should match expected bytes'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testDateToBytes (in category 'testing') -----
- testDateToBytes
-
- | date bytes expectedBytes |
- date := Date
- starting: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- duration: 1 day + 13 seconds.
- expectedBytes := #[9 0 0 0 3 6 4 68 97 116 101 9 0 0 0 5 6 11 68 97 116 101 65 110 100 84 105 109 101 4 0 0 134 206 9 0 0 0 3 6 8 68 117 114 97 116 105 111 110 4 0 0 0 0 4 255 255 185 176 4 0 37 131 93 4 54 118 156 152 16 3 0 39 4 0 0 0 0 4 0 1 81 141].
- bytes := (ReferenceStream on: ByteArray new writeStream)
- nextPut: date;
- yourself;
- contents.
- self assert: expectedBytes equals: bytes
- description: 'serialized bytes should match expected bytes'.
-
-
- !
Item was removed:
- ----- Method: DateAndTimeReferenceStreamTest>>testSeriailizeAndDeserializeArrayOfDateAndTime (in category 'testing') -----
- testSeriailizeAndDeserializeArrayOfDateAndTime
-
- | date a bytes newArray |
- date := Date
- starting: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- duration: 1 day + 13 seconds.
- a := Array
- with: '2018-12-08T09:35:10.913743-05:00' asDateAndTime
- with: date
- with: '2018-12-08T14:16:16.931528-05:00' asDateAndTime
- with: #endMarker.
- bytes := (ReferenceStream on: ByteArray new writeStream)
- nextPut: a;
- yourself;
- contents.
- newArray := (ReferenceStream on: bytes readStream) next.
- self assert: a equals: newArray.
-
-
- !
Item was removed:
- ClassTestCase subclass: #DateAndTimeTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: DateAndTimeTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ DateAndTime
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | private |
- private := #( #printOn: ).
-
- ^ super selectorsToBeIgnored, private
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testArithmeticAcrossDateBoundary (in category 'Tests') -----
- testArithmeticAcrossDateBoundary
-
- | t1 t2 |
- t1 := '2004-01-07T11:55:00+00:00' asDateAndTime.
- t2 := t1 - ( (42900+1) seconds).
-
- self
- assert: t2 = ('2004-01-06T23:59:59+00:00' asDateAndTime)
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testAsSecondsIsTheSameInAnyTimezone (in category 'Tests') -----
- testAsSecondsIsTheSameInAnyTimezone
- "Using the Posix epoch as a convenient reference, verify that this point
- in time is represented with the same magnitude in any local time zone."
-
- | posixEpochInVariousLocations |
- posixEpochInVariousLocations := {
- '1970-01-01T00:00:00+00:00' asDateAndTime .
- '1970-01-01T01:00:00+01:00' asDateAndTime .
- '1970-01-01T02:00:00+02:00' asDateAndTime .
- '1970-01-01T12:00:00+12:00' asDateAndTime .
- '1969-12-31T23:00:00-01:00' asDateAndTime .
- '1969-12-31T22:00:00-02:00' asDateAndTime .
- '1969-12-31T12:00:00-12:00' asDateAndTime
- }.
- posixEpochInVariousLocations do: [ :e |
- self assert: 2177452800 equals: e asSeconds ].
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testAsSecondsMatchesFromSecondsUsingAnyOffset (in category 'Tests') -----
- testAsSecondsMatchesFromSecondsUsingAnyOffset
- "Verify that #asSeconds is symmetric with #fromSeconds: for an instance with
- offset that does not match the current local time zone offset."
-
- | aDateAndTime seconds newDateAndTime |
- aDateAndTime := DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: 2 hours.
- seconds := aDateAndTime asSeconds.
- newDateAndTime := DateAndTime fromSeconds: seconds.
- self assert: seconds equals: newDateAndTime asSeconds.
-
- "Repeat with another offset to ensure coverage"
- aDateAndTime := DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: -11 hours.
- seconds := aDateAndTime asSeconds.
- newDateAndTime := DateAndTime fromSeconds: seconds.
- self assert: seconds equals: newDateAndTime asSeconds.
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testAsSecondsMatchesFromSecondsUsingCurrentLocalOffset (in category 'Tests') -----
- testAsSecondsMatchesFromSecondsUsingCurrentLocalOffset
- "Verify that #asSeconds is symmetric with #fromSeconds: for an instance with
- offset that matches the current local time zone offset."
-
- | seconds newDateAndTime now |
- now := DateAndTime now.
- seconds := now asSeconds.
- newDateAndTime := DateAndTime fromSeconds: seconds.
- self assert: seconds equals: newDateAndTime asSeconds.
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testAsSecondsMatchesFromSecondsUsingZeroOffset (in category 'Tests') -----
- testAsSecondsMatchesFromSecondsUsingZeroOffset
- "Verify that #asSeconds is symmetric with #fromSeconds: for an instance with
- zero offset as in UTC time."
-
- | aDateAndTime seconds newDateAndTime |
- aDateAndTime := DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0 offset: 0 hours.
- seconds := aDateAndTime asSeconds.
- newDateAndTime := DateAndTime fromSeconds: seconds.
- self assert: seconds equals: newDateAndTime asSeconds.
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testAsStringFromString (in category 'Tests') -----
- testAsStringFromString
- "Convert to string then back, verify same date and time. Skip years in the
- range 0 to 99 because they are interpreted relative to 2000."
-
- | day hour dt min mo nano offset sec dtNew s |
- mo := 12.
- day := 2.
- hour := 2.
- min := 3.
- sec := 4.
- nano := 5.
- offset := 6 hours.
- (-2000 to: -1) , (100 to: 5000) do: [:yr |
- dt := DateAndTime
- year: yr month: mo day: day
- hour: hour minute: min second: sec nanoSecond: nano
- offset: offset.
- s := dt asString.
- dtNew := DateAndTime fromString: s.
- self assert: dt equals: dtNew].
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testDateTimeDenotation1 (in category 'Tests') -----
- testDateTimeDenotation1
- "DateAndTimeTest new testDateTimeDenotation1"
-
- " Detroit is 5 hours behind UTC, this offset to UTC is therefore written with a minus sign. This example tests the correct interpretation of the DateAndTime denotation. "
-
- | twoPmInLondon twoPmUTCInLocalTimeOfDetroit nineAmInDetroit |
- twoPmInLondon := DateAndTime
- year: 2004
- month: 11
- day: 2
- hour: 14
- minute: 0
- second: 0
- offset: 0 hours.
- twoPmUTCInLocalTimeOfDetroit := twoPmInLondon utcOffset: -5 hours.
- nineAmInDetroit := '2004-11-02T09:00:00-05:00' asDateAndTime.
- self assert: twoPmUTCInLocalTimeOfDetroit = nineAmInDetroit.
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testDateTimeDenotation2 (in category 'Tests') -----
- testDateTimeDenotation2
- "DateAndTimeTest new testDateTimeDenotation2"
-
- " Moscow is 3 hours ahead UTC, this offset to UTC is therefore positive. This example tests the correct interpretation of the DateAndTime denotation. "
-
- | lateEveningInLondon lateEveningInLocalTimeOfMoscow
- localMoscowTimeFromDenotation |
- lateEveningInLondon := DateAndTime
- year: 2004
- month: 11
- day: 30
- hour: 23
- minute: 30
- second: 0
- offset: 0 hours.
- lateEveningInLocalTimeOfMoscow := lateEveningInLondon utcOffset: 3 hours.
- localMoscowTimeFromDenotation := '2004-12-01T02:30:00+03:00' asDateAndTime.
- self assert: lateEveningInLocalTimeOfMoscow = localMoscowTimeFromDenotation.
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testErrorWhenDayIsAfterMonthEnd (in category 'Tests') -----
- testErrorWhenDayIsAfterMonthEnd
-
- self
- should:
- [DateAndTime
- year: 2004
- month: 2
- day: 30]
- raise: Error.!
Item was removed:
- ----- Method: DateAndTimeTest>>testErrorWhenDayIsBeforeMonthStart (in category 'Tests') -----
- testErrorWhenDayIsBeforeMonthStart
-
- self
- should:
- [DateAndTime
- year: 2004
- month: 2
- day: -1]
- raise: Error.
-
- self
- should:
- [DateAndTime
- year: 2004
- month: 2
- day: 0]
- raise: Error.!
Item was removed:
- ----- Method: DateAndTimeTest>>testFromString (in category 'Tests') -----
- testFromString
-
- | fromString fromStringNoOffset fromStringUTC |
- fromString := DateAndTime fromString: '-1199-01-05T20:33:14.321-05:00'.
- self assert: (fromString printString = '-1199-01-05T20:33:14.321-05:00').
-
- "if no offset is provided, the local offset should be used"
- fromStringNoOffset := DateAndTime fromString: '-1199-01-05T20:33:14.321'.
- self assert: (fromStringNoOffset offset = DateAndTime localOffset).
-
- "if a string contains the UTC designator Z, the local offset should not be used"
- fromStringUTC := DateAndTime fromString: '2011-08-26T18:00:03Z'.
- self assert: (fromStringUTC printString = '2011-08-26T18:00:03+00:00').!
Item was removed:
- ----- Method: DateAndTimeTest>>testGetSeconds (in category 'Tests') -----
- testGetSeconds
- "Verify that getSeconds represents whole seconds in the local time zone. For
- a given instance of DateAndTime, changing the time zone offset changes the
- local representation, but does not affect magnitude (time since a defiined
- epoch). Therefore, if time zone offset changes, the asSeconds value should
- not change, and the getSeconds value should change to reflect local timezone."
-
- | dt s1 id stSeconds seconds1 seconds2 |
- s1 := '2019-01-12T10:07:05.18743-05:00'.
- dt := s1 asDateAndTime.
- self assert: 18000 seconds negated equals: dt offset.
- seconds1 := dt getSeconds.
- self assert: 36425 equals: seconds1.
- id := dt identityHash.
- stSeconds := dt asSeconds.
- dt localOffsetSeconds: 0. "make the receiver's timezone GMT, do not change magnitude"
- self assert: id equals: dt identityHash. "same object, not a copy"
- self assert: '2019-01-12T15:07:05.18743+00:00' equals: dt asString.
- self assert: stSeconds equals: dt asSeconds. "magnitude unchanged"
- self assert: '2019-01-12T10:07:05.18743-05:00' asDateAndTime equals: dt. "still equal"
- seconds2 := dt getSeconds.
- self deny: seconds1 equals: seconds2.
- self assert: 54425 equals: seconds2.
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testHash (in category 'Tests') -----
- testHash
- | date0 date1 date2 |
- date0 := DateAndTime unixEpoch.
- date1 := DateAndTime new ticks: (date0 + 1 hours) ticks offset: 0 hours.
- date2 := DateAndTime new ticks: (date0 - 2 hours) ticks offset: -3 hours.
- self assert: (date1 = date2) ==> [date1 hash = date2 hash]!
Item was removed:
- ----- Method: DateAndTimeTest>>testInstanceCreation (in category 'Tests') -----
- testInstanceCreation
-
- | t |
- t := DateAndTime
- year: 1 month: 1 day: 2
- hour: 2 minute: 3 second: 4 nanoSecond: 5
- offset: 6 hours.
- self
- assert: (t julianDayNumber = 1721427);
- assert: (t offset = 6 hours);
- assert: (t hour = 2);
- assert: (t minute = 3);
- assert: (t second = 4);
- assert: (t nanoSecond = 5).
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testMonotonicity (in category 'Tests') -----
- testMonotonicity
-
- | t1 t2 t3 t4 |
- t1 := DateAndTime now.
- t2 := DateAndTime now.
- (Delay forMilliseconds: 1000) wait.
- t3 := DateAndTime now.
- t4 := DateAndTime now.
-
- self
- assert: ( t1 <= t2);
- assert: ( t2 < t3);
- assert: ( t3 <= t4).
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testPrecision (in category 'Tests') -----
- testPrecision
- "Verify that the clock is returning a value with accuracy of better than 1 second. For now it seems sufficient to get two values and verify they are not the same."
-
- | originalClockPolicy |
- originalClockPolicy := Time clockPolicy.
- [
- #(
- "#acceptPlatformTime is not listed here, because it doesn't guarantee monotoncity."
- monotonicAllowDuplicates <=
- monotonicForceMicrosecondIncrement <
- monotonicForceNanosecondIncrement <
- ) pairsDo: [ :clockPolicy :comparator |
- | first second |
- Time clockPolicy: clockPolicy.
- first := DateAndTime now.
- second := DateAndTime now.
- self
- assert: (first perform: comparator with: second)
- description: ('Clock policy {1} didn''t compare with {2}' format: { clockPolicy. comparator }) ] ]
- ensure: [ Time clockPolicy: originalClockPolicy ]
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testPrintString (in category 'Tests') -----
- testPrintString
-
- "(self new setTestSelector: #testPrintString) debug"
-
- | dt dtNoOffset |
- dt :=DateAndTime
- year: 2004
- month: 11
- day: 2
- hour: 14
- minute: 3
- second: 5
- nanoSecond: 12345
- offset: (Duration seconds: (5 * 3600)).
- self assert: dt printString = '2004-11-02T14:03:05.000012345+05:00'.
-
- self assert: ('2002-05-16T17:20:45.1+01:01' asDateAndTime printString = '2002-05-16T17:20:45.1+01:01').
- self assert: (' 2002-05-16T17:20:45.02+01:01' asDateAndTime printString = '2002-05-16T17:20:45.02+01:01').
- self assert: ('2002-05-16T17:20:45.000000009+01:01' asDateAndTime printString = '2002-05-16T17:20:45.000000009+01:01').
- self assert: ('2002-05-16T17:20:45+00:00' asDateAndTime printString = '2002-05-16T17:20:45+00:00' ).
- self assert: (' 2002-05-16T17:20:45+01:57' asDateAndTime printString = '2002-05-16T17:20:45+01:57').
- self assert: (' 2002-05-16T17:20:45-02:34' asDateAndTime printString = '2002-05-16T17:20:45-02:34').
- self assert: ('2002-05-16T17:20:45+00:00' asDateAndTime printString = '2002-05-16T17:20:45+00:00').
- self assert: ('1997-04-26T01:02:03+01:02:3' asDateAndTime printString = '1997-04-26T01:02:03+01:02:3').
-
- "When no offset is provided, the local one is used"
- dtNoOffset := '2002-05-16T17:20' asDateAndTime.
- self assert: (('2002-05-16T17:20:00*' match: dtNoOffset printString) and: [dtNoOffset offset = DateAndTime localOffset]).
-
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testReadFrom (in category 'Tests') -----
- testReadFrom
-
- self assert: '-1199-01-05T20:33:14.321-05:00' equals: (DateAndTime readFrom: '-1199-01-05T20:33:14.321-05:00' readStream) printString.
- self assert: '-1199-01-05T20:33:14.321-05:00' equals: '-1199-01-05T20:33:14.321-05:00' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45.1+01:01' equals: '2002-05-16T17:20:45.1+01:01' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45.02+01:01' equals: ' 2002-05-16T17:20:45.02+01:01' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45.000000009+01:01' equals: '2002-05-16T17:20:45.000000009+01:01' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45+01:57' equals: ' 2002-05-16T17:20:45+01:57' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45-02:34' equals: ' 2002-05-16T17:20:45-02:34' asDateAndTime printString.
- self assert: '2002-05-16T17:20:45+00:00' equals: '2002-05-16T17:20:45+00:00' asDateAndTime printString.
- self assert: '1997-04-26T01:02:03+01:02:3' equals: '1997-04-26T01:02:03+01:02:3' asDateAndTime printString!
Item was removed:
- ----- Method: DateAndTimeTest>>testRestoreFromChronologyTicksAndOffset (in category 'Tests') -----
- testRestoreFromChronologyTicksAndOffset
- "Legacy serialized instances are made up of 3 SmallIntegers knowns as 'ticks' plus an 'offset' Duration. Ensure a serialized DateAndTime can be correctly restored from these values."
- | dt newDt |
- dt := '2018-11-17T14:19:42.887676-06:00' asDateAndTime.
- newDt := DateAndTime basicNew ticks: dt ticks offset: dt offset.
- self assert: dt = newDt!
Item was removed:
- ----- Method: DateAndTimeTest>>testSmalltalk80Accessors (in category 'Tests') -----
- testSmalltalk80Accessors
-
- | t |
- t := DateAndTime
- year: 1 month: 1 day: 2
- hour: 2 minute: 3 second: 4 nanoSecond: 5
- offset: 6 hours.
- self
- assert: (t hours = t hours);
- assert: (t minutes = t minute);
- assert: (t seconds = t second).
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testTimeZoneEquivalence (in category 'Tests') -----
- testTimeZoneEquivalence
- "DateAndTimeTest new testTimeZoneEquivalence"
- "When the clock on the wall in Detroit says 9:00am, the clock on the wall
- in London says 2:00pm. The Duration difference between the corresponding
- DateAndTime values should be zero."
-
- " Detroit is 5 hours behind UTC, this offset to UTC is therefore written with a minus sign. This example tests both the correct interpretation of the DateAndTime denotation and correct DateAndTime arithmetics. "
-
- | twoPmInLondon nineAmInDetroit durationDifference |
- twoPmInLondon := '2004-11-02T14:00:00+00:00' asDateAndTime.
- nineAmInDetroit := '2004-11-02T09:00:00-05:00' asDateAndTime.
- durationDifference := twoPmInLondon - nineAmInDetroit.
- self assert: durationDifference asSeconds = 0.
- self assert: twoPmInLondon = nineAmInDetroit
- !
Item was removed:
- ----- Method: DateAndTimeTest>>testTimeZoneEquivalence2 (in category 'Tests') -----
- testTimeZoneEquivalence2
- "DateAndTimeTest new testTimeZoneEquivalence2"
- "This example demonstates the fact that
- 2004-05-24T22:40:00 UTC is
- 2004-05-25T01:40:00 in Moscow
- (Moscow is 3 hours ahead of UTC) "
-
- | thisMoment thisMomentInMoscow |
- thisMoment := DateAndTime year: 2004 month: 5 day: 24 hour: 22 minute: 40.
- thisMomentInMoscow := thisMoment utcOffset: 3 hours.
- self assert: (thisMoment - thisMomentInMoscow) asSeconds = 0.
- self assert: thisMoment = thisMomentInMoscow
- !
Item was removed:
- ClassTestCase subclass: #DateTest
- instanceVariableNames: 'date aDate aTime'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !DateTest commentStamp: 'brp 7/26/2003 16:58' prior: 0!
- This is the unit test for the class Date. !
Item was removed:
- ----- Method: DateTest>>assert:equals:addMonths: (in category 'testing') -----
- assert: expectedDateString equals: dateString addMonths: anInteger
-
- self assert: expectedDateString asDate equals: (dateString asDate addMonths: anInteger)!
Item was removed:
- ----- Method: DateTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ self dateClass!
Item was removed:
- ----- Method: DateTest>>dateClass (in category 'Private') -----
- dateClass
-
- ^ Date!
Item was removed:
- ----- Method: DateTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | deprecated private special |
- deprecated := #().
- private := #().
- special := #( #< #= #new #next #previous #printOn: #printOn:format: #storeOn: #fromString: ).
-
- ^ super selectorsToBeIgnored, deprecated, private, special!
Item was removed:
- ----- Method: DateTest>>setUp (in category 'Running') -----
- setUp
-
- date := '1973-06-02' asDate.
- aDate := '2004-01-23' asDate!
Item was removed:
- ----- Method: DateTest>>testAccessing (in category 'Tests') -----
- testAccessing
-
- self
- assert: date day = 153;
- assert: date julianDayNumber = 2441836;
- assert: date leap = 0;
- assert: date monthIndex = 6;
- assert: date monthName = #June;
- assert: date weekday = #Saturday;
- assert: date weekdayIndex = 7;
- assert: date year = 1973.
- !
Item was removed:
- ----- Method: DateTest>>testAddDays (in category 'testing') -----
- testAddDays
- self assert: (aDate addDays: 00) yyyymmdd = '2004-01-23'.
- self assert: (aDate addDays: 30) yyyymmdd = '2004-02-22'.
- self assert: (aDate addDays: 60) yyyymmdd = '2004-03-23'.
- self assert: (aDate addDays: 90) yyyymmdd = '2004-04-22'.
- self assert: (aDate addDays:120) yyyymmdd = '2004-05-22'!
Item was removed:
- ----- Method: DateTest>>testAddMonths (in category 'testing') -----
- testAddMonths
-
- #(('2004-01-23' 0 '2004-01-23')
- ('2004-01-23' 1 '2004-02-23')
- ('2004-01-23' 2 '2004-03-23')
- ('2004-01-23' 3 '2004-04-23')
- ('2004-01-23' 12 '2005-01-23')
- ('2017-05-31' 1 '2017-06-30')
- ('2000-02-29' 12 '2001-02-28'))
- do: [:each | self assert: each third equals: each first addMonths: each second]!
Item was removed:
- ----- Method: DateTest>>testAddMonthsEndOfMonth (in category 'testing') -----
- testAddMonthsEndOfMonth
-
- #(('2021-12-30' 1 '2022-01-30')
- ('2022-01-30' 1 '2022-02-28')
- ('2022-01-30' 2 '2022-03-30')
- ('2022-01-30' 3 '2022-04-30')
- ('2021-12-31' 1 '2022-01-31')
- ('2022-01-31' 1 '2022-02-28')
- ('2022-01-31' 2 '2022-03-31')
- ('2022-01-31' 3 '2022-04-30'))
- do: [:each | self assert: each third equals: each first addMonths: each second]!
Item was removed:
- ----- Method: DateTest>>testAddMonthsEndOfMonthLeapYear (in category 'testing') -----
- testAddMonthsEndOfMonthLeapYear
-
- #(('2023-12-30' 1 '2024-01-30')
- ('2024-01-30' 1 '2024-02-29')
- ('2024-01-30' 2 '2024-03-30')
- ('2024-01-30' 3 '2024-04-30')
- ('2023-12-31' 1 '2024-01-31')
- ('2024-01-31' 1 '2024-02-29')
- ('2024-01-31' 2 '2024-03-31')
- ('2024-01-31' 3 '2024-04-30'))
- do: [:each | self assert: each third equals: each first addMonths: each second]!
Item was removed:
- ----- Method: DateTest>>testArithmetic (in category 'Tests') -----
- testArithmetic
- | d |
- d := date addDays: 32. "4 July 1973"
-
- self
- assert: d year = 1973;
- assert: d monthIndex = 7;
- assert: d dayOfMonth = 4.
- self
- assert: (d subtractDate: date) = 32;
- assert: (date subtractDate: d) = -32.
- self
- assert: (d subtractDays: 32) = date.
- !
Item was removed:
- ----- Method: DateTest>>testAsDate (in category 'testing') -----
- testAsDate
- self assert: (aDate asDate) = aDate
- !
Item was removed:
- ----- Method: DateTest>>testAsSeconds (in category 'testing') -----
- testAsSeconds
- self assert: (aDate asSeconds) = 3252268800.
- self assert: (aDate asSeconds) = ((103*365*24*60*60) + (22+25"leap days"*24*60*60)) .
- self assert: aDate = (Date fromSeconds: 3252268800).!
Item was removed:
- ----- Method: DateTest>>testComparing (in category 'Tests') -----
- testComparing
- | d1 d2 d3 |
- d1 := self dateClass newDay: 2 month: #June year: 1973.
- d2 := self dateClass newDay: 97 year: 2003. "7 April 2003"
- d3 := self dateClass newDay: 250 year: 1865. "7 September 1865"
-
- self
- assert: date = d1;
- assert: date = date copy;
- assert: date hash = d1 hash.
- self
- assert: date < d2;
- deny: date < d3.
- !
Item was removed:
- ----- Method: DateTest>>testConverting (in category 'Tests') -----
- testConverting
-
- self
- assert: date asDate = date;
- assert: '2 June 1973' asDate = date;
- assert: date asSeconds = 2285280000.
-
- date dayMonthYearDo: [ :d :m :y | self assert: d = 2; assert: m = 6; assert: y = 1973 ].!
Item was removed:
- ----- Method: DateTest>>testDateAndTimeNow (in category 'testing') -----
- testDateAndTimeNow
- "Not a great test: could falsely fail if midnight come in between the two executions and doesnt catch time errors"
- self assert: Date dateAndTimeNow first = Date today
- !
Item was removed:
- ----- Method: DateTest>>testDayMonthYearDo (in category 'testing') -----
- testDayMonthYearDo
- self assert: (aDate dayMonthYearDo: [:day :month :year | day asString , month asString, year asString]) = '2312004'
- !
Item was removed:
- ----- Method: DateTest>>testDaysInMonthForYear (in category 'testing') -----
- testDaysInMonthForYear
- self assert: (Date daysInMonth: 'February' forYear: 2008) = 29.
- self assert: (Date daysInMonth: 'February' forYear: 2000) = 29.
- self assert: (Date daysInMonth: 'February' forYear: 2100) = 28.
- self assert: (Date daysInMonth: 'July' forYear: 2100) = 31. !
Item was removed:
- ----- Method: DateTest>>testDaysInYear (in category 'testing') -----
- testDaysInYear
- self assert: (Date daysInYear: 2008) = 366.
- self assert: (Date daysInYear: 2000) = 366.
- self assert: (Date daysInYear: 2100) = 365
- !
Item was removed:
- ----- Method: DateTest>>testDuration (in category 'testing') -----
- testDuration
- self assert: aDate duration = 24 hours!
Item was removed:
- ----- Method: DateTest>>testEqual (in category 'testing') -----
- testEqual
- self assert: aDate = (Date readFrom: 'January 23, 2004' readStream)!
Item was removed:
- ----- Method: DateTest>>testFirstWeekdayOfMonthYear (in category 'testing') -----
- testFirstWeekdayOfMonthYear
- self assert: (Date firstWeekdayOfMonth: 'January' year: 2004) = 5.
- !
Item was removed:
- ----- Method: DateTest>>testFromDateAndTime (in category 'Tests') -----
- testFromDateAndTime
-
- | aDateAndTime |
- aDateAndTime := '2018-10-22T22:51:38.322706-04:00' asDateAndTime.
- aDate := aDateAndTime asDate.
- self
- assert: aDate start offset
- equals: aDateAndTime offset
- description: 'Start time for a Date created from a DateAndTime should preserve local time offset'!
Item was removed:
- ----- Method: DateTest>>testFromDays (in category 'Tests') -----
- testFromDays
- | epoch d0 d1 d2 |
- epoch := self dateClass newDay: 1 year: 1901.
- d0 := self dateClass fromDays: 0. "1 January 1901"
- self assert: d0 = epoch.
-
- d1 := self dateClass fromDays: 26450. "2 June 1973"
- self assert: d1 = date.
-
- d2 := self dateClass fromDays: -100000. "18 March 1627"
- self assert: d2 julianDayNumber = 2315386.
-
- self assert: aDate = (Date fromDays: 37642).
- self assert: aDate = (Date fromDays: 103*365 + 22 + 25 "leap days") .
- !
Item was removed:
- ----- Method: DateTest>>testFromSeconds (in category 'Tests') -----
- testFromSeconds
- | d |
- d := self dateClass fromSeconds: 2285280000.
- self
- assert: d = date.
- !
Item was removed:
- ----- Method: DateTest>>testFromString (in category 'Tests') -----
- testFromString
- #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'
- 'June 2, 1973' '6/2/73' '2JUN73'
- '1973-06-02' '1973-JUN-02' '1973-June-02')
- do: [:each | self assert: date equals: (self dateClass fromString: each)].
-
- self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').
- self assert: '1982-12-04' asDate equals: (self dateClass fromString: '12.4.82').
-
- self assert: '100-04-15' asDate equals: (self dateClass fromString: '15.4.100').
- self assert: '0100-04-15' asDate equals: (self dateClass fromString: '15.4.100').
- self assert: '1982-04-15' asDate equals: (self dateClass fromString: '15.4.82').
- self assert: '1969-04-15' asDate equals: (self dateClass fromString: '15.4.69').
- self assert: '2068-04-15' asDate equals: (self dateClass fromString: '15.4.68')!
Item was removed:
- ----- Method: DateTest>>testGeneralInquiries (in category 'Tests') -----
- testGeneralInquiries
-
- | shuffled indices names now |
-
- shuffled := #(#January #February #March #April #May #June #July
- #August #September #October #November #December) shuffled.
- indices := shuffled collect: [ :m | self dateClass indexOfMonth: m ].
- names := indices collect: [ :i | self dateClass nameOfMonth: i ].
- self assert: names = shuffled.
-
- shuffled := #(#Monday #Tuesday #Wednesday #Thursday #Friday #Saturday #Sunday) shuffled.
- indices := shuffled collect: [ :m | self dateClass dayOfWeek: m ].
- names := indices collect: [ :i | self dateClass nameOfDay: i ].
- self assert: names = shuffled.
-
- now := self dateClass dateAndTimeNow.
- self
- assert: now size = 2;
- assert: now first = self dateClass today.
-
- self assert: (self dateClass firstWeekdayOfMonth: #June year: 1973) = 6.
-
- self
- assert: (self dateClass leapYear: 1973) = 0;
- assert: (self dateClass leapYear: 1972) = 1;
- assert: (self dateClass daysInYear: 1973) = 365;
- assert: (self dateClass daysInYear: 1972) = 366;
- assert: (self dateClass daysInMonth: #February forYear: 1973) = 28;
- assert: (self dateClass daysInMonth: #February forYear: 1972) = 29.
- !
Item was removed:
- ----- Method: DateTest>>testIndexOfMonth (in category 'testing') -----
- testIndexOfMonth
- self assert: (Date indexOfMonth: 'January') = 1.
- self assert: (Date indexOfMonth: 'December') = 12. !
Item was removed:
- ----- Method: DateTest>>testInitialization (in category 'Tests') -----
- testInitialization
-
- self should: [ self dateClass initialize. true ].
- !
Item was removed:
- ----- Method: DateTest>>testInquiries (in category 'Tests') -----
- testInquiries
-
- self
- assert: date dayOfMonth = 2;
- assert: date dayOfYear = 153;
- assert: date daysInMonth = 30;
- assert: date daysInYear = 365;
- assert: date daysLeftInYear = (365 - 153);
- assert: date firstDayOfMonth = 152.
- !
Item was removed:
- ----- Method: DateTest>>testJulianDayNumber (in category 'testing') -----
- testJulianDayNumber
- self assert: aDate = (Date julianDayNumber: ((4713+2004)*365 +1323) ). !
Item was removed:
- ----- Method: DateTest>>testLeap (in category 'testing') -----
- testLeap
- self assert: aDate leap = 1.
-
- !
Item was removed:
- ----- Method: DateTest>>testLeapNot (in category 'testing') -----
- testLeapNot
- self assert: (aDate addDays: 365) leap = 0
- !
Item was removed:
- ----- Method: DateTest>>testLessThan (in category 'testing') -----
- testLessThan
- self assert: aDate < (Date readFrom: (ReadStream on: '01-24-2004')).!
Item was removed:
- ----- Method: DateTest>>testMakeUTC (in category 'testing') -----
- testMakeUTC
- "Equal dates should compare equal regardless of which TimeZone they are created in."
-
- | priorTz priorPreference march31stLocal march31stOcean |
- priorTz := DateAndTime localTimeZone.
- priorPreference := DateAndTime automaticTimezone.
-
- [DateAndTime
- localTimeZone: (TimeZone
- offset: 9 hours
- name: 'Early Test Countries'
- abbreviation: 'Test Ocean Early').
-
- march31stLocal := Date year: 2016 month: 3 day: 31.
- march31stLocal start: (march31stLocal start offset: DateAndTime localTimeZone offset).
-
- DateAndTime
- localTimeZone: (TimeZone
- offset: -9 hours
- name: 'Late Test Countries'
- abbreviation: 'Test Ocean Late').
-
- march31stOcean := Date year: 2016 month: 3 day: 31.
- march31stOcean start: (march31stOcean start offset: DateAndTime localTimeZone offset).]
- ensure: [DateAndTime localTimeZone: priorTz.
- DateAndTime automaticTimezone: priorPreference].
-
- self
- deny: march31stLocal = march31stOcean;
- assert: march31stOcean > march31stLocal.
-
- self
- assert: march31stLocal makeUTC = march31stOcean makeUTC;
- deny: march31stOcean makeUTC > march31stLocal makeUTC;
- deny: march31stOcean makeUTC < march31stLocal makeUTC.!
Item was removed:
- ----- Method: DateTest>>testMmddyyyy (in category 'testing') -----
- testMmddyyyy
- self assert: aDate mmddyyyy = '1/23/2004'!
Item was removed:
- ----- Method: DateTest>>testNameOfMonth (in category 'testing') -----
- testNameOfMonth
- self assert: (Date nameOfMonth: 5) = 'May'.
- self assert: (Date nameOfMonth: 8) = 'August' !
Item was removed:
- ----- Method: DateTest>>testNew (in category 'Tests') -----
- testNew
- | epoch |
- epoch := self dateClass newDay: 1 year: 1901.
- self assert: (self dateClass new = epoch).!
Item was removed:
- ----- Method: DateTest>>testNewDayMonthYear (in category 'testing') -----
- testNewDayMonthYear
- self assert: aDate = (Date newDay: 23 month: 1 year: 2004)
- !
Item was removed:
- ----- Method: DateTest>>testNewDayYear (in category 'testing') -----
- testNewDayYear
- self assert: aDate = (Date newDay: 23 year: 2004)
- !
Item was removed:
- ----- Method: DateTest>>testPreviousFriday (in category 'testing') -----
- testPreviousFriday
- self assert: (aDate previous: 'Friday') yyyymmdd = '2004-01-16'
-
- !
Item was removed:
- ----- Method: DateTest>>testPreviousNext (in category 'Tests') -----
- testPreviousNext
- | n p pt ps |
- n := date next.
- p := date previous.
-
- self
- assert: n year = 1973;
- assert: n dayOfYear = 154;
- assert: p year = 1973;
- assert: p dayOfYear = 152.
-
- pt := date previous: #Thursday. "31 May 1973"
- self
- assert: pt year = 1973;
- assert: pt dayOfYear = 151.
-
- ps := date previous: #Saturday. " 26 May 1973"
- self
- assert: ps year = 1973;
- assert: ps dayOfYear = (153-7).
- !
Item was removed:
- ----- Method: DateTest>>testPreviousThursday (in category 'testing') -----
- testPreviousThursday
- self assert: (aDate previous: 'Thursday') yyyymmdd = '2004-01-22'
-
- !
Item was removed:
- ----- Method: DateTest>>testPrintFormat (in category 'testing') -----
- testPrintFormat
- self assert: (aDate printFormat: #(1 2 3 $? 2 2)) = '23?Jan?04'!
Item was removed:
- ----- Method: DateTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | ref ws |
- ref := '23 January 2004'.
- ws := '' writeStream.
- aDate printOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: DateTest>>testPrintOnFormat (in category 'testing') -----
- testPrintOnFormat
- | ref ws |
- ref :='04*Jan*23'.
- ws := '' writeStream.
- aDate printOn: ws format: #(3 2 1 $* 2 2).
- self assert: ws contents = ref!
Item was removed:
- ----- Method: DateTest>>testPrinting (in category 'Tests') -----
- testPrinting
-
- self
- assert: date mmddyyyy = '6/2/1973';
- assert: date yyyymmdd = '1973-06-02';
- assert: (date printFormat: #(3 1 2 $!! 2 1 1)) = '1973!!2!!Jun'.
- !
Item was removed:
- ----- Method: DateTest>>testReadFrom (in category 'Tests') -----
- testReadFrom
- #('2 June 1973' '2-JUN-73' '6.2.73' '2JUN73'
- 'June 2, 1973' '6/2/73' '2JUN73'
- '1973-06-02' '1973-JUN-02' '1973-June-02')
- do: [:each | self assert: date equals: (self dateClass readFrom: each readStream)].
-
- self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).
- self assert: '1982-12-04' asDate equals: (self dateClass readFrom: '12.4.82' readStream).
-
- self assert: '100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).
- self assert: '0100-04-15' asDate equals: (self dateClass readFrom: '15.4.100' readStream).
- self assert: '1982-04-15' asDate equals: (self dateClass readFrom: '15.4.82' readStream).
- self assert: '1969-04-15' asDate equals: (self dateClass readFrom: '15.4.69' readStream).
- self assert: '2068-04-15' asDate equals: (self dateClass readFrom: '15.4.68' readStream)!
Item was removed:
- ----- Method: DateTest>>testStarting (in category 'testing') -----
- testStarting
- self assert: aDate = (Date starting: ((DateAndTime fromString: '2004-01-23T12:12') offset: Date defaultOffset))!
Item was removed:
- ----- Method: DateTest>>testStoreOn (in category 'testing') -----
- testStoreOn
- | ref ws |
- ref := '''23 January 2004'' asDate'.
- ws := '' writeStream.
- aDate storeOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: DateTest>>testStoring (in category 'Tests') -----
- testStoring
-
- self
- assert: date storeString = '''2 June 1973'' asDate';
- assert: date = ('2 June 1973' asDate).
- !
Item was removed:
- ----- Method: DateTest>>testSubtractDate (in category 'testing') -----
- testSubtractDate
- self assert: (aDate subtractDate:(aDate addDays: 30)) = -30.
- self assert: (aDate subtractDate:(aDate subtractDays: 00)) = 0.
- self assert: (aDate subtractDate:(aDate subtractDays: 30)) = 30.
-
- !
Item was removed:
- ----- Method: DateTest>>testSubtractDays (in category 'testing') -----
- testSubtractDays
- self assert: (aDate subtractDays: 00) yyyymmdd = '2004-01-23'.
- self assert: (aDate subtractDays: 30) yyyymmdd = '2003-12-24'.
- self assert: (aDate subtractDays: 60) yyyymmdd = '2003-11-24'
- !
Item was removed:
- ----- Method: DateTest>>testTomorrow (in category 'testing') -----
- testTomorrow
- "Not a great test: could falsely fail if midnight come in between the two executions and doesnt catch many errors"
- self assert: Date tomorrow > Date today
- !
Item was removed:
- ----- Method: DateTest>>testWeekday (in category 'testing') -----
- testWeekday
- self assert: aDate weekday = 'Friday'.
- self assert: aDate weekdayIndex = 6.
- self assert: (Date dayOfWeek: aDate weekday ) =6.
- self assert: (Date nameOfDay: 6 ) = 'Friday' !
Item was removed:
- ----- Method: DateTest>>testYesterday (in category 'testing') -----
- testYesterday
- "Not a great test: doesnt catch many errors"
- self assert: Date yesterday < Date today
- !
Item was removed:
- ----- Method: DateTest>>testYyyymmdd (in category 'testing') -----
- testYyyymmdd
- self assert: aDate yyyymmdd = '2004-01-23'!
Item was removed:
- ClassTestCase subclass: #DurationTest
- instanceVariableNames: 'aDuration'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: DurationTest>>classToBeTested (in category 'coverage') -----
- classToBeTested
-
- ^ Duration
-
-
- !
Item was removed:
- ----- Method: DurationTest>>selectorsToBeIgnored (in category 'coverage') -----
- selectorsToBeIgnored
-
- | private |
- private := #( #printOn: ).
-
- ^ super selectorsToBeIgnored, private
- !
Item was removed:
- ----- Method: DurationTest>>setUp (in category 'running') -----
- setUp
- aDuration := Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5 !
Item was removed:
- ----- Method: DurationTest>>testAbs (in category 'tests') -----
- testAbs
- self assert: aDuration abs = aDuration.
- self assert: (Duration nanoSeconds: -5) abs = (Duration nanoSeconds: 5).
- !
Item was removed:
- ----- Method: DurationTest>>testAgo (in category 'tests') -----
- testAgo
- self assert: ((10 minutes ago) isMemberOf: DateAndTime).
- self assert: ((10 weeks ago) < DateAndTime now).
- self assert: ((-50 seconds ago) > DateAndTime now).
- self assert: ((10 hours ago) < DateAndTime now).
- self assert: (0 seconds ago - DateAndTime now < 1 second).!
Item was removed:
- ----- Method: DurationTest>>testAsDelay (in category 'tests') -----
- testAsDelay
- self deny: aDuration asDelay = aDuration.
- "want to come up with a more meaningful test"
- !
Item was removed:
- ----- Method: DurationTest>>testAsDuration (in category 'tests') -----
- testAsDuration
- self assert: aDuration asDuration = aDuration
-
- !
Item was removed:
- ----- Method: DurationTest>>testAsMicroSeconds (in category 'tests') -----
- testAsMicroSeconds
- self assert: (Duration nanoSeconds: 1000) asMicroSeconds = 1.
- self assert: (Duration seconds: 1) asMicroSeconds = 1e6.
- self assert: aDuration asMicroSeconds = 93784000000.
- self assert: (Duration microSeconds: 3775000) asSeconds = 3.
- self assert: (Duration microSeconds: 3775000) nanoSeconds = 775000000!
Item was removed:
- ----- Method: DurationTest>>testAsMilliSeconds (in category 'tests') -----
- testAsMilliSeconds
- self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1.
- self assert: (Duration seconds: 1) asMilliSeconds = 1000.
- self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1.
- self assert: (Duration nanoSeconds: 1000000) asMilliSeconds = 1.
- self assert: aDuration asMilliSeconds = 93784000.
- self assert: (Duration milliSeconds: 3775) asSeconds = 3.
- self assert: (Duration milliSeconds: 3775) nanoSeconds = 775000000!
Item was removed:
- ----- Method: DurationTest>>testAsNanoSeconds (in category 'tests') -----
- testAsNanoSeconds
- self assert: (Duration nanoSeconds: 1) asNanoSeconds = 1.
- self assert: (Duration seconds: 1) asNanoSeconds = 1000000000.
- self assert: aDuration asNanoSeconds = 93784000000005.!
Item was removed:
- ----- Method: DurationTest>>testAsSeconds (in category 'tests') -----
- testAsSeconds
- self assert: (Duration nanoSeconds: 1000000000) asSeconds = 1.
- self assert: (Duration seconds: 1) asSeconds = 1.
- self assert: aDuration asSeconds = 93784.!
Item was removed:
- ----- Method: DurationTest>>testBusyWait (in category 'tests') -----
- testBusyWait
-
- | duration start elapsed |
- duration := Duration milliSeconds: 1.
- start := DateAndTime now.
-
- 1000 timesRepeat: [duration busyWait].
- elapsed := DateAndTime now - start.
-
- self assert: elapsed >= (duration * 1000).
- self assert: elapsed <= (duration * 1000 * 2).!
Item was removed:
- ----- Method: DurationTest>>testComparing (in category 'tests') -----
- testComparing
-
- | d1 d2 d3 |
- d1 := Duration seconds: 10 nanoSeconds: 1.
- d2 := Duration seconds: 10 nanoSeconds: 1.
- d3 := Duration seconds: 10 nanoSeconds: 2.
-
- self
- assert: (d1 = d1);
- assert: (d1 = d2);
- deny: (d1 = d3);
- assert: (d1 < d3)
- !
Item was removed:
- ----- Method: DurationTest>>testDays (in category 'tests') -----
- testDays
- self assert: aDuration days = 1.
- self assert: (Duration days: 1) days= 1. !
Item was removed:
- ----- Method: DurationTest>>testDaysFromNumber (in category 'tests - from number') -----
- testDaysFromNumber
-
- self assert: 5 equals: 5 days asSeconds / 86400.
- self assert: -5 equals: -5 days asSeconds / 86400.
- self assert: 1 equals: 1 days asSeconds / 86400.
- self assert: -1 equals: -1 days asSeconds / 86400.
- self assert: 0 equals: 0 days asSeconds / 86400.
- self assert: 1500 equals: 1.5 days asMilliSeconds / 86400.
- self assert: -1500 equals: -1.5 days asMilliSeconds / 86400.
-
- self assert: 5 equals: 5 day asSeconds / 86400.
- self assert: -5 equals: -5 day asSeconds / 86400.
- self assert: 1 equals: 1 day asSeconds / 86400.
- self assert: -1 equals: -1 day asSeconds / 86400.
- self assert: 0 equals: 0 day asSeconds / 86400.
- self assert: 1500 equals: 1.5 day asMilliSeconds / 86400.
- self assert: -1500 equals: -1.5 day asMilliSeconds / 86400.
- !
Item was removed:
- ----- Method: DurationTest>>testDivide (in category 'tests') -----
- testDivide
- self assert: aDuration / aDuration = 1.
- self assert: aDuration / 2 = (Duration days: 0 hours: 13 minutes: 1 seconds: 32 nanoSeconds: 2).
- self assert: aDuration / (1/2) = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10).
- !
Item was removed:
- ----- Method: DurationTest>>testFromNow (in category 'tests') -----
- testFromNow
-
- self assert: ((10 seconds fromNow) > DateAndTime now).
- self assert: ((0 days fromNow - DateAndTime now) < 1 second).
- self assert: ((-1 weeks fromNow) < DateAndTime now).
- self assert: ((1000 milliSeconds fromNow) isMemberOf: DateAndTime).
- self assert: ((250 hours fromNow) > DateAndTime now).
- self assert: ((-50 minutes fromNow) < DateAndTime now).!
Item was removed:
- ----- Method: DurationTest>>testFromString (in category 'tests') -----
- testFromString
- self assert: aDuration = (Duration fromString: '1:02:03:04.000000005').
- !
Item was removed:
- ----- Method: DurationTest>>testHash (in category 'tests') -----
- testHash
- self assert: aDuration hash = (Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5) hash.
- self assert: aDuration hash = 93789
- "must be a more meaningful test?"!
Item was removed:
- ----- Method: DurationTest>>testHours (in category 'tests') -----
- testHours
- self assert: aDuration hours = 2.
- self assert: (Duration hours: 2) hours = 2. !
Item was removed:
- ----- Method: DurationTest>>testHoursFromNumber (in category 'tests - from number') -----
- testHoursFromNumber
-
- self assert: 5 equals: 5 hours asSeconds / 3600.
- self assert: -5 equals: -5 hours asSeconds / 3600.
- self assert: 1 equals: 1 hours asSeconds / 3600.
- self assert: -1 equals: -1 hours asSeconds / 3600.
- self assert: 0 equals: 0 hours asSeconds / 3600.
- self assert: 1500 equals: 1.5 hours asMilliSeconds / 3600.
- self assert: -1500 equals: -1.5 hours asMilliSeconds / 3600.
-
- self assert: 5 equals: 5 hour asSeconds / 3600.
- self assert: -5 equals: -5 hour asSeconds / 3600.
- self assert: 1 equals: 1 hour asSeconds / 3600.
- self assert: -1 equals: -1 hour asSeconds / 3600.
- self assert: 0 equals: 0 hour asSeconds / 3600.
- self assert: 1500 equals: 1.5 hour asMilliSeconds / 3600.
- self assert: -1500 equals: -1.5 hour asMilliSeconds / 3600.
- !
Item was removed:
- ----- Method: DurationTest>>testIntegerDivision (in category 'tests') -----
- testIntegerDivision
- self assert: aDuration // aDuration = 1.
- self assert: aDuration // 2 = (aDuration / 2).
- "is there ever a case where this is not true, since precision is always to the nano second?"!
Item was removed:
- ----- Method: DurationTest>>testLessThan (in category 'tests') -----
- testLessThan
- self assert: aDuration < (aDuration + 1 day ).
- self deny: aDuration < aDuration.
- !
Item was removed:
- ----- Method: DurationTest>>testMicroSecondsFromNumber (in category 'tests - from number') -----
- testMicroSecondsFromNumber
-
- self assert: 5 equals: 5 microSeconds asMicroSeconds.
- self assert: -5 equals: -5 microSeconds asMicroSeconds.
- self assert: 1 equals: 1 microSeconds asMicroSeconds.
- self assert: -1 equals: -1 microSeconds asMicroSeconds.
- self assert: 0 equals: 0 microSeconds asMicroSeconds.
- self assert: 1500 equals: 1.5 microSeconds asNanoSeconds.
- self assert: -1500 equals: -1.5 microSeconds asNanoSeconds.
-
- self assert: 5 equals: 5 microSecond asMicroSeconds.
- self assert: -5 equals: -5 microSecond asMicroSeconds.
- self assert: 1 equals: 1 microSecond asMicroSeconds.
- self assert: -1 equals: -1 microSecond asMicroSeconds.
- self assert: 0 equals: 0 microSecond asMicroSeconds.
- self assert: 1500 equals: 1.5 microSecond asNanoSeconds.
- self assert: -1500 equals: -1.5 microSecond asNanoSeconds.
- !
Item was removed:
- ----- Method: DurationTest>>testMilliSeconds (in category 'tests') -----
- testMilliSeconds
-
- #(
- "argument (milliseconds) seconds nanoseconds"
- (5 0 5000000)
- (1005 1 5000000)
- (-5 0 -5000000)
- (-1005 -1 -5000000)
- (1234567 1234 567000000)
- (-1234567 -1234 -567000000)
- ) do: [ :each |
- | duration |
- duration := Duration milliSeconds: each first.
- self assert: duration asSeconds = each second.
- self assert: duration nanoSeconds = each third ]!
Item was removed:
- ----- Method: DurationTest>>testMilliSecondsFromNumber (in category 'tests - from number') -----
- testMilliSecondsFromNumber
-
- self assert: 5 equals: 5 milliSeconds asMilliSeconds.
- self assert: -5 equals: -5 milliSeconds asMilliSeconds.
- self assert: 1 equals: 1 milliSeconds asMilliSeconds.
- self assert: -1 equals: -1 milliSeconds asMilliSeconds.
- self assert: 0 equals: 0 milliSeconds asMilliSeconds.
- self assert: 1500 equals: 1.5 milliSeconds asMicroSeconds.
- self assert: -1500 equals: -1.5 milliSeconds asMicroSeconds.
-
- self assert: 5 equals: 5 milliSecond asMilliSeconds.
- self assert: -5 equals: -5 milliSecond asMilliSeconds.
- self assert: 1 equals: 1 milliSecond asMilliSeconds.
- self assert: -1 equals: -1 milliSecond asMilliSeconds.
- self assert: 0 equals: 0 milliSecond asMilliSeconds.
- self assert: 1500 equals: 1.5 milliSecond asMicroSeconds.
- self assert: -1500 equals: -1.5 milliSecond asMicroSeconds.
- !
Item was removed:
- ----- Method: DurationTest>>testMinus (in category 'tests') -----
- testMinus
- self assert: aDuration - aDuration = (Duration seconds: 0).
- self assert: aDuration - (Duration days: -1 hours: -2 minutes: -3 seconds: -4 nanoSeconds: -5) =
- (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10).
- self assert: aDuration - (Duration days: 0 hours: 1 minutes: 2 seconds: 3 nanoSeconds: 4) =
- (Duration days: 1 hours: 1 minutes: 1 seconds: 1 nanoSeconds: 1).
- self assert: aDuration - (Duration days: 0 hours: 3 minutes: 0 seconds: 5 nanoSeconds: 0) =
- (Duration days: 0 hours: 23 minutes: 2 seconds: 59 nanoSeconds: 5). !
Item was removed:
- ----- Method: DurationTest>>testMinutes (in category 'tests') -----
- testMinutes
- self assert: aDuration minutes = 3.
- self assert: (Duration minutes: 3) minutes = 3. !
Item was removed:
- ----- Method: DurationTest>>testMinutesFromNumber (in category 'tests - from number') -----
- testMinutesFromNumber
-
- self assert: 5 equals: 5 minutes asSeconds / 60.
- self assert: -5 equals: -5 minutes asSeconds / 60.
- self assert: 1 equals: 1 minutes asSeconds / 60.
- self assert: -1 equals: -1 minutes asSeconds / 60.
- self assert: 0 equals: 0 minutes asSeconds / 60.
- self assert: 1500 equals: 1.5 minutes asMilliSeconds / 60.
- self assert: -1500 equals: -1.5 minutes asMilliSeconds / 60.
-
- self assert: 5 equals: 5 minute asSeconds / 60.
- self assert: -5 equals: -5 minute asSeconds / 60.
- self assert: 1 equals: 1 minute asSeconds / 60.
- self assert: -1 equals: -1 minute asSeconds / 60.
- self assert: 0 equals: 0 minute asSeconds / 60.
- self assert: 1500 equals: 1.5 minute asMilliSeconds / 60.
- self assert: -1500 equals: -1.5 minute asMilliSeconds / 60.
- !
Item was removed:
- ----- Method: DurationTest>>testModulo (in category 'tests') -----
- testModulo
-
- | d1 d2 d3 |
- d1 := 11.5 seconds.
- d2 := d1 \\ 3.
- self assert: d2 = (Duration nanoSeconds: 1).
-
- d3 := d1 \\ (3 seconds).
- self assert: d3 = (Duration seconds: 2 nanoSeconds: 500000000).
-
- self assert: aDuration \\ aDuration =
- (Duration days: 0 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0).
- self assert: aDuration \\ 2 =
- (Duration days: 0 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 1).
-
-
- !
Item was removed:
- ----- Method: DurationTest>>testMonthDurations (in category 'tests') -----
- testMonthDurations
-
- | jan feb dec |
- jan := Duration month: #January.
- feb := Duration month: #February.
- dec := Duration month: #December.
-
- self
- assert: jan = (Year current months first duration);
- assert: feb = (Year current months second duration);
- assert: dec = (Year current months last duration)
-
-
- !
Item was removed:
- ----- Method: DurationTest>>testMultiply (in category 'tests') -----
- testMultiply
- self assert: aDuration * 2 = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). !
Item was removed:
- ----- Method: DurationTest>>testNanoSeconds (in category 'tests') -----
- testNanoSeconds
- self assert: aDuration nanoSeconds = 5.
- self assert: (Duration nanoSeconds: 5) nanoSeconds = 5. !
Item was removed:
- ----- Method: DurationTest>>testNanoSecondsFromNumber (in category 'tests - from number') -----
- testNanoSecondsFromNumber
-
- self assert: 5 equals: 5 nanoSeconds asNanoSeconds.
- self assert: -5 equals: -5 nanoSeconds asNanoSeconds.
- self assert: 1 equals: 1 nanoSeconds asNanoSeconds.
- self assert: -1 equals: -1 nanoSeconds asNanoSeconds.
- self assert: 0 equals: 0 nanoSeconds asNanoSeconds.
-
- self assert: 5 equals: 5 nanoSecond asNanoSeconds.
- self assert: -5 equals: -5 nanoSecond asNanoSeconds.
- self assert: 1 equals: 1 nanoSecond asNanoSeconds.
- self assert: -1 equals: -1 nanoSecond asNanoSeconds.
- self assert: 0 equals: 0 nanoSecond asNanoSeconds.
- !
Item was removed:
- ----- Method: DurationTest>>testNegated (in category 'tests') -----
- testNegated
- self assert: aDuration + aDuration negated = (Duration seconds: 0).
- !
Item was removed:
- ----- Method: DurationTest>>testNegative (in category 'tests') -----
- testNegative
- self deny: aDuration negative.
- self assert: aDuration negated negative
- !
Item was removed:
- ----- Method: DurationTest>>testNew (in category 'tests') -----
- testNew
-
- self assert: Duration new = (Duration seconds: 0)!
Item was removed:
- ----- Method: DurationTest>>testNormalizeNanoSeconds (in category 'tests') -----
- testNormalizeNanoSeconds
- "Subtraction of two DateAndTime values may result in a request to
- create a Duration with negative nanoseconds and positive seconds.
- The resulting Duration should be normalized, otherwise its printString
- will be invalid."
-
- | d t1 t2 |
- t1 := '2004-01-07T11:55:01+00:00' asDateAndTime.
- t2 := '2004-01-07T11:55:00.9+00:00' asDateAndTime.
- d := t1 - t2. "100 millisecond difference"
- self assert: d nanoSeconds > 0.
- self assert: d seconds = 0.
- self assert: d nanoSeconds = 100000000.
- self assert: d asString = '0:00:00:00.100'.
- "Verify that other combinations produces reasonable printString values"
- self assert: (Duration seconds: 1 nanoSeconds: 100000000) printString = '0:00:00:01.100'.
- self assert: (Duration seconds: -1 nanoSeconds: -100000000) printString = '-0:00:00:01.100'.
- self assert: (Duration seconds: 1 nanoSeconds: -100000000) printString = '0:00:00:00.900'.
- self assert: (Duration seconds: -1 nanoSeconds: 100000000) printString = '-0:00:00:00.900'
- !
Item was removed:
- ----- Method: DurationTest>>testNumberConvenienceMethods (in category 'tests') -----
- testNumberConvenienceMethods
-
- self
- assert: 1 week = (Duration days: 7);
- assert: -1 week = (Duration days: -7);
- assert: 1 day = (Duration days: 1);
- assert: -1 day = (Duration days: -1);
- assert: 1 hours = (Duration hours: 1);
- assert: -1 hour = (Duration hours: -1);
- assert: 1 minute = (Duration seconds: 60);
- assert: -1 minute = (Duration seconds: -60);
- assert: 1 second = (Duration seconds: 1);
- assert: -1 second = (Duration seconds: -1);
- assert: 1 milliSecond = (Duration milliSeconds: 1);
- assert: -1 milliSecond = (Duration milliSeconds: -1);
- assert: 1 nanoSecond = (Duration nanoSeconds: 1);
- assert: -1 nanoSecond = (Duration nanoSeconds: -1)
- !
Item was removed:
- ----- Method: DurationTest>>testPlus (in category 'tests') -----
- testPlus
- self assert: (aDuration + 0 hours) = aDuration.
- self assert: (aDuration + aDuration) = (Duration days: 2 hours: 4 minutes: 6 seconds: 8 nanoSeconds: 10). !
Item was removed:
- ----- Method: DurationTest>>testPositive (in category 'tests') -----
- testPositive
- self assert: (Duration nanoSeconds: 0) positive.
- self assert: aDuration positive.
- self deny: aDuration negated positive
- !
Item was removed:
- ----- Method: DurationTest>>testPrintOn (in category 'tests') -----
- testPrintOn
- | ref ws |
- ref := '1:02:03:04.000000005'.
- ws := '' writeStream.
- aDuration printOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: DurationTest>>testQuotient (in category 'tests') -----
- testQuotient
-
- | d1 d2 q |
- d1 := 11.5 seconds.
- d2 := d1 // 3.
- self assert: d2 = (Duration seconds: 3 nanoSeconds: 833333333).
-
- q := d1 // (3 seconds).
- self assert: q = 3.
-
- !
Item was removed:
- ----- Method: DurationTest>>testReadFrom (in category 'tests') -----
- testReadFrom
- self assert: aDuration = (Duration readFrom: (ReadStream on: '1:02:03:04.000000005'))
- !
Item was removed:
- ----- Method: DurationTest>>testReadFromTrailingDigits (in category 'tests') -----
- testReadFromTrailingDigits
- "http://bugs.squeak.org/view.php?id=6764"
- self should: (Duration readFrom: '0:00:00:00.001 ' readStream) nanoSeconds = 1000000.!
Item was removed:
- ----- Method: DurationTest>>testRoundTo (in category 'tests') -----
- testRoundTo
-
- self assert: ((5 minutes + 37 seconds) roundTo: (2 minutes)) = (6 minutes).
-
- self assert: (aDuration roundTo: (Duration days: 1)) =
- (Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0).
- self assert: (aDuration roundTo: (Duration hours: 1)) =
- (Duration days: 1 hours: 2 minutes: 0 seconds: 0 nanoSeconds: 0).
- self assert: (aDuration roundTo: (Duration minutes: 1)) =
- (Duration days: 1 hours: 2 minutes: 3 seconds: 0 nanoSeconds: 0).!
Item was removed:
- ----- Method: DurationTest>>testSeconds (in category 'tests') -----
- testSeconds
- self assert: aDuration seconds = 4.
- self assert: (Duration nanoSeconds: 2) seconds = 0.
- self assert: (Duration nanoSeconds: 999999999) seconds = 0.
- self assert: (Duration nanoSeconds: 1000000001) seconds = 1.
- self assert: (Duration seconds: 2) seconds = 2.
- self assert: (Duration days: 1 hours: 2 minutes: 3 seconds:4) seconds = 4.
- self deny: (Duration days: 1 hours: 2 minutes: 3 seconds:4) seconds = (1*24*60*60+(2*60*60)+(3*60)+4). !
Item was removed:
- ----- Method: DurationTest>>testSecondsFromNumber (in category 'tests - from number') -----
- testSecondsFromNumber
-
- self assert: 5 equals: 5 seconds asSeconds.
- self assert: -5 equals: -5 seconds asSeconds.
- self assert: 1 equals: 1 seconds asSeconds.
- self assert: -1 equals: -1 seconds asSeconds.
- self assert: 0 equals: 0 seconds asSeconds.
- self assert: 1500 equals: 1.5 seconds asMilliSeconds.
- self assert: -1500 equals: -1.5 seconds asMilliSeconds.
-
- self assert: 5 equals: 5 second asSeconds.
- self assert: -5 equals: -5 second asSeconds.
- self assert: 1 equals: 1 second asSeconds.
- self assert: -1 equals: -1 second asSeconds.
- self assert: 0 equals: 0 second asSeconds.
- self assert: 1500 equals: 1.5 second asMilliSeconds.
- self assert: -1500 equals: -1.5 second asMilliSeconds.
- !
Item was removed:
- ----- Method: DurationTest>>testSecondsNanoSeconds (in category 'tests') -----
- testSecondsNanoSeconds
- self assert: (Duration seconds: 0 nanoSeconds: 5) = (Duration nanoSeconds: 5).
- "not sure I should include in sunit since its Private "
- self assert: (aDuration seconds: 0 nanoSeconds: 1) = (Duration nanoSeconds: 1).
- !
Item was removed:
- ----- Method: DurationTest>>testStoreOn (in category 'tests') -----
- testStoreOn
- self assert: (aDuration storeOn: (WriteStream on:'')) asString ='1:02:03:04.000000005'.
- "storeOn: returns a duration (self) not a stream"!
Item was removed:
- ----- Method: DurationTest>>testTicks (in category 'tests') -----
- testTicks
- self assert: aDuration ticks = #(1 7384 5)!
Item was removed:
- ----- Method: DurationTest>>testTruncateTo (in category 'tests') -----
- testTruncateTo
-
- self assert: ((5 minutes + 37 seconds) truncateTo: (2 minutes)) = (4 minutes).
- self assert: (aDuration truncateTo: (Duration days: 1)) =
- (Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0).
- self assert: (aDuration truncateTo: (Duration hours: 1)) =
- (Duration days: 1 hours: 2 minutes: 0 seconds: 0 nanoSeconds: 0).
- self assert: (aDuration truncateTo: (Duration minutes: 1)) =
- (Duration days: 1 hours: 2 minutes: 3 seconds: 0 nanoSeconds: 0).!
Item was removed:
- ----- Method: DurationTest>>testWait (in category 'tests') -----
- testWait
-
- | duration start elapsed |
- duration := Duration milliSeconds: 500.
- start := DateAndTime now.
-
- duration wait.
- elapsed := DateAndTime now - start.
-
- self assert: elapsed >= duration.
- self assert: elapsed <= (duration * 2).!
Item was removed:
- ----- Method: DurationTest>>testWeeks (in category 'tests') -----
- testWeeks
- self assert: (Duration weeks: 1) days= 7. !
Item was removed:
- ----- Method: DurationTest>>testWeeksFromNumber (in category 'tests - from number') -----
- testWeeksFromNumber
-
- self assert: 5 equals: 5 weeks asSeconds / 604800.
- self assert: -5 equals: -5 weeks asSeconds / 604800.
- self assert: 1 equals: 1 weeks asSeconds / 604800.
- self assert: -1 equals: -1 weeks asSeconds / 604800.
- self assert: 0 equals: 0 weeks asSeconds / 604800.
- self assert: 1500 equals: 1.5 weeks asMilliSeconds / 604800.
- self assert: -1500 equals: -1.5 weeks asMilliSeconds / 604800.
-
- self assert: 5 equals: 5 week asSeconds / 604800.
- self assert: -5 equals: -5 week asSeconds / 604800.
- self assert: 1 equals: 1 week asSeconds / 604800.
- self assert: -1 equals: -1 week asSeconds / 604800.
- self assert: 0 equals: 0 week asSeconds / 604800.
- self assert: 1500 equals: 1.5 week asMilliSeconds / 604800.
- self assert: -1500 equals: -1.5 week asMilliSeconds / 604800.
- !
Item was removed:
- ----- Method: DurationTest>>testZero (in category 'tests') -----
- testZero
- self assert: (Duration zero) = (Duration seconds: 0). !
Item was removed:
- ClassTestCase subclass: #MonthTest
- instanceVariableNames: 'month'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !MonthTest commentStamp: 'brp 7/26/2003 22:44' prior: 0!
- This is the unit test for the class Month.
- !
Item was removed:
- ----- Method: MonthTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Month!
Item was removed:
- ----- Method: MonthTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | deprecated private special |
- deprecated := #().
- private := #( #printOn: ).
- special := #( #next ).
-
- ^ super selectorsToBeIgnored, deprecated, private, special.!
Item was removed:
- ----- Method: MonthTest>>setUp (in category 'Running') -----
- setUp
-
- super setUp.
- month := Month month: 7 year: 1998.!
Item was removed:
- ----- Method: MonthTest>>tearDown (in category 'Running') -----
- tearDown
-
- super tearDown.
- month := nil.!
Item was removed:
- ----- Method: MonthTest>>testConverting (in category 'Tests') -----
- testConverting
-
- self assert: month asDate = '1 July 1998' asDate!
Item was removed:
- ----- Method: MonthTest>>testEnumerating (in category 'Tests') -----
- testEnumerating
- | weeks |
- weeks := OrderedCollection new.
- month weeksDo: [ :w | weeks add: w start ].
- 0 to: 4 do: [ :i | weeks remove: (Week starting: ('29 June 1998' asDate addDays: i * 7)) start ].
- self assert: weeks isEmpty!
Item was removed:
- ----- Method: MonthTest>>testIndexOfMonth (in category 'Tests') -----
- testIndexOfMonth
-
- | m |
- m := #(#January #February #March #April #May #June #July #August #September #October #November #December).
-
- m withIndexDo: [:item :index | self assert: (Month indexOfMonth: item) = index].
-
- self shouldRaiseError: [Month indexOfMonth: 1].
- self shouldRaiseError: [Month indexOfMonth: #'1'].
- self shouldRaiseError: [Month indexOfMonth: #Marsh]. "notice the misspell!!"
- self shouldRaiseError: [Month indexOfMonth: #UnexistingMonth].!
Item was removed:
- ----- Method: MonthTest>>testInquiries (in category 'Tests') -----
- testInquiries
-
- self
- assert: month index = 7;
- assert: month name = #July;
- assert: month duration = (31 days).
- !
Item was removed:
- ----- Method: MonthTest>>testInstanceCreation (in category 'Tests') -----
- testInstanceCreation
- | m1 m2 |
- m1 := Month starting: '4 July 1998' asDate.
- m2 := Month month: #July year: 1998.
- self
- assert: month = m1;
- assert: month = m2!
Item was removed:
- ----- Method: MonthTest>>testNameOfMonth (in category 'Tests') -----
- testNameOfMonth
-
- | m |
- m := #(#January #February #March #April #May #June #July #August #September #October #November #December).
-
- m withIndexDo: [:item :index | self assert: (Month nameOfMonth: index) = item].
-
- self shouldRaiseError: [Month nameOfMonth: 0].
- self shouldRaiseError: [Month nameOfMonth: 13].
- self shouldRaiseError: [Month nameOfMonth: #January].!
Item was removed:
- ----- Method: MonthTest>>testPreviousNext (in category 'Tests') -----
- testPreviousNext
- | n p |
- n := month next.
- p := month previous.
-
- self
- assert: n year = 1998;
- assert: n index = 8;
- assert: p year = 1998;
- assert: p index = 6.
-
- !
Item was removed:
- ----- Method: MonthTest>>testPrinting (in category 'Tests') -----
- testPrinting
-
- self
- assert: month printString = 'July 1998'.
- !
Item was removed:
- ----- Method: MonthTest>>testReadFrom (in category 'Tests') -----
- testReadFrom
-
- | m |
- m := Month readFrom: 'July 1998' readStream.
- self
- assert: m = month!
Item was removed:
- ClassTestCase subclass: #ScheduleTest
- instanceVariableNames: 'firstEvent aSchedule restoredTimeZone localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: ScheduleTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Schedule
-
- !
Item was removed:
- ----- Method: ScheduleTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | private |
- private := #( #printOn: ).
-
- ^ super selectorsToBeIgnored, private
- !
Item was removed:
- ----- Method: ScheduleTest>>setUp (in category 'running') -----
- setUp
- "Schedule is a type of Timespan representing repeated occurences of the same event.
- The beginning of the schedule is the first occurrence of the event.
- A schedule maintains an array of Durations.
- Each durations specify the offset to the next scheduled each.
- The duration of each occurence of the event is not specified.
- Nor are any other attributes such as name"
-
- restoredTimeZone := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
-
- "Create aSchedule with an event scheduled for 8:30pm every Saturday
- and Sunday for the year 2003. "
- "Create the first event occurring on the first Saturday at 8:30 pm: 1/4/03"
- firstEvent := DateAndTime year: 2003 month: 1 day: 4 hour: 20 minute: 30.
-
- "Create a schedule for one year starting with the first event"
- aSchedule := Schedule starting: firstEvent duration: 52 weeks.
-
- "Schedule the recurring events by scheduling the time in between each one.
- One day for Sat-Sun. 6 days for Sun-Sat"
- aSchedule schedule: { Duration days: 1. Duration days: 6 }.
- !
Item was removed:
- ----- Method: ScheduleTest>>tearDown (in category 'running') -----
- tearDown
-
- DateAndTime localTimeZone: restoredTimeZone.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.
- !
Item was removed:
- ----- Method: ScheduleTest>>testBetweenAndDoDisjointWithSchedule (in category 'testing') -----
- testBetweenAndDoDisjointWithSchedule
- | count |
- count := 0.
- aSchedule
- between: (DateAndTime
- year: 2004
- month: 4
- day: 1)
- and: (DateAndTime
- year: 2004
- month: 4
- day: 30)
- do: [:each | count := count + 1].
- self assert: count = 0!
Item was removed:
- ----- Method: ScheduleTest>>testBetweenAndDoIncludedInSchedule (in category 'testing') -----
- testBetweenAndDoIncludedInSchedule
- | count |
- count := 0.
- aSchedule
- between: (DateAndTime
- year: 2003
- month: 4
- day: 1)
- and: (DateAndTime
- year: 2003
- month: 4
- day: 30)
- do: [:each | count := count + 1].
- self assert: count = 8!
Item was removed:
- ----- Method: ScheduleTest>>testBetweenAndDoOverlappingSchedule (in category 'testing') -----
- testBetweenAndDoOverlappingSchedule
- | count |
- count := 0.
- aSchedule
- between: (DateAndTime
- year: 2002
- month: 12
- day: 1)
- and: (DateAndTime
- year: 2003
- month: 1
- day: 31)
- do: [:each | count := count + 1].
- self assert: count = 8!
Item was removed:
- ----- Method: ScheduleTest>>testDateAndTimes (in category 'testing') -----
- testDateAndTimes
- | answer |
- self assert: aSchedule dateAndTimes size = 104.
- self assert: aSchedule dateAndTimes first = firstEvent.
- answer := true.
- aSchedule dateAndTimes do: [:each | (each dayOfWeekName = 'Saturday'
- or: [each dayOfWeekName = 'Sunday']) ifFalse: [^false]].
- self assert: answer
- !
Item was removed:
- ----- Method: ScheduleTest>>testExampleFromSwikiPage (in category 'testing') -----
- testExampleFromSwikiPage
- "It is often neccessary to schedule repeated events, like airline flight schedules, TV programmes, and file backups.
- Schedule is a Timespan which maintains an array of Durations.
- The durations specify the offset to the next scheduled DateAndTime. "
- "Consider a TV programme scheduled for 8:30pm every Saturday and Sunday for the current year. "
- "Find the first Saturday and set its time to 20h30"
- | sat shows |
- sat := Year current asMonth dates detect: [ :d | d dayOfWeekName = #Saturday ].
- sat := sat start + (Duration hours: 20.5).
- "Create a schedule"
- shows := Schedule starting: sat ending: Year current end.
- shows schedule: { Duration days: 1. Duration days: 6 }.
- "To inspect:"
- shows dateAndTimes.
- shows dateAndTimes collect: [ :dt | dt dayOfWeekName ].
-
- !
Item was removed:
- ----- Method: ScheduleTest>>testFromDateAndTime (in category 'Tests') -----
- testFromDateAndTime
-
- | oc1 oc2 |
- oc1 := OrderedCollection new.
- DateAndTime today to: DateAndTime tomorrow by: 10 hours do: [ :dt | oc1 add: dt ].
-
- oc2 := { DateAndTime today.
- (DateAndTime today + 10 hours).
- (DateAndTime today + 20 hours) }.
-
- self assert: (oc1 asArray = oc2)!
Item was removed:
- ----- Method: ScheduleTest>>testIncludes (in category 'testing') -----
- testIncludes
- self assert: (aSchedule includes: (DateAndTime year: 2003 month: 6 day: 15 hour: 20 minute: 30 second: 0 offset: 0 hours))
-
- !
Item was removed:
- ----- Method: ScheduleTest>>testMonotonicity (in category 'Tests') -----
- testMonotonicity
-
- | t1 t2 t3 t4 |
- t1 := DateAndTime now.
- t2 := DateAndTime now.
- t3 := DateAndTime now.
- t4 := DateAndTime now.
-
- self
- assert: ( t1 <= t2);
- assert: ( t2 <= t3);
- assert: ( t3 <= t4).
- !
Item was removed:
- ----- Method: ScheduleTest>>testSchedule (in category 'testing') -----
- testSchedule
- self assert: aSchedule schedule size = 2.
- self assert: aSchedule schedule first = 1 days.
- self assert: aSchedule schedule second = 6 days.
- !
Item was removed:
- ClassTestCase subclass: #StopwatchTest
- instanceVariableNames: 'aStopwatch aDelay'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: StopwatchTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Stopwatch
-
- !
Item was removed:
- ----- Method: StopwatchTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | private |
- private := #( #printOn: #state: ).
-
- ^ super selectorsToBeIgnored, private
- !
Item was removed:
- ----- Method: StopwatchTest>>setUp (in category 'running') -----
- setUp
- aStopwatch := Stopwatch new.
- aDelay := Delay forMilliseconds: 1.!
Item was removed:
- ----- Method: StopwatchTest>>testActive (in category 'Tests') -----
- testActive
-
- | sw |
- sw := Stopwatch new.
- sw activate.
-
- 1 seconds asDelay wait.
- self
- assert: (sw duration >= 1 seconds).
-
- 2 seconds asDelay wait.
- self
- assert: (sw duration >= 3 seconds).
-
- sw suspend.!
Item was removed:
- ----- Method: StopwatchTest>>testChangingStatus (in category 'testing') -----
- testChangingStatus
- aStopwatch activate.
- self assert: aStopwatch isActive.
- self assert: aStopwatch timespans size = 1.
- aStopwatch suspend.
- self assert: aStopwatch isSuspended.
- self assert: aStopwatch timespans size = 1.
- aStopwatch activate.
- aStopwatch reActivate.
- self assert: aStopwatch isActive.
- self assert: aStopwatch timespans size = 3.
- aStopwatch reset.
- self assert: aStopwatch isSuspended.
- self assert: aStopwatch timespans size = 0.!
Item was removed:
- ----- Method: StopwatchTest>>testInitialStatus (in category 'testing') -----
- testInitialStatus
- self assert: aStopwatch isSuspended.
- self deny: aStopwatch isActive.
- self assert: aStopwatch duration = 0 seconds!
Item was removed:
- ----- Method: StopwatchTest>>testMultipleTimings (in category 'testing') -----
- testMultipleTimings
- aStopwatch activate.
- aDelay wait.
- aStopwatch suspend.
- aStopwatch activate.
- aDelay wait.
- aStopwatch suspend.
- self assert: aStopwatch timespans size = 2.
- self assert: aStopwatch timespans first asDateAndTime <=
- aStopwatch timespans last asDateAndTime.
- !
Item was removed:
- ----- Method: StopwatchTest>>testNew (in category 'Tests') -----
- testNew
-
- | sw |
- sw := Stopwatch new.
-
- self
- assert: (sw isSuspended);
- assert: (sw state = #suspended);
- deny: (sw isActive);
- assert: (sw timespans isEmpty)
-
- !
Item was removed:
- ----- Method: StopwatchTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | ref ws |
- ref := 'a Stopwatch(suspended:0:00:00:00)'.
- ws := '' writeStream.
- aStopwatch printOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: StopwatchTest>>testReActivate (in category 'Tests') -----
- testReActivate
-
- | sw |
- sw := Stopwatch new.
- sw
- activate;
- suspend;
- reActivate.
-
- self
- assert: (sw isActive).
- !
Item was removed:
- ----- Method: StopwatchTest>>testReset (in category 'Tests') -----
- testReset
-
- | sw |
- sw := Stopwatch new.
- sw activate.
-
- sw reset.
- self
- assert: (sw isSuspended);
- assert: (sw timespans isEmpty)
- !
Item was removed:
- ----- Method: StopwatchTest>>testSingleTiming (in category 'testing') -----
- testSingleTiming
- | timeBefore |
- timeBefore := DateAndTime now.
- aStopwatch activate.
- aDelay wait.
- aStopwatch suspend.
- self assert: aStopwatch timespans size = 1.
- self assert: aStopwatch timespans first asDateAndTime >= timeBefore.
- self assert: aStopwatch timespans first asDateAndTime <= aStopwatch end.
- !
Item was removed:
- ----- Method: StopwatchTest>>testStartStop (in category 'Tests') -----
- testStartStop
-
- | sw t1 t2 t3 t4 |
- sw := Stopwatch new.
- t1 := DateAndTime now.
- (Delay forMilliseconds: 10) wait.
- sw activate; activate.
- (Delay forMilliseconds: 10) wait.
- t2 := DateAndTime now.
-
- self
- deny: (sw isSuspended);
- assert: (sw isActive);
- assert: (sw timespans size = 1);
- assert: (t1 <= sw start);
- assert: (sw start <= t2).
-
- (Delay forMilliseconds: 10) wait.
- t3 := DateAndTime now.
- (Delay forMilliseconds: 10) wait.
- sw suspend; suspend.
- (Delay forMilliseconds: 10) wait.
- t4 := DateAndTime now.
-
- self
- assert: (sw isSuspended);
- deny: (sw isActive);
- assert: (sw timespans size = 1);
- assert: (sw end between: t3 and: t4);
- assert: (t3 <= sw end);
- assert: (sw end <= t4).
- !
Item was removed:
- ClassTestCase subclass: #TimeStampTest
- instanceVariableNames: 'timestamp aTimeStamp'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !TimeStampTest commentStamp: 'brp 7/26/2003 22:44' prior: 0!
- This is the unit test for the class TimeStamp.!
Item was removed:
- ----- Method: TimeStampTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ self timestampClass!
Item was removed:
- ----- Method: TimeStampTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | deprecated private special |
-
- deprecated := #().
- private := #( #printOn: ).
- special := #().
-
- ^ super selectorsToBeIgnored, deprecated, private, special.!
Item was removed:
- ----- Method: TimeStampTest>>setUp (in category 'Running') -----
- setUp
-
- timestamp := self timestampClass date: ('1-10-2000' asDate) time: ('11:55:00 am' asTime).
-
- aTimeStamp := TimeStamp readFrom: '1-02-2004 12:34:56 am' readStream!
Item was removed:
- ----- Method: TimeStampTest>>tearDown (in category 'Running') -----
- tearDown
-
- timestamp := nil.!
Item was removed:
- ----- Method: TimeStampTest>>testAccessing (in category 'Tests') -----
- testAccessing
-
- | d t |
- d := '1-10-2000' asDate.
- t := '11:55:00 am' asTime.
-
- self
- assert: (timestamp offset: Date defaultOffset) date = d;
- assert: (timestamp offset: Date defaultOffset) time = t.
- !
Item was removed:
- ----- Method: TimeStampTest>>testArithmetic (in category 'Tests') -----
- testArithmetic
-
- | ts |
- ts := timestamp minusDays: 123. "9 September 1999, 11:55 am"
- ts := ts minusSeconds: 1056. "9 September 1999, 11:37:24 am"
- ts := ts plusDays: 123. "10 January 2000, 11:37:24 am"
- ts := ts plusSeconds: 1056. "10 January 2000, 11:55 am"
- self
- assert: ts = timestamp.
-
- !
Item was removed:
- ----- Method: TimeStampTest>>testArithmeticAcrossDateBoundary (in category 'Tests') -----
- testArithmeticAcrossDateBoundary
-
- | ts |
- ts := timestamp minusSeconds: ((11*3600) + (55*60) + 1).
- self
- assert: ts = ('1-9-2000 11:59:59 pm' asTimeStamp).
-
- !
Item was removed:
- ----- Method: TimeStampTest>>testComparing (in category 'Tests') -----
- testComparing
-
- | ts1 ts2 ts3 c1 c2 le |
- ts1 := self timestampClass date: ('01-10-2000' asDate) time: ('11:55:00 am' asTime).
- ts2 := self timestampClass date: ('07-26-2003' asDate) time: ('22:09:45 am' asTime).
- ts3 := self timestampClass date: ('05-28-1972' asDate) time: ('04:31:14 pm' asTime).
-
- self
- assert: ts1 = timestamp;
- assert: ts1 hash = timestamp hash;
- assert: timestamp = timestamp copy;
- assert: ts1 < ts2;
- deny: ts1 < ts3.
-
- c1 := self timestampClass current.
- c2 := self timestampClass current.
- le := (c1 <= c2).
- self assert: le.
-
- !
Item was removed:
- ----- Method: TimeStampTest>>testConverting (in category 'Tests') -----
- testConverting
-
- | d t |
- d := '1-10-2000' asDate.
- t := '11:55:00 am' asTime.
-
- self
- assert: timestamp asSeconds = (d asSeconds + t asSeconds);
- assert: timestamp asDate = d;
- assert: timestamp asTime = t;
- assert: timestamp asTimeStamp == timestamp;
- assert: timestamp dateAndTime = {d. t}.
- !
Item was removed:
- ----- Method: TimeStampTest>>testDate (in category 'testing') -----
- testDate
- self assert: aTimeStamp date = '01-02-2004' asDate!
Item was removed:
- ----- Method: TimeStampTest>>testDateAndTime (in category 'testing') -----
- testDateAndTime
- self assert: aTimeStamp dateAndTime
- = (Array with: '01-02-2004' asDate with: '00:34:56' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testFromSeconds (in category 'Tests') -----
- testFromSeconds
-
- self
- assert: (self timestampClass fromSeconds: 3124958100) = timestamp.!
Item was removed:
- ----- Method: TimeStampTest>>testFromString (in category 'Tests') -----
- testFromString
- "This should signal an exception in 3.6beta as Time>>fromString: does not exist."
-
- self should: [ timestamp = (self timestampClass fromString: '1-10-2000 11:55:00 am') ]
-
- !
Item was removed:
- ----- Method: TimeStampTest>>testInstanceCreation (in category 'Tests') -----
- testInstanceCreation
-
- self
- should: [ self timestampClass midnight asDuration = (0 hours) ];
- should: [ self timestampClass noon asDuration = (12 hours) ].
- !
Item was removed:
- ----- Method: TimeStampTest>>testMinusDays (in category 'testing') -----
- testMinusDays
- self assert: (aTimeStamp minusDays: 5) dateAndTime
- = (Array with: '12-28-2003' asDate with: '00:34:56' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testMinusSeconds (in category 'testing') -----
- testMinusSeconds
- self assert: (aTimeStamp minusSeconds: 34 * 60 + 56) dateAndTime
- = (Array with: '01-02-2004' asDate with: '00:00:00' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testMinusSecondsOverMidnight (in category 'testing') -----
- testMinusSecondsOverMidnight
- self assert: (aTimeStamp minusSeconds: 34 * 60 + 57) dateAndTime
- = (Array with: '01-01-2004' asDate with: '23:59:59' asTime)
- "Bug The results are actual results are: #(1 January 2005 11:25:03 pm)"!
Item was removed:
- ----- Method: TimeStampTest>>testPlusDays (in category 'testing') -----
- testPlusDays
- self assert: (aTimeStamp plusDays: 366) dateAndTime
- = (Array with: '01-02-2005' asDate with: '00:34:56' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testPlusSeconds (in category 'testing') -----
- testPlusSeconds
- self assert: (aTimeStamp plusSeconds: 60 * 60 ) dateAndTime
- = (Array with: '01-02-2004' asDate with: '01:34:56' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testPlusSecondsOverMidnight (in category 'testing') -----
- testPlusSecondsOverMidnight
- self assert: (aTimeStamp plusSeconds: 24 * 60 * 60 + 1) dateAndTime
- = (Array with: '01-03-2004' asDate with: '00:34:57' asTime)!
Item was removed:
- ----- Method: TimeStampTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | ref ws |
- ref := '2 January 2004 12:34:56 am'.
- ws := '' writeStream.
- aTimeStamp printOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: TimeStampTest>>testPrinting (in category 'Tests') -----
- testPrinting
-
- self
- assert: timestamp printString = '10 January 2000 11:55 am'.
- !
Item was removed:
- ----- Method: TimeStampTest>>testReadFromA1 (in category 'testing') -----
- testReadFromA1
- "Conversion to and from a string (with implied UTC offset) is equal if
- and only if the time stamp has zero offset."
- |ts|
- ts := TimeStamp current offset: Duration zero. "current as UTC"
- self assert: (ts = (TimeStamp fromString: ts asString)).
- ts := TimeStamp current offset: (Duration hours: 1).
- self deny: (ts = (TimeStamp fromString: ts asString)).
- !
Item was removed:
- ----- Method: TimeStampTest>>testSorting (in category 'Tests') -----
- testSorting
-
- | c1 c2 |
- c1 := self timestampClass current.
- c2 := self timestampClass current.
-
- self
- assert: (self timestampClass current) <= (self timestampClass current);
- assert: (c1 <= c2).
-
-
- !
Item was removed:
- ----- Method: TimeStampTest>>testStoreOn (in category 'testing') -----
- testStoreOn
- | ref ws |
- ref := '''2 January 2004 12:34:56 am'' asTimeStamp'.
- ws := '' writeStream.
- aTimeStamp storeOn: ws.
- self assert: ws contents = ref!
Item was removed:
- ----- Method: TimeStampTest>>testTime (in category 'testing') -----
- testTime
- self assert: aTimeStamp time = '00:34:56' asTime!
Item was removed:
- ----- Method: TimeStampTest>>testTimeStamp (in category 'testing') -----
- testTimeStamp
- self assert: aTimeStamp = aTimeStamp asTimeStamp
- !
Item was removed:
- ----- Method: TimeStampTest>>timestampClass (in category 'Private') -----
- timestampClass
-
- ^ TimeStamp!
Item was removed:
- ClassTestCase subclass: #TimeTest
- instanceVariableNames: 'time aTime localTimeZoneToRestore timeWithNanos localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !TimeTest commentStamp: '<historical>' prior: 0!
- This is the unit test for the class Time.
-
- !
Item was removed:
- ----- Method: TimeTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ self timeClass!
Item was removed:
- ----- Method: TimeTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | deprecated private special primitives timing benchmarks |
-
- deprecated := #().
- private := #( #print24:on: #print24:showSeconds:on: ).
- special := #( #< #= #new #printOn: #storeOn: ).
- primitives := #().
- timing := #( #millisecondClockValue #milliseconds:since: #millisecondsSince: ).
- benchmarks := #( #benchmarkMillisecondClock #benchmarkPrimitiveResponseDelay ).
-
- ^ super selectorsToBeIgnored, deprecated, private, special, primitives, timing, benchmarks.!
Item was removed:
- ----- Method: TimeTest>>setUp (in category 'Running') -----
- setUp
-
- localTimeZoneToRestore := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- DateAndTime localTimeZone: TimeZone default.
- time := self timeClass fromSeconds: 14567. "4:02:47 am"
- aTime := self timeClass readFrom: '12:34:56 pm' readStream.
- timeWithNanos := self timeClass fromSeconds: 14567.42.
- !
Item was removed:
- ----- Method: TimeTest>>tearDown (in category 'Running') -----
- tearDown
- DateAndTime localTimeZone: localTimeZoneToRestore.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.
- !
Item was removed:
- ----- Method: TimeTest>>testAccessing (in category 'Tests') -----
- testAccessing
-
- self
- assert: time hours = 4;
- assert: time minutes = 2;
- assert: time seconds = 47;
- assert: time asSeconds = 14567.
- !
Item was removed:
- ----- Method: TimeTest>>testAddSeconds (in category 'testing') -----
- testAddSeconds
- self assert: (aTime addSeconds: 1) = (Time readFromString: '12:34:57').
- self assert: (aTime addSeconds: 60) = (Time readFromString: '12:35:56').
- self assert: (aTime addSeconds: 3600) = (Time readFromString: '13:34:56').
- self assert: (aTime addSeconds: 24*60*60) = (Time readFromString: '12:34:56').!
Item was removed:
- ----- Method: TimeTest>>testAddSecondsNanoSecondRollover (in category 'testing') -----
- testAddSecondsNanoSecondRollover
-
- | time1 time2 time3 time4 time5 time6 time7 time8 |
- time1 := Time fromSeconds: 1.2s.
- time2 := time1 addSeconds: 1.3s.
- "n.b. use ticks second to access seconds instvar because #asSeconds is
- questionable and possibly subject to future change -dtl"
- self assert: 2 equals: time2 ticks second.
- self assert: 500000000 equals: time2 nanoSecond.
- time3 := Time fromSeconds: 1.9s.
- time4 := time3 addSeconds: 1.2s.
- self assert: 3 equals: time4 ticks second.
- self assert: 100000000 equals: time4 nanoSecond.
- time5 := Time fromSeconds: 0.9s.
- time6 := time5 addSeconds: 0.2s.
- self assert: 1 equals: time6 ticks second.
- self assert: 100000000 equals: time6 nanoSecond.
- time7 := time5 addSeconds: 1.
- self assert: 1 equals: time7 ticks second.
- self assert: 900000000 equals: time7 nanoSecond.
- "midnight rollover"
- time8 := '11:59:59.505 pm' asTime addSeconds: 1.0101.
- self assert: 0 equals: time8 ticks second.
- self assert: 515100000 equals: time8 nanoSecond.
- !
Item was removed:
- ----- Method: TimeTest>>testAddSecondsWithNanos (in category 'testing') -----
- testAddSecondsWithNanos
- self assert: (timeWithNanos addSeconds: 1) = (Time readFromString: '4:02:48.42 am').
- self assert: (timeWithNanos addSeconds: 60) = (Time readFromString: '4:03:47.42 am').
- self assert: (timeWithNanos addSeconds: 3600) = (Time readFromString: '5:02:47.42 am').
- self assert: (timeWithNanos addSeconds: 24*60*60) = (Time readFromString: '4:02:47.42 am').
- "rollover after midnight"
- self assert: (timeWithNanos addSeconds: 71832) = (Time readFromString: '11:59:59.42 pm').
- self assert: (timeWithNanos addSeconds: 71833) = (Time readFromString: '00:00:00.42 am').
- !
Item was removed:
- ----- Method: TimeTest>>testAddTime (in category 'testing') -----
- testAddTime
- self assert: (aTime addTime: aTime) = (Time readFromString: '01:09:52').
- !
Item was removed:
- ----- Method: TimeTest>>testArithmetic (in category 'Tests') -----
- testArithmetic
- | t1 t2 t3 |
- t1 := time addSeconds: 70. "4:03:57 am"
- self
- assert: t1 hours = 4;
- assert: t1 minutes = 3;
- assert: t1 seconds = 57.
-
- t2 := t1 addTime: (self timeClass fromSeconds: (60*60*5)).
- self
- assert: t2 hours = 9;
- assert: t2 minutes = 3;
- assert: t2 seconds = 57.
-
- t3 := t2 subtractTime: (self timeClass fromSeconds: (60*60*5) + 70).
- self
- assert: t3 = time.
- !
Item was removed:
- ----- Method: TimeTest>>testAsDate (in category 'testing') -----
- testAsDate
- self assert: (aTime asDate) = (Date current)
- !
Item was removed:
- ----- Method: TimeTest>>testAsDateAndTime (in category 'testing') -----
- testAsDateAndTime
- self assert: (aTime asDateAndTime) = (DateAndTime current midnight + aTime)
- !
Item was removed:
- ----- Method: TimeTest>>testAsDuration (in category 'testing') -----
- testAsDuration
- self assert: (aTime asDuration) = (Duration days: 0 hours: 12 minutes: 34 seconds: 56)
- !
Item was removed:
- ----- Method: TimeTest>>testAsNanoSeconds (in category 'testing') -----
- testAsNanoSeconds
- self assert: (aTime asNanoSeconds) = 45296000000000
-
- !
Item was removed:
- ----- Method: TimeTest>>testAsSeconds (in category 'testing') -----
- testAsSeconds
- self assert: (aTime asSeconds) = 45296
- !
Item was removed:
- ----- Method: TimeTest>>testAsTime (in category 'testing') -----
- testAsTime
- self assert: (aTime asTime) = aTime
-
- !
Item was removed:
- ----- Method: TimeTest>>testAsTimeStamp (in category 'testing') -----
- testAsTimeStamp
- self assert: (aTime asTimeStamp) = (DateAndTime current midnight + aTime) asTimeStamp
- !
Item was removed:
- ----- Method: TimeTest>>testAsWeek (in category 'testing') -----
- testAsWeek
- self assert: aTime asWeek = (DateAndTime current midnight + aTime) asWeek
- !
Item was removed:
- ----- Method: TimeTest>>testAsYear (in category 'testing') -----
- testAsYear
- self assert: aTime asYear = (DateAndTime current midnight + aTime) asYear
- !
Item was removed:
- ----- Method: TimeTest>>testComparing (in category 'Tests') -----
- testComparing
- | t1 t2 t3 |
- t1 := self timeClass fromSeconds: 14567. "4:02:47 am"
- t2 := self timeClass fromSeconds: 5000. "1:23:20 am"
- t3 := self timeClass fromSeconds: 80000. "10:13:20 pm"
-
- self
- assert: time = t1;
- assert: time hash = t1 hash;
- assert: time = time copy.
- self
- deny: t1 < t2;
- assert: t1 < t3.!
Item was removed:
- ----- Method: TimeTest>>testConverting (in category 'Tests') -----
- testConverting
-
- self
- assert: time asSeconds = 14567.!
Item was removed:
- ----- Method: TimeTest>>testDuration (in category 'testing') -----
- testDuration
- self assert: aTime duration = 0 seconds!
Item was removed:
- ----- Method: TimeTest>>testEqual (in category 'testing') -----
- testEqual
- self assert: aTime = (Time readFromString: '12:34:56').!
Item was removed:
- ----- Method: TimeTest>>testFromSeconds (in category 'Tests') -----
- testFromSeconds
- | t |
- t := self timeClass fromSeconds: 14567.
- self
- assert: t = time
- !
Item was removed:
- ----- Method: TimeTest>>testGeneralInquiries (in category 'Tests') -----
- testGeneralInquiries
- | now d t dt epsilon |
-
- "vm clocks seem to work differently across platforms, so an epsilon is required"
- epsilon := 1. "second"
- now := self timeClass dateAndTimeNow.
- self
- assert: now size = 2;
- assert: (now last asSeconds - self timeClass now asSeconds) abs <= epsilon.
-
- self should: [ self timeClass timeWords ] raise: MessageNotUnderstood.
-
- d := '2 June 1973' asDate.
- t := '4:02:47 am' asTime.
- dt := self timeClass dateAndTimeFromSeconds: (2285280000 + 14567).
- self
- assert: dt = {d. t.}.
- !
Item was removed:
- ----- Method: TimeTest>>testHash (in category 'testing') -----
- testHash
- self assert: aTime hash = (Character instSize > 0 ifTrue: [607004] ifFalse: [101409191])!
Item was removed:
- ----- Method: TimeTest>>testHhmm24 (in category 'testing') -----
- testHhmm24
- self assert: aTime hhmm24 = '1234'!
Item was removed:
- ----- Method: TimeTest>>testHour (in category 'testing') -----
- testHour
- self assert: aTime hour = 12.
- self assert: aTime hour12 = 12.
- self assert: aTime hour24 = 12.
- self assert: aTime hours = 12.!
Item was removed:
- ----- Method: TimeTest>>testHumanWordsForSecondsAgo (in category 'testing') -----
- testHumanWordsForSecondsAgo
- self assert: (Time humanWordsForSecondsAgo: 0.999999999)
- = 'a second ago'.
- self assert: (Time humanWordsForSecondsAgo: 44.99999999)
- = '44.99999999 seconds ago'.
- self assert: (Time humanWordsForSecondsAgo: 89.999999999)
- = 'a minute ago'.
- self assert: (Time humanWordsForSecondsAgo: 2699.999999999)
- = '44 minutes ago'.
- self assert: (Time humanWordsForSecondsAgo: 5399.999999999)
- = 'an hour ago'.
- self assert: (Time humanWordsForSecondsAgo: 64799.999999999)
- = '17 hours ago'.
- !
Item was removed:
- ----- Method: TimeTest>>testHumanWordsForSecondsAgoWithDays (in category 'testing') -----
- testHumanWordsForSecondsAgoWithDays
-
- self assert: (Time humanWordsForSecondsAgo: 18 * 60 * 60)
- = 'yesterday'.
- self assert: (Time humanWordsForSecondsAgo: 24 * 60 * 60)
- = 'yesterday'.
- !
Item was removed:
- ----- Method: TimeTest>>testLessThan (in category 'testing') -----
- testLessThan
- self assert: aTime < (Time readFromString: '12:34:57').!
Item was removed:
- ----- Method: TimeTest>>testMeridianAbbreviation (in category 'testing') -----
- testMeridianAbbreviation
- self assert: aTime meridianAbbreviation = 'PM'.
- !
Item was removed:
- ----- Method: TimeTest>>testMinute (in category 'testing') -----
- testMinute
- self assert: aTime minute = 34.
- self assert: aTime minutes = 34
- !
Item was removed:
- ----- Method: TimeTest>>testNanoSecond (in category 'testing') -----
- testNanoSecond
- self assert: aTime nanoSecond = 0
- "Right now all times all seconds"
- !
Item was removed:
- ----- Method: TimeTest>>testNew (in category 'Tests') -----
- testNew
-
- self assert: self timeClass new asSeconds = 0!
Item was removed:
- ----- Method: TimeTest>>testPrint24 (in category 'testing') -----
- testPrint24
- self assert: aTime print24 = '12:34:56'!
Item was removed:
- ----- Method: TimeTest>>testPrint24On (in category 'testing') -----
- testPrint24On
- | referenceString printed |
- referenceString := '12:34:56'.
- printed := WriteStream on: ''.
- aTime print24: true on: printed.
- self assert: printed contents = referenceString!
Item was removed:
- ----- Method: TimeTest>>testPrint24OnWithPM (in category 'testing') -----
- testPrint24OnWithPM
- | referenceString printed |
- referenceString := '12:34:56 pm'.
- printed := WriteStream on: ''.
- aTime print24: false on: printed.
- ^ self assert: printed contents = referenceString!
Item was removed:
- ----- Method: TimeTest>>testPrint24OnWithoutSeconds (in category 'testing') -----
- testPrint24OnWithoutSeconds
- | referenceString printed |
- referenceString := '12:34'.
- printed := WriteStream on: ''.
- aTime print24: true showSeconds: false on: printed.
- self assert: printed contents = referenceString!
Item was removed:
- ----- Method: TimeTest>>testPrintMinutes (in category 'testing') -----
- testPrintMinutes
- self assert: aTime printMinutes = '12:34 pm'!
Item was removed:
- ----- Method: TimeTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | referenceString printed |
- referenceString := '12:34:56 pm'.
- printed := WriteStream on: ''.
- aTime printOn: printed.
- self assert: printed contents = referenceString!
Item was removed:
- ----- Method: TimeTest>>testPrinting (in category 'Tests') -----
- testPrinting
-
- self
- assert: time printString = '4:02:47 am';
- assert: time intervalString = '4 hours 2 minutes 47 seconds';
- assert: time print24 = '04:02:47';
- assert: time printMinutes = '4:02 am';
- assert: time hhmm24 = '0402'.
- !
Item was removed:
- ----- Method: TimeTest>>testPrintingNanos (in category 'Tests') -----
- testPrintingNanos
-
- self
- assert: timeWithNanos printString = '4:02:47.42 am';
- assert: timeWithNanos intervalString = '4 hours 2 minutes 47 seconds';
- assert: timeWithNanos print24 = '04:02:47';
- assert: timeWithNanos printMinutes = '4:02 am';
- assert: timeWithNanos hhmm24 = '0402'.
- !
Item was removed:
- ----- Method: TimeTest>>testReadFrom (in category 'Tests') -----
- testReadFrom
-
- | t1 t2 |
- t1 := self timeClass readFrom: '4:02:47 am' readStream.
- t2 := self timeClass readFrom: '4:02:47.000 am' readStream.
-
- self
- assert: time = t1;
- assert: time = t2
- !
Item was removed:
- ----- Method: TimeTest>>testSecond (in category 'testing') -----
- testSecond
- self assert: aTime second = 56.
- self assert: aTime seconds = 56
- !
Item was removed:
- ----- Method: TimeTest>>testSqueakInquiries (in category 'Tests') -----
- testSqueakInquiries
- | timewords totalseconds condensed corrected |
- self assert:
- (self timeClass namesForTimes: #(2 10000023 10000026))
- = #('January, 1901' 'April, 1901, 4/26/1901, 5:47 pm' 'April, 1901, 4/26/1901, 5:47 pm').
-
- timewords := #(0.5 30 62 130 4000 10000 60000 86401)
- collect: [ :ss | self timeClass humanWordsForSecondsAgo: ss ].
- self assert:
- timewords = #('a second ago' '30 seconds ago' 'a minute ago' '2 minutes ago'
- 'an hour ago' '2 hours ago' '16 hours ago' 'yesterday').
-
- totalseconds := self timeClass totalSeconds.
- condensed := self timeClass condenseBunches:
- (#(20 400 401 20000 20200 20300 40000 45000 200000 201000 202000)
- collect: [:tt | totalseconds - tt]).
- corrected := condensed collect: [ :e | totalseconds - e ].
- self
- assert: (corrected includesAllOf: #(20 400 401 20000 40000 45000 200000)).
- !
Item was removed:
- ----- Method: TimeTest>>testStoreOn (in category 'testing') -----
- testStoreOn
- | referenceString stored |
- referenceString := '''12:34:56 pm'' asTime'.
- stored := WriteStream on: ''.
- aTime storeOn: stored.
- self assert: stored contents = referenceString!
Item was removed:
- ----- Method: TimeTest>>testStoring (in category 'Tests') -----
- testStoring
-
- self
- assert: time storeString = '''4:02:47 am'' asTime';
- assert: time = ('4:02:47 am' asTime).
- !
Item was removed:
- ----- Method: TimeTest>>testSubtractTime (in category 'testing') -----
- testSubtractTime
- self assert: (aTime subtractTime: aTime) = (Time readFrom: (ReadStream on: '00:00:00'))
- !
Item was removed:
- ----- Method: TimeTest>>testTicks (in category 'testing') -----
- testTicks
- self assert: aTime ticks = #(0 45296 0).
- self assert: aTime = (Time new ticks: #(0 45296 0))!
Item was removed:
- ----- Method: TimeTest>>testTimeStamp (in category 'testing') -----
- testTimeStamp
- self assert: aTime = aTime asTimeStamp asTime!
Item was removed:
- ----- Method: TimeTest>>timeClass (in category 'Private') -----
- timeClass
-
- ^ Time!
Item was removed:
- TestCase subclass: #TimespanDoSpanAYearTest
- instanceVariableNames: 'aTimespan aDuration aDate'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !TimespanDoSpanAYearTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0!
- I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndTimeEpochTestCase for a complete list. tlk.
- My fixtures include a Timespan that crosses over a year boundary:
- aDate = December 25, 2004, midnight
- aDuration = 91 days
- aTimeSpan= 91 days, starting December 25, 2004, midnight!
Item was removed:
- ----- Method: TimespanDoSpanAYearTest>>setUp (in category 'running') -----
- setUp
- aDate := DateAndTime year: 2004 month: 12 day: 25 hour: 0 minute: 0 second: 0.
- aDuration := Duration days: 91 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0.
-
- aTimespan := Timespan starting: aDate duration: aDuration!
Item was removed:
- ----- Method: TimespanDoSpanAYearTest>>testMonthsDo (in category 'testing') -----
- testMonthsDo
-
- | monthArray |
-
- monthArray := Array
- with: (Month starting: (DateAndTime year: 2004 day: 355) duration: 31 days)
- with: (Month starting: (DateAndTime year: 2005 day: 1) duration: 31 days)
- with: (Month starting: (DateAndTime year: 2005 day: 32) duration: 29 days)
- with: (Month starting: (DateAndTime year: 2005 day: 61) duration: 31 days).
-
- self assert: aTimespan months = monthArray!
Item was removed:
- ----- Method: TimespanDoSpanAYearTest>>testNext (in category 'testing') -----
- testNext
-
- self assert: aTimespan next
- = (Timespan
- starting: (DateAndTime
- year: 2005
- month: 3
- day: 26
- hour: 0
- minute: 0
- second: 0)
- duration: aDuration)!
Item was removed:
- ----- Method: TimespanDoSpanAYearTest>>testWeeksDo (in category 'testing') -----
- testWeeksDo
- | weeks weekArray |
- weeks := aTimespan weeks.
- self assert: weeks size = ((aDuration days / 7.0) ceiling + 1).
-
- weekArray := OrderedCollection new.
- weekArray
- addLast: (Week starting: (DateAndTime year: 2004 month: 12 day: 19) duration: 7 days);
- addLast: (Week starting: (DateAndTime year: 2004 month: 12 day: 26) duration: 7 days).
-
- 2 to: 79 by: 7 do:
- [ :i | weekArray
- addLast: (Week starting: (DateAndTime year: 2005 day: i) duration: 7 days) ].
-
- weekArray := weekArray asArray.
- self assert: aTimespan weeks = weekArray
- !
Item was removed:
- ----- Method: TimespanDoSpanAYearTest>>testYearsDo (in category 'testing') -----
- testYearsDo
- | yearArray |
- yearArray := Array
- with: (Year
- starting: (DateAndTime
- year: 2004
- month: 12
- day: 25)
- duration: 366 days).
- self assert: aTimespan years = yearArray
- !
Item was removed:
- TestCase subclass: #TimespanDoTest
- instanceVariableNames: 'aTimespan aDuration aDate'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !TimespanDoTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0!
- I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndTimeEpochTestCase for a complete list. tlk.
- My fixtures are:
- aDate = January 8, 2003, midnight
- aDuration = 91 days
- aTimeSpan= 91 days, starting January 8, 2003, midnight
- !
Item was removed:
- ----- 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!
Item was removed:
- ----- Method: TimespanDoTest>>testDatesDo (in category 'testing') -----
- testDatesDo
- | dateArray |
- dateArray := OrderedCollection new.
- 7
- to: 97
- do: [:each | dateArray
- addLast: (Date year: 2003 day: each)].
- dateArray := dateArray asArray.
- self assert: aTimespan dates = dateArray!
Item was removed:
- ----- Method: TimespanDoTest>>testDoWith (in category 'testing') -----
- testDoWith
- | count |
- count := 0.
- aTimespan
- do: [:each | count := count + 1]
- with: (Timespan
- starting: aDate
- duration: 7 days).
- self assert: count = 13!
Item was removed:
- ----- Method: TimespanDoTest>>testDoWithWhen (in category 'testing') -----
- testDoWithWhen
- | count |
- count := 0.
- aTimespan
- do: [:each | count := count + 1]
- with: (Timespan starting: aDate duration: 7 days)
- when: [:each | count < 5].
- self assert: count = 5
- !
Item was removed:
- ----- Method: TimespanDoTest>>testEveryDo (in category 'testing') -----
- testEveryDo
- |count duration |
- count := 0.
- duration := 7 days.
- (aTimespan
- every: duration
- do: [:each | count := count + 1]).
- self assert: count = 13
- !
Item was removed:
- ----- 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)
- duration: 31 days)
- with: (Month
- starting: (DateAndTime year: 2003 day: 32 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- duration: 28 days)
- with: (Month
- starting: (DateAndTime year: 2003 day: 60 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- duration: 31 days)
- with: (Month
- starting: (DateAndTime year: 2003 day: 91 hour: 0 minute: 0 second: 0 offset: Month defaultOffset)
- duration: 30 days).
- self assert: aTimespan months = monthArray!
Item was removed:
- ----- 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)
- duration: aDuration)!
Item was removed:
- ----- 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)
- duration: 7 days)].
- weekArray := weekArray asArray.
- self assert: aTimespan weeks = weekArray
- !
Item was removed:
- ----- 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)
- duration: 365 days).
- self assert: aTimespan years contents = yearArray contents!
Item was removed:
- ClassTestCase subclass: #TimespanTest
- instanceVariableNames: 'timespan aTimespan anOverlappingTimespan anIncludedTimespan aDisjointTimespan aDay aWeek dec31 jan01 jan08 localTimeZoneToRestore anEqualTimeSpan localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: TimespanTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Timespan
- !
Item was removed:
- ----- Method: TimespanTest>>setUp (in category 'Running') -----
- setUp
-
- | jan01HereSomeWhereElseOnEarth |
- localTimeZoneToRestore := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- DateAndTime localTimeZone: TimeZone default.
-
- "100 hours starting noon 22 March 2003"
- timespan := Timespan starting:
- (DateAndTime year: 2003 month: 03 day: 22 hour: 12 minute: 0 second: 0)
- duration: (Duration hours: 100).
-
- dec31 := (DateAndTime year: 2004 month: 12 day: 31 hour: 0 minute: 0 second: 0).
- jan01 := (DateAndTime year: 2005 month: 1 day: 1 hour: 0 minute: 0 second: 0).
- jan08 := (DateAndTime year: 2005 month: 1 day: 8 hour: 0 minute: 0 second:0).
- aDay := Duration days: 1 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0.
- aWeek := Duration days: 7 hours: 0 minutes: 0 seconds: 0 nanoSeconds: 0.
- aTimespan := Timespan starting: jan01 duration: aWeek.
- jan01HereSomeWhereElseOnEarth := DateAndTime new ticks: (jan01 + 3 hours) ticks offset: jan01 offset + 3 hours.
- anEqualTimeSpan := Timespan starting: jan01HereSomeWhereElseOnEarth asUTC duration: aWeek.
- anOverlappingTimespan := Timespan starting: dec31 duration: aWeek.
- anIncludedTimespan := Timespan starting: jan01 duration: aDay.
- aDisjointTimespan := Timespan starting: jan08 duration: aWeek.
-
-
-
- !
Item was removed:
- ----- Method: TimespanTest>>tearDown (in category 'Running') -----
- tearDown
- DateAndTime localTimeZone: localTimeZoneToRestore.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.
- timespan := nil
- !
Item was removed:
- ----- Method: TimespanTest>>testAccessing (in category 'Tests') -----
- testAccessing
-
- self
- assert: (timespan start =
- (DateAndTime year: 2003 month: 03 day: 22 hour: 12 minute: 0 second: 0));
- assert: timespan duration = (Duration hours: 100);
- assert: timespan month = 3;
- assert: timespan monthName = 'March';
- assert: timespan monthAbbreviation = 'Mar'
-
-
- !
Item was removed:
- ----- Method: TimespanTest>>testArithmetic (in category 'Tests') -----
- testArithmetic
-
- | ts1 ts2 d |
- ts1 := timespan + 2 days.
- ts2 := ts1 - 2 days.
- d := ts1 - (DateAndTime year: 2003 month: 03 day: 20).
-
- self
- assert: (ts1 start =
- (DateAndTime year: 2003 month: 03 day: 24 hour: 12 minute: 0 second: 0));
- assert: (ts1 duration = timespan duration);
- assert: (ts2 start = timespan start);
- assert: (ts2 duration = timespan duration).
-
- self
- assert: d = (Duration days: 4 hours: 12 minutes: 0 seconds: 0)
-
- !
Item was removed:
- ----- Method: TimespanTest>>testAsDate (in category 'testing') -----
- testAsDate
- self assert: aTimespan asDate = jan01 asDate.
- "MessageNotUnderstood: Date class>>starting:"
- !
Item was removed:
- ----- Method: TimespanTest>>testAsDateAndTime (in category 'testing') -----
- testAsDateAndTime
- self assert: aTimespan asDateAndTime = jan01.
- "MessageNotUnderstood: Date class>>starting:"
-
- !
Item was removed:
- ----- Method: TimespanTest>>testAsDuration (in category 'testing') -----
- testAsDuration
- self assert: aTimespan asDuration = aWeek.
-
-
-
- !
Item was removed:
- ----- Method: TimespanTest>>testAsMonth (in category 'testing') -----
- testAsMonth
- self assert: aTimespan asMonth = jan01 asMonth.
- !
Item was removed:
- ----- Method: TimespanTest>>testAsTime (in category 'testing') -----
- testAsTime
- self assert: aTimespan asTime = jan01 asTime
- "MessageNotUnderstood: Time class>>seconds:nanoSeconds:"
- !
Item was removed:
- ----- Method: TimespanTest>>testAsTimeStamp (in category 'testing') -----
- testAsTimeStamp
- self assert: aTimespan asTimeStamp = ((TimeStamp readFrom: '1-01-2005 0:00 am' readStream) offset: 0 hours).
- !
Item was removed:
- ----- Method: TimespanTest>>testAsWeek (in category 'testing') -----
- testAsWeek
- self assert: aTimespan asWeek = jan01 asWeek.
- "DateAndTime new asWeek
- MessageNotUnderstood: Week class>>starting:"
- !
Item was removed:
- ----- Method: TimespanTest>>testAsYear (in category 'testing') -----
- testAsYear
- self assert: aTimespan asYear = jan01 asYear.
-
- !
Item was removed:
- ----- Method: TimespanTest>>testBeCanonical (in category 'Tests') -----
- testBeCanonical
-
- | start ts1 ts2 ts3 |
- start := '2019-01-27T17:11:40.061188-05:00' asDateAndTime.
- ts1 := Timespan starting: start duration: 123456 seconds.
- ts2 := ts1 deepCopy.
- ts3 := ts2 beCanonical.
- self assert: ts2
- identical: ts3
- description: 'beCanonical modifies the receiver, not a copy thereof'.
- self deny: ts3 = ts1.
- self assert: '2019-01-27T17:11:40.061188-05:00' asDateAndTime
- equals: ts1 start
- description: 'original timespan start is not modified'.
- self assert: ts1 duration
- equals: ts3 duration
- description: 'duration does not change'.
- self assert: '2019-01-27T17:11:40.061188+00:00' asDateAndTime
- equals: ts3 start.
- self deny: ts1 start = ts3 start
- description: 'magnitude of start time is changed'.
- self assert: 5 hours
- equals: start - ts3 start
- description: 'magnitude of start time is changed'.
- self assert: 0 seconds
- equals: ts3 start offset
- description: 'time zone offset is zero'.
- self assert: 5 hours negated
- equals: ts1 start offset
- description: 'original timezone was -18000'.
- !
Item was removed:
- ----- Method: TimespanTest>>testClockPrecisionDuration (in category 'testing') -----
- testClockPrecisionDuration
- | ts |
- ts := Timespan starting: Date today duration: DateAndTime clockPrecision.
- self
- assert: ts start = ts end!
Item was removed:
- ----- Method: TimespanTest>>testCurrent (in category 'testing') -----
- testCurrent
- self assert: (Timespan starting: DateAndTime current)
- <= Timespan current.
- self assert: Timespan current
- <= (Timespan starting: DateAndTime current)!
Item was removed:
- ----- Method: TimespanTest>>testDateToday (in category 'testing') -----
- testDateToday
- self assert: Date today start offset isZero!
Item was removed:
- ----- Method: TimespanTest>>testDay (in category 'testing') -----
- testDay
- self assert: aTimespan day = jan01 day
- !
Item was removed:
- ----- Method: TimespanTest>>testDayOfMonth (in category 'testing') -----
- testDayOfMonth
- self assert: aTimespan dayOfMonth = 1.
- !
Item was removed:
- ----- Method: TimespanTest>>testDayOfWeek (in category 'testing') -----
- testDayOfWeek
- self assert: aTimespan dayOfWeek = 7.
- self assert: aTimespan dayOfWeekName = 'Saturday'.
- !
Item was removed:
- ----- Method: TimespanTest>>testDayOfYear (in category 'testing') -----
- testDayOfYear
- self assert: aTimespan dayOfYear = 1.
- "MessageNotUnderstood: UndefinedObject>>year:, Undefined object is Year class"
- !
Item was removed:
- ----- Method: TimespanTest>>testDaysInMonth (in category 'testing') -----
- testDaysInMonth
- self assert: aTimespan daysInMonth = 31.
- "MessageNotUnderstood: Month class>>starting:"
- !
Item was removed:
- ----- Method: TimespanTest>>testDaysInYear (in category 'testing') -----
- testDaysInYear
- self assert: aTimespan daysInYear = 365.
- "MessageNotUnderstood: UndefinedObject>>starting: UndefinedObject is Year class"
- !
Item was removed:
- ----- Method: TimespanTest>>testDaysLeftInYear (in category 'testing') -----
- testDaysLeftInYear
- self assert: aTimespan daysLeftInYear = 364.
- "MessageNotUnderstood: UndefinedObject>>starting: UndefinedObject is Year class"
- !
Item was removed:
- ----- Method: TimespanTest>>testDoWith (in category 'testing') -----
- testDoWith
- | count |
- count := 0.
- aTimespan
- do: [:each | count := count + 1]
- with: (Timespan starting: jan01 duration: aDay).
- self assert: count = 7!
Item was removed:
- ----- Method: TimespanTest>>testDoWithWhen (in category 'testing') -----
- testDoWithWhen
- | count |
- count := 0.
- aTimespan
- do: [:each | count := count + 1]
- with: (Timespan starting: jan01 duration: aDay)
- when: [:each | count < 5].
- self assert: count = 5!
Item was removed:
- ----- Method: TimespanTest>>testDuration (in category 'testing') -----
- testDuration
- self assert: aTimespan duration = aWeek.
- aTimespan duration: aDay.
- self assert: aTimespan duration = aDay.
-
- !
Item was removed:
- ----- Method: TimespanTest>>testEnd (in category 'testing') -----
- testEnd
- self assert: aTimespan end + (Duration nanoSeconds:1) = aDisjointTimespan start.
- self assert: aTimespan end = (DateAndTime year: 2005 month: 1 day: 7 hour: 23 minute: 59 second: 59 nanoSecond: 999999999 offset: 0 hours)
- !
Item was removed:
- ----- Method: TimespanTest>>testEveryDo (in category 'testing') -----
- testEveryDo
- | count duration |
- count := 0.
- duration := 7 days.
- aTimespan
- every: duration
- do: [:each | count := count + 1].
- self assert: count = 1!
Item was removed:
- ----- Method: TimespanTest>>testFirstDayOfMonth (in category 'testing') -----
- testFirstDayOfMonth
- self assert: aTimespan firstDayOfMonth = 1.
- self assert: aDisjointTimespan firstDayOfMonth = 1
- !
Item was removed:
- ----- Method: TimespanTest>>testHash (in category 'testing') -----
- testHash
- self assert: (aTimespan = anEqualTimeSpan) ==> [aTimespan hash = anEqualTimeSpan hash]!
Item was removed:
- ----- Method: TimespanTest>>testIncludes (in category 'testing') -----
- testIncludes
- self assert: (aTimespan includes: jan01).
- self deny: (aTimespan includes: jan08)
- !
Item was removed:
- ----- Method: TimespanTest>>testIncludesAllOf (in category 'testing') -----
- testIncludesAllOf
- self assert: (aTimespan includesAllOf: (Bag with: jan01)).
- self deny: (aTimespan includesAllOf: (Bag with: jan01 with: jan08))
- !
Item was removed:
- ----- Method: TimespanTest>>testIncludesAnyOf (in category 'testing') -----
- testIncludesAnyOf
- self deny: (aTimespan includesAnyOf: (Bag with: dec31)).
- self assert: (aTimespan includesAnyOf: (Bag with: jan01 with: jan08))
- "Error is due to bug in Timespan
- includesAnyOf: aCollection "
- "Answer whether any element of aCollection is included in the receiver"
- "aCollection do: [ :elem | (self includes: elem) ifTrue: [^ true]].
- Shouldn't this return false if none are included?
- "
- !
Item was removed:
- ----- Method: TimespanTest>>testInclusion (in category 'Tests') -----
- testInclusion
-
- | t1 t2 t3 t4 |
- t1 := timespan start.
- t2 := timespan start + (timespan duration / 2).
- t3 := timespan end.
- t4 := timespan start + (timespan duration).
-
- self
- assert: (timespan includes: t1);
- assert: (timespan includes: t2);
- assert: (timespan includes: t3)";
- deny: (timespan includes: t4).
- self
- assert: (timespan includes: (t1 to: t2));
- assert: (timespan includes: (t1 to: t4));
- deny: (timespan includes: (Timespan starting: t2 duration: (timespan duration * 2))).
- self
- assert: (timespan includesAllOf: { t1. t2. t3 } );
- deny: (timespan includesAllOf: { t1. t2. t3. t4} ).
- self
- assert: (timespan includesAnyOf: { t1. t2. t3 } );
- deny: (timespan includesAnyOf: { t4 } ).
- "!
Item was removed:
- ----- Method: TimespanTest>>testIntersectionWithDisjoint (in category 'testing') -----
- testIntersectionWithDisjoint
- self assert: (aTimespan intersection: aDisjointTimespan) isNil.
- !
Item was removed:
- ----- Method: TimespanTest>>testIntersectionWithIncluded (in category 'testing') -----
- testIntersectionWithIncluded
- self assert: (aTimespan intersection: anIncludedTimespan) =
- (Timespan starting: jan01 duration: (Duration days: 0 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)).
- self deny: (aTimespan intersection: anIncludedTimespan) = anIncludedTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testIntersectionWithOverlapping (in category 'testing') -----
- testIntersectionWithOverlapping
- self assert: (aTimespan intersection: anOverlappingTimespan) =
- (Timespan starting: jan01 duration: (Duration days: 5 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)).
-
- !
Item was removed:
- ----- Method: TimespanTest>>testIntersectionWithSelf (in category 'testing') -----
- testIntersectionWithSelf
- self assert: (aTimespan intersection: aTimespan) =
- (Timespan starting: jan01 duration: (Duration days: 6 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)).
- self deny: (aTimespan intersection: anIncludedTimespan) = aTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testIntersectionWithSeparate (in category 'testing') -----
- testIntersectionWithSeparate
- self assert: (aTimespan intersection: aDisjointTimespan) isNil.
- self deny: (aTimespan intersection: anOverlappingTimespan) isNil.
- self assert: (aTimespan intersection: anIncludedTimespan) =
- (Timespan starting: jan01 duration: (Duration days: 0 hours: 23 minutes: 59 seconds: 59 nanoSeconds: 999999999)).
- self deny: (aTimespan intersection: anIncludedTimespan) = anIncludedTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testIsLeapYear (in category 'testing') -----
- testIsLeapYear
- "self assert: anOverlappingTimespan isLeapYear."
- "not sure why this fails"
- self deny: aTimespan isLeapYear
- !
Item was removed:
- ----- Method: TimespanTest>>testJulianDayNumber (in category 'testing') -----
- testJulianDayNumber
- self assert: aTimespan julianDayNumber = (jan01 julianDayNumber).
- !
Item was removed:
- ----- Method: TimespanTest>>testLessThan (in category 'testing') -----
- testLessThan
- self assert: aTimespan < aDisjointTimespan.
- self deny: anIncludedTimespan < aTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testMinusADateAndTime (in category 'testing') -----
- testMinusADateAndTime
- "It appears that subtracting a date from a Timespan gives you a duration = to the difference between the start of the timespan and the date "
- self assert: aTimespan - dec31 = aDay.
- self assert: aDisjointTimespan - jan01 = aWeek.
-
-
- !
Item was removed:
- ----- Method: TimespanTest>>testMinusADuration (in category 'testing') -----
- testMinusADuration
- "It appears that subtracting a duration from a Timespan gives you a Timespan shifted by the duration"
- self assert: aTimespan - aDay = anOverlappingTimespan.
- self assert: aDisjointTimespan - aWeek = aTimespan.
-
-
- !
Item was removed:
- ----- Method: TimespanTest>>testMonth (in category 'testing') -----
- testMonth
- self assert: aTimespan month = 1.
- self assert: aTimespan monthName = 'January'.
- self assert: aTimespan monthIndex = 1.!
Item was removed:
- ----- Method: TimespanTest>>testNew (in category 'testing') -----
- testNew
- self assert: Timespan new = (Timespan starting: '01-01-1901' asDate)!
Item was removed:
- ----- Method: TimespanTest>>testNext (in category 'testing') -----
- testNext
- self assert: aTimespan next = aDisjointTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testPlus (in category 'testing') -----
- testPlus
- self assert: aTimespan + aWeek = aDisjointTimespan.
- self assert: anOverlappingTimespan + aDay = aTimespan.
- !
Item was removed:
- ----- Method: TimespanTest>>testPrevious (in category 'testing') -----
- testPrevious
- self assert: aTimespan = aDisjointTimespan previous.
- self assert: aTimespan next previous = aTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testPrintOn (in category 'testing') -----
- testPrintOn
- | ref ws |
- ref := 'a Timespan(2005-01-01T00:00:00+00:00D7:00:00:00)'.
- ws := '' writeStream.
- aTimespan printOn: ws.
- self assert: ws contents = ref
- !
Item was removed:
- ----- Method: TimespanTest>>testRematerializedDateComparison (in category 'testing') -----
- testRematerializedDateComparison
- "Tests whether comparison semantics are affected by serialization / rematerialization."
- | isItTrue date refStream rwstream | date := Date today.
- isItTrue := DateAndTime now asDate = date.
- self assert: (date = DateAndTime now asDate) = isItTrue.
- self assert: (DateAndTime now asDate = date) = isItTrue.
- rwstream := RWBinaryOrTextStream on: ByteArray new.
- refStream := ReferenceStream on: rwstream..
- refStream nextPut: date; close.
- rwstream position: 0.
- refStream := ReferenceStream on: rwstream.
- date := refStream next.
- refStream close.
- self assert: (date = DateAndTime now asDate) = isItTrue.
- self assert: (DateAndTime now asDate = date) = isItTrue.
- !
Item was removed:
- ----- Method: TimespanTest>>testStart (in category 'testing') -----
- testStart
- self assert: aTimespan start = jan01.
- aTimespan start: jan08.
- self assert: aTimespan start = jan08.!
Item was removed:
- ----- Method: TimespanTest>>testStartingEnding (in category 'testing') -----
- testStartingEnding
- self assert: aTimespan = (Timespan starting: jan01 ending: jan08)
- !
Item was removed:
- ----- Method: TimespanTest>>testTo (in category 'testing') -----
- testTo
- self assert: (anIncludedTimespan to: jan08) = aTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testUnion (in category 'Tests') -----
- testUnion
-
- | union |
- union := timespan union: timespan.
-
- self
- assert: (union start = timespan start);
- assert: (union duration = timespan duration)
- !
Item was removed:
- ----- Method: TimespanTest>>testUnionWithDisjoint (in category 'testing') -----
- testUnionWithDisjoint
-
- self assert: (aTimespan union: aDisjointTimespan) =
- (Timespan starting: jan01 duration: (14 days)).
-
- !
Item was removed:
- ----- Method: TimespanTest>>testUnionWithIncluded (in category 'testing') -----
- testUnionWithIncluded
-
- self
- assert: (aTimespan union: anIncludedTimespan) = aTimespan !
Item was removed:
- ----- Method: TimespanTest>>testUnionWithOverlapping (in category 'testing') -----
- testUnionWithOverlapping
-
- self
- assert: (aTimespan union: anOverlappingTimespan) =
- (Timespan starting: dec31 duration: (8 days))!
Item was removed:
- ----- Method: TimespanTest>>testUnionWithSelf (in category 'testing') -----
- testUnionWithSelf
- self assert: (aTimespan union: aTimespan) = aTimespan
- !
Item was removed:
- ----- Method: TimespanTest>>testUnionWithSeparate (in category 'testing') -----
- testUnionWithSeparate
-
- self
- assert: (anOverlappingTimespan union: aDisjointTimespan) =
- (Timespan
- starting: anOverlappingTimespan start
- ending: (aDisjointTimespan end + DateAndTime clockPrecision))
-
- !
Item was removed:
- ----- Method: TimespanTest>>testWorkDatesDo (in category 'testing') -----
- testWorkDatesDo
- | count |
- count := 0.
- aTimespan
- workDatesDo: [:each | count := count + 1].
- self assert: count = 5!
Item was removed:
- ----- Method: TimespanTest>>testYear (in category 'testing') -----
- testYear
- self assert: aTimespan year = 2005.
-
- !
Item was removed:
- ----- Method: TimespanTest>>testZeroDuration (in category 'testing') -----
- testZeroDuration
- | ts |
- ts := Timespan starting: Date today duration: Duration zero.
- self
- assert: ts start = ts end!
Item was removed:
- ClassTestCase subclass: #WeekTest
- instanceVariableNames: 'week restoredStartDay'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: WeekTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Week!
Item was removed:
- ----- Method: WeekTest>>selectorsToBeIgnored (in category 'Coverage') -----
- selectorsToBeIgnored
-
- | deprecated private special |
-
- deprecated := #().
- private := #( #printOn: ).
- special := #( #next #do: ).
-
- ^ super selectorsToBeIgnored, deprecated, private, special.!
Item was removed:
- ----- Method: WeekTest>>setUp (in category 'Running') -----
- setUp
- "June 1998, 5th week"
-
- super setUp.
- restoredStartDay := Week startDay.
- Week startDay: #Sunday.
- week := Week starting: '4 July 1998' asDate!
Item was removed:
- ----- Method: WeekTest>>tearDown (in category 'Running') -----
- tearDown
-
- super tearDown.
- Week startDay: restoredStartDay.
- week := nil.
-
- !
Item was removed:
- ----- Method: WeekTest>>testDayNames (in category 'Tests') -----
- testDayNames
- self assert: (Week dayNames) = #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday).!
Item was removed:
- ----- Method: WeekTest>>testEnumerating (in category 'Tests') -----
- testEnumerating
-
- | days |
- days := OrderedCollection new.
- 0 to: 6 do: [ :i | days add: ('28 June 1998' asDate addDays: i) ].
-
- week datesDo: [ :d | days remove: d ].
-
- self assert: days isEmpty.
- !
Item was removed:
- ----- Method: WeekTest>>testIndexOfDay (in category 'Tests') -----
- testIndexOfDay
- | days |
- days := #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday).
-
- days withIndexDo: [:item :index | self assert: (Week indexOfDay: item) = index].
-
- "This should probably raise an error rather than returning 0."
- self assert: (Week indexOfDay: 0) = 0.
- self assert: (Week indexOfDay: 1) = 0.
- self assert: (Week indexOfDay: 7) = 0.
- self assert: (Week indexOfDay: 8) = 0.
- self assert: (Week indexOfDay: #Sunnyday) = 0.!
Item was removed:
- ----- Method: WeekTest>>testInquiries (in category 'Tests') -----
- testInquiries
-
- self
- assert: week start asDate = '28 June 1998' asDate;
- assert: week end asDate = '4 July 1998' asDate;
- assert: week index = 5;
- assert: week duration = (7 days).
- !
Item was removed:
- ----- Method: WeekTest>>testNameOfDay (in category 'Tests') -----
- testNameOfDay
- | days |
- days := #(#Sunday #Monday #Tuesday #Wednesday #Thursday #Friday #Saturday).
-
- days withIndexDo: [:item :index | self assert: (Week nameOfDay: index) = item].
-
- self shouldRaiseError: [Week nameOfDay: 0].
- self shouldRaiseError: [Week nameOfDay: 8].
- self shouldRaiseError: [Week nameOfDay: #Sunday].!
Item was removed:
- ----- Method: WeekTest>>testPreviousNext (in category 'Tests') -----
- testPreviousNext
- self
- assert: week next = (Week starting: '6 July 1998' asDate);
- assert: week previous = (Week starting: '22 June 1998' asDate)!
Item was removed:
- TestCase subclass: #YearMonthWeekTest
- instanceVariableNames: 'restoredStartDay restoredTimeZone localTimeZonePreferenceToRestore'
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
-
- !YearMonthWeekTest commentStamp: 'tlk 1/6/2004 17:55' prior: 0!
- I am one of several Sunit test Cases intentended to provide complete coverage for the Chronology set of classes as part of the external testing. See DateAndEpochTestCase for a complete list. tlk.
- I have no fixtures but do make sure to restore anything I change.!
Item was removed:
- ----- Method: YearMonthWeekTest>>setUp (in category 'running') -----
- setUp
- restoredStartDay := Week startDay.
- restoredTimeZone := DateAndTime localTimeZone.
- localTimeZonePreferenceToRestore := DateAndTime automaticTimezone.
- Week startDay: #Sunday.
- DateAndTime localTimeZone: (TimeZone timeZones detect: [:tz | tz abbreviation = 'GMT']).
- !
Item was removed:
- ----- Method: YearMonthWeekTest>>tearDown (in category 'running') -----
- tearDown
- Week startDay: restoredStartDay.
- DateAndTime localTimeZone: restoredTimeZone.
- DateAndTime automaticTimezone: localTimeZonePreferenceToRestore.!
Item was removed:
- ----- Method: YearMonthWeekTest>>testDaysInMonth (in category 'testing') -----
- testDaysInMonth
- self assert: (Month daysInMonth: 2 forYear: 2000) = 29.
- self assert: (Month daysInMonth: 2 forYear: 2001) = 28.
- self assert: (Month daysInMonth: 2 forYear: 2004) = 29.
- self assert: (Month daysInMonth: 2 forYear: 2100) = 28.
-
- self assert: (Month daysInMonth: 'January' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'February' forYear: 2003) = 28.
- self assert: (Month daysInMonth: 'March' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'April' forYear: 2003) = 30.
- self assert: (Month daysInMonth: 'May' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'June' forYear: 2003) = 30.
- self assert: (Month daysInMonth: 'July' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'August' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'September' forYear: 2003) = 30.
- self assert: (Month daysInMonth: 'October' forYear: 2003) = 31.
- self assert: (Month daysInMonth: 'November' forYear: 2003) = 30.
- self assert: (Month daysInMonth: 'December' forYear: 2003) = 31.!
Item was removed:
- ----- Method: YearMonthWeekTest>>testDaysInYear (in category 'testing') -----
- testDaysInYear
- self assert: (Year daysInYear: 2000) = 366.
- self assert: (Year daysInYear: 2001) = 365.
- self assert: (Year daysInYear: 2004) = 366.
- self assert: (Year daysInYear: 2100) = 365.
- self assert: (Year daysInYear: 2003) = 365.!
Item was removed:
- ----- Method: YearMonthWeekTest>>testIndexOfDay (in category 'testing') -----
- testIndexOfDay
- self assert: (Week indexOfDay: 'Friday') = 6.
-
- !
Item was removed:
- ----- Method: YearMonthWeekTest>>testIsLeapYear (in category 'testing') -----
- testIsLeapYear
- self assert: (Year isLeapYear: 2000).
- self deny: (Year isLeapYear: 2001).
- self assert: (Year isLeapYear: 2004).
- self deny: (Year isLeapYear: 2100).
- self deny: (Year isLeapYear: 2002).!
Item was removed:
- ----- Method: YearMonthWeekTest>>testMonthPrintOn (in category 'testing') -----
- testMonthPrintOn
- | aMonth ws |
- aMonth := Month starting: DateAndTime new duration: 31 days.
- ws := '' writeStream.
- aMonth printOn: ws.
- self assert: ws contents = 'January 1901'.!
Item was removed:
- ----- Method: YearMonthWeekTest>>testStartDay (in category 'testing') -----
- testStartDay
- Week startDay: 'Wednesday'.
- self assert: Week startDay = 'Wednesday'.
- Week startDay: 'Thursday'.
- self assert: Week startDay = 'Thursday'.
-
- !
Item was removed:
- ----- Method: YearMonthWeekTest>>testWeekPrintOn (in category 'testing') -----
- testWeekPrintOn
- | aWeek cs rw |
- aWeek := Week starting: (DateAndTime year: 1900 month: 12 day: 31).
- cs := 'a Week starting: 1900-12-30T00:00:00+00:00'.
- rw := WriteStream on: ''.
- aWeek printOn: rw.
- self assert: rw contents = cs!
Item was removed:
- ----- Method: YearMonthWeekTest>>testYearPrintOn (in category 'testing') -----
- testYearPrintOn
- | aYear ws |
- aYear := Year starting: DateAndTime new duration: 365 days.
- ws := '' writeStream.
- aYear printOn: ws.
- self assert: ws contents = 'a Year (1901)'.!
Item was removed:
- ClassTestCase subclass: #YearTest
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'Chronology-Tests'!
Item was removed:
- ----- Method: YearTest>>classToBeTested (in category 'Coverage') -----
- classToBeTested
-
- ^ Year!
Item was removed:
- ----- Method: YearTest>>testCurrent (in category 'Tests') -----
- testCurrent
- self assert:
- Year current start =
- ((DateAndTime
- year: DateAndTime now year
- month: 1
- day: 1) offset: Year defaultOffset)!
Item was removed:
- ----- Method: YearTest>>testPreviousInLeapYear (in category 'Tests') -----
- testPreviousInLeapYear
-
- | leap |
- leap := Year year: 2008.
- self assert: leap isLeapYear.
- self assert: (Year year: (leap year - 1)) = leap previous !
1
0
David T. Lewis uploaded a new version of Chronology-Tests to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Tests-lrnp.31.mcz
==================== Summary ====================
Name: Chronology-Tests-lrnp.31
Author: lrnp
Time: 3 March 2022, 12:46:42.775073 am
UUID: 437b3938-ef51-494d-9dee-ba89baa669bb
Ancestors: Chronology-Tests-ct.30
adjust margin of error for millisecond timing
Given that the shortest measurable interval is 1 ms, rounded, allow up to 2 milliseconds over or under for a combination of rounding and delays introduced by taking measurements.
This makes the busyWait test harder to pass unless the millisecond precision prescribed by Delay's comment applies to the current image. If the prescription applies, the test will pass more reliably in case of rounding errors.
=============== Diff against Chronology-Tests-ct.30 ===============
Item was changed:
----- Method: DurationTest>>testBusyWait (in category 'tests') -----
testBusyWait
| duration start elapsed |
duration := Duration milliSeconds: 1.
start := DateAndTime now.
1000 timesRepeat: [duration busyWait].
+ elapsed := DateAndTime now - start roundTo: duration.
- elapsed := DateAndTime now - start.
+ self assert: elapsed >= (duration * 998).
+ self assert: elapsed <= (duration * 1002).!
- self assert: elapsed >= (duration * 1000).
- self assert: elapsed <= (duration * 1000 * 2).!
1
0
David T. Lewis uploaded a new version of Chronology-Tests to project The Treated Inbox:
http://source.squeak.org/treated/Chronology-Tests-dtl.31.mcz
==================== Summary ====================
Name: Chronology-Tests-dtl.31
Author: dtl
Time: 19 May 2022, 12:04:32.792923 pm
UUID: ed1a302a-660e-4fc1-bdf7-6afb9b82fc90
Ancestors: Chronology-Tests-ct.30
Test updates to support Chronology-Core-dtl.80. Change DateAndTime>>offset: to be compliant with the ANSI draft spec. The offset: method should answer an instance equivalent to the receiver, where equivalent means having the same UTC time.
=============== Diff against Chronology-Tests-ct.30 ===============
Item was changed:
----- Method: DateAndTimeEpochTest>>testOffset (in category 'tests') -----
testOffset
self assert: aDateAndTime offset = '0:00:00:00' asDuration.
+ self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime!
- self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime!
Item was added:
+ ----- Method: DateAndTimeLeapTest>>testAsLocalAt (in category 'testing') -----
+ testAsLocalAt
+ self assert: aDateAndTime offset = '0:02:00:00' asDuration.
+ self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime!
Item was changed:
----- Method: DateAndTimeLeapTest>>testAsTimeStamp (in category 'testing') -----
testAsTimeStamp
+ self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) asLocalAt: 2 hours).
- self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) offset: 2 hours).
!
Item was changed:
----- Method: DateAndTimeLeapTest>>testOffset (in category 'testing') -----
testOffset
self assert: aDateAndTime offset = '0:02:00:00' asDuration.
+ self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T23:33:00+12:00' asDateAndTime!
- self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime!
Item was changed:
----- Method: DateAndTimeLeapTest>>testYearDayHourMinuteSecond (in category 'testing') -----
testYearDayHourMinuteSecond
+ self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours).
- self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) offset: 2 hours).
!
Item was changed:
----- Method: DateAndTimeLeapTest>>testYearMonthDayHourMinuteSecond (in category 'testing') -----
testYearMonthDayHourMinuteSecond
+ self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours).
- self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) offset: 2 hours).
!
Item was changed:
----- Method: DateTest>>testMakeUTC (in category 'testing') -----
testMakeUTC
"Equal dates should compare equal regardless of which TimeZone they are created in."
| priorTz priorPreference march31stLocal march31stOcean |
priorTz := DateAndTime localTimeZone.
priorPreference := DateAndTime automaticTimezone.
[DateAndTime
localTimeZone: (TimeZone
offset: 9 hours
name: 'Early Test Countries'
abbreviation: 'Test Ocean Early').
march31stLocal := Date year: 2016 month: 3 day: 31.
+ march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset).
- march31stLocal start: (march31stLocal start offset: DateAndTime localTimeZone offset).
DateAndTime
localTimeZone: (TimeZone
offset: -9 hours
name: 'Late Test Countries'
abbreviation: 'Test Ocean Late').
march31stOcean := Date year: 2016 month: 3 day: 31.
+ march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).]
- march31stOcean start: (march31stOcean start offset: DateAndTime localTimeZone offset).]
ensure: [DateAndTime localTimeZone: priorTz.
DateAndTime automaticTimezone: priorPreference].
self
deny: march31stLocal = march31stOcean;
assert: march31stOcean > march31stLocal.
self
assert: march31stLocal makeUTC = march31stOcean makeUTC;
deny: march31stOcean makeUTC > march31stLocal makeUTC;
deny: march31stOcean makeUTC < march31stLocal makeUTC.!
Item was changed:
----- Method: YearTest>>testCurrent (in category 'Tests') -----
testCurrent
self assert:
Year current start =
((DateAndTime
year: DateAndTime now year
month: 1
+ day: 1) asLocalAt: Year defaultOffset)!
- day: 1) offset: Year defaultOffset)!
1
0