svn classes: added TLogEntry.DateTime property + test

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@759 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2009-04-03 07:58:58 +00:00
parent a271d2f11f
commit 4c15005f84
3 changed files with 16 additions and 9 deletions

View File

@@ -5,7 +5,7 @@ unit TestSvnClasses;
interface
uses
Classes, SysUtils, fpcunit, testregistry,
Classes, SysUtils, dateutils, fpcunit, testregistry,
svnclasses;
type
@@ -116,6 +116,8 @@ begin
'2007-02-20T10:57:42.928052Z', LogEntry.Date);
AssertEquals('Wrong log display date',
'2007-02-20 10:57:42', LogEntry.DisplayDate);
AssertEquals('Wrong log datetime',
EncodeDateTime(2007,2,20,10,57,42,928), LogEntry.DateTime);
AssertEquals('Wrong log message',
'TAChart: added icon, added to make bigide', LogEntry.Message);
finally