paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-14 08:50:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Correct formatdatetime string

Browse Source 
git-svn-id: trunk@28276 -
This commit is contained in:
michael 2014-07-30 14:52:42 +00:00
parent a42ecadddf
commit 1a6d734ca8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/fcl-fpcunit/src/xmltestreport.pp
View File

@ -21,7 +21,7 @@
is valid XML, with reserved characters correctly escaped.
This allows the XML document to be further processed with XSLT etc without
any issues.
Notes:
Specify 'null' as the filename if you don't want to output to file (e.g.
used by the GUI test runner which instead reads the Document property).
@ -194,7 +194,7 @@ begin
inherited;
FResults := FDoc.CreateElement('TestResults');
FResults.AppendChild(FDoc.CreateComment(' Generated using FPCUnit on '
+ FormatDateTime('yyyy-mm-dd hh:mm:ss', Now) ));
+ FormatDateTime('yyyy-mm-dd hh:nn:ss', Now) ));
FDoc.AppendChild(FResults);
FListing := FDoc.CreateElement('TestListing');
FResults.AppendChild(FListing);
@ -283,7 +283,7 @@ begin
{ Summary of ISO 8601 http://www.cl.cam.ac.uk/~mgk25/iso-time.html }
n := FDoc.CreateElement('DateTimeRan');
n.AppendChild(FDoc.CreateTextNode(FormatDateTime('yyyy-mm-dd hh:mm:ss', Now)));
n.AppendChild(FDoc.CreateTextNode(FormatDateTime('yyyy-mm-dd hh:nn:ss', Now)));
lResults.AppendChild(n);
// This is so that the GUI Test Runner doesn't output text as well.