June 5, 2012
9:55 a.m.
testGeneralInquiries | now d t dt |
now := self timeClass dateAndTimeNow. self assert: now size = 2; assert: now last <= self timeClass now.
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.}.
The middle part is a GREAT example of a useful unit testâ¦
that's called a negative test :D, assume what possible could fail in the universe and test for it :D