[fpc-devel] Definition of the time-fration in a TDateTime before 30/12/1899

[Florian Klaempfl]

Vincent Snijders wrote:
>  dt := EncodeDateTime(1652, 6, 15, 12, 34, 56, 12);
>  if '1652-06-15 12:34:56' <> tiUtils.tiDateTimeAsIntlDateDisp(dt)
>    then halt(5);
> 
> [....]
> end.

We use the simple approach with halt because using the fpcunit for basic tests
would require that OOP works always but it could be easily broken and thus all
tests would fail. So we designed the test suite in a way which keeps
prerequisits as low as possible.