"{ Package: 'stx:goodies/regression' }"

"{ NameSpace: RegressionTests }"

TestCase subclass:#TimeDurationTest
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'tests-Regression-DateAndTime'
!


!TimeDurationTest methodsFor:'Testing'!

test_01_PrintingReading
     #(
	(0 0 0 0)
	(0 0 0 1)
	(0 0 0 9)
	(0 0 0 10)
	(0 0 0 11)
	(0 0 0 99)
	(0 0 0 100)
	(0 0 0 101)
	(0 0 0 999)
	(0 0 0 1000)
	(0 0 0 1001)

	(0 33 0 123)
	(2 0 0 123)
	(2 33 0 123)
	(100 33 0 123)
	(10000 33 0 123)
	(1000000 33 0 123)

	(2 33 0 0)
	(2 0 0 0)
	(24 0 0 0)
	(0 0 0 123)
    ) do:[:hmsms |
	|h m s ms d1 d2 s1 s2|

	h := hmsms first.
	m := hmsms second.
	s := hmsms third.
	ms := hmsms fourth.
	d1 := TimeDuration hours:h minutes:m seconds:s milliseconds:ms.
	s1 := d1 printString.
	d2 := TimeDuration readFrom:s1.
	s2 := d2 printString.
	self assert:(d1 = d2).
	self assert:(d1 timeEncoding = d2 timeEncoding).
	self assert:(s1 = s2).
     ].


"/     (TimeDuration hours:0 minutes:0 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:0 minutes:0 seconds:10 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:0 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:2 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:100 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:10000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'
"/     (TimeDuration hours:1000000 minutes:33 seconds:0 milliseconds:123) printStringFormat:'%h:%m:%s'

    "
     self new test_01_PrintingReading
    "

    "Created: / 18-07-2007 / 14:02:01 / cg"
! !

!TimeDurationTest class methodsFor:'documentation'!

version
    ^ '$Header$'
! !