The Trunk: Chronology-Tests-bf.3.mcz

Bert Freudenberg uploaded a new version of Chronology-Tests to project The Trunk:
http://source.squeak.org/trunk/Chronology-Tests-bf.3.mcz

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

Name: Chronology-Tests-bf.3
Author: bf
Time: 8 July 2016, 11:48:56.621846 am
UUID: 5655e31d-4351-4717-844c-4fc931c79945
Ancestors: Chronology-Tests-cmm.2

Test printing time with nanos

=============== Diff against Chronology-Tests-cmm.2 ===============

Item was changed:
  ClassTestCase subclass: #TimeTest
+ instanceVariableNames: 'time aTime localTimeZoneToRestore timeWithNanos'
- instanceVariableNames: 'time aTime localTimeZoneToRestore'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Chronology-Tests'!
 
  !TimeTest commentStamp: '<historical>' prior: 0!
  This is the unit test for the class Time.
 
  !

Item was changed:
  ----- Method: TimeTest>>setUp (in category 'Running') -----
  setUp
 
  localTimeZoneToRestore := DateAndTime localTimeZone.
  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.
- aTime := Time readFrom: '12:34:56 pm' readStream
  !

Item was added:
+ ----- 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'.
+ !